Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12325 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11092】１枚だけのシートを保存する方法は？ miyake 04/2/27(金) 21:58 質問
【11093】Re:１枚だけのシートを保存する方法は？ かみちゃん 04/2/27(金) 22:04 回答
【11107】Re:１枚だけのシートを保存する方法は？ miyake 04/2/28(土) 11:56 質問
【11116】Re:１枚だけのシートを保存する方法は？ かみちゃん 04/2/28(土) 14:54 回答
【11110】Re:１枚だけのシートを保存する方法は？ Ｊカーター 04/2/28(土) 12:20 回答
【11113】Re:１枚だけのシートを保存する方法は？ Ｊカーター 04/2/28(土) 12:47 発言
【11117】ありがとうございます miyake 04/2/28(土) 15:51 お礼
【11092】１枚だけのシートを保存する方法は？
質問  miyake  - 04/2/27(金) 21:58 -
引用なし
パスワード
   名前を付けてファイルを保存する際、シートが複数ある場合、任意の１枚のシートだけを保存するにはどうしたらいいのでしょうか。ご教示願います。
（余計なシートは保存しない方法とは？）
【11093】Re:１枚だけのシートを保存する方法は？
回答  かみちゃん  - 04/2/27(金) 22:04 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>名前を付けてファイルを保存する際、シートが複数ある場合、任意の１枚のシートだけを保存するにはどうしたらいいのでしょうか。ご教示願います。
>（余計なシートは保存しない方法とは？）

1.任意のシートを新しいブックにコピーしてから新しいブックを保存する。
2.余計なシートを削除してから保存する。
のどちらかの方法だと思います。
1.の方法の方がいいかと思いますが、ブックを２つ開いているので、元のブックと同じファイル名では保存ができないと思います。
また、シート間の計算式がある場合はどうするのでしょうか？
そのあたりの考え方を教えていただけますか？
【11107】Re:１枚だけのシートを保存する方法は？
質問  miyake  - 04/2/28(土) 11:56 -
引用なし
パスワード
   ありがとうございます。
新規ブックを追加し、そのブックにコピーして、その後、既存のsheet1からsheet3を削除する方法でよろしいのでしょうか。また、コピー元シートにコマンドボタンがいくつか配置されており、コピー後にすべてのコマンドボタンを削除し登録されているマクロも消去したいと思いますが、簡単な方法はありますか。
【11110】Re:１枚だけのシートを保存する方法は？
回答  Ｊカーター  - 04/2/28(土) 12:20 -
引用なし
パスワード
   ▼miyake さん：
こんにちは。

編集メニューの「シートの移動またはコピー」を実行
ダイアログの移動先ブック名で「新しいブック」を選んで
下の「コピーを作成する」にチェックして実行すると
コピーしたいブックが一個だけある新規ブックができます。
それを保存するのが一番簡単です。
(いらないシートの削除が必要ないので)

自動記録するとVBAにもできます。

といっても
Sheets("Sheet1").Copy
だけですけど
【11113】Re:１枚だけのシートを保存する方法は？
発言  Ｊカーター  - 04/2/28(土) 12:47 -
引用なし
パスワード
   こんにちは。

>コピーしたいブックが一個だけある新規ブックができます
コピーしたいシートが一個だけある新規ブックができます
でした。
【11116】Re:１枚だけのシートを保存する方法は？
回答  かみちゃん  - 04/2/28(土) 14:54 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>新規ブックを追加し、そのブックにコピーして、その後、既存のsheet1からsheet3を削除する方法でよろしいのでしょうか。また、コピー元シートにコマンドボタンがいくつか配置されており、コピー後にすべてのコマンドボタンを削除し登録されているマクロも消去したいと思いますが、簡単な方法はありますか。

Ｊカーターさんも書かれていましたが、新規ブックにコピーするのは、保存したいシートだけです。ですから、シートを削除する必要はありません。
ただし、前のコメントにも書きましたが、シート間の計算式は考慮しなくてもいいのでしょうか？

「コピー後にすべてのコマンドボタンを削除」するのは、次のコードでできると思います。
Sub OLEObjects_Del()
　'progIDについては、ヘルプまたは次のＵＲＬを参照
　'http://www.moug.net/skillup/opm/opm01-04.htm
　Dim obj As OLEObject
　'アクティブシートのコマンドボタンをすべて削除する。
　For Each obj In ActiveSheet.OLEObjects
　　If obj.progID = "Forms.CommandButton.1" Then
　　　obj.Delete
　　End If
　Next
End Sub
【11117】ありがとうございます
お礼  miyake  - 04/2/28(土) 15:51 -
引用なし
パスワード
   かみちゃんさん、Ｊカーターさん、ありがとうございました。非常に参考になりました。またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12325 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free