
エクセル1シートのみを移動し、開いたシートは閉じたいのですが、
ネットで検索したものが、全シートの移動のみで、
1シートを移動し、閉じたいのです。
wbTo.Worksheets.Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count)
↓
wbTo.Worksheets(1).Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count)
ここだけ直したら、1シートの移動は出来たのですが、
不要なブックの閉じ方が分かりません。
どなたかわかる方いらっしゃいましたら、コードを教えてください。
よろしくお願いします。
Public Sub 複数エクセル1シート開いたブックへ移動()
Dim arrFileName As Variant 'ダイアログで選択した複数のブック名を配列で取得する
'GetOpenFilenameメソッドで、MultiSelect:=Trueとすると、ブックを複数選択できる。
arrFileName = Application.GetOpenFilename("Excelブック,*.xls?", MultiSelect:=True)
'ファイルを選択しなかった場合、処理を終了する
If TypeName(arrFileName) = "Boolean" Then: Exit Sub
Dim v As Variant '配列の各要素を格納する変数
Dim Flag As Boolean '最初に開いたブックか判定する変数
Dim wbTo As Workbook '2回目以降に開いたブックの参照用変数
Dim wbFrm As Workbook '最初に開いたブックの参照用変数
'GetOpenFilenameメソッドで取得した各ブックのフルパスの数だけループ
For Each v In arrFileName
Workbooks.Open FileName:=v 'Excelをひらく
If Flag Then '最初に開いたブックは処理しない
Set wbTo = ActiveWorkbook
'Moveメソッドで、2回目以降に開いたブックの1シートを、最初に開いたブックのシート末尾に移動する
wbTo.Worksheets(1).Move After:=wbFrm.Worksheets(wbFrm.Worksheets.Count)
Else
'最初に開いたブックの参照を割り当てる
Set wbFrm = ActiveWorkbook
End If
Flag = True
Next v
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
>不要なブックの閉じ方が分かりません。
「不要なブック」というのは、コピー元になっているブックという解釈でよいのでしょうか?
Workbook.Close
で、ブックを閉じることができます。
(ご提示のコードの場合なら、ブックは wbTo です)
ただし、変更しているので、上記のままでは、確認のダイアログが表示されます。
いちいち表示されては面倒でしょうから、移動したシートを残したままにしたいなら
wbTo.Close False
移動したシートは、無くして保存するのなら
wbTo.Close True
とすることで、実現できると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
VBAで別のブックにシートをコピ...
-
【VBA】全シートの計算式を全て...
-
Excel2007VBAファイルの表示に...
-
VBA アプリケーション定義また...
-
VBA シート名が一致した場合の...
-
エクセルのマクロについて教え...
-
Excel-VBAでのファイルの開き方
-
エクセルのマクロを使ってメー...
-
VBA コードを実行すると画面が...
-
VBAで複数のブックを開かずに処...
-
ワイルドカード「*」を使うとう...
-
VBS Bookを閉じるコード
-
フォルダ内の全てのファイルに...
-
ACCESSでExcelにデータ出力、高...
-
vbaでvbaProjectのパスワード解...
-
Excel (2013) VBAでもし最大表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別ブックをダイアログボックス...
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
VBAで別ブックのシートを指定し...
-
ワイルドカード「*」を使うとう...
-
Excelマクロ 該当する値の行番...
-
VBAで別のブックにシートをコピ...
-
【Excel VBA】書き込み先ブック...
-
[Excel]ADODBでNull変換されて...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】インデックスが有...
-
VBS Bookを閉じるコード
-
ユーザーフォームの切り替えに...
-
vbaでvbaProjectのパスワード解...
-
【VBA】全シートの計算式を全て...
-
Excel にて、 リストボックスの...
-
フォルダ内の全てのファイルに...
-
【マクロ】違うフォルダにある...
おすすめ情報