EXCEL VBA 他ブックのシートのコピー方法

質問

今開いているブックに、開いていない他のブックのシートをコピーする記述方法を教えて頂けませんでしょうか。（Office365を利用）
　開いているブック　：Ａ.xlsx　　シート：a
　開いていないブック：Ｂ.xlsx　　シート：b
ｂをａの後ろにコピーする方法を教えてください。ａにボタンを置いて、それをクリックしたらという方法でも構いません。
よろしくお願いします。

回答No.3

kkkkkm · ベストアンサー

ボタンのマクロに以下のコードを
AとBが同じフォルダなら
WorkbookPath = ThisWorkbook.Path
このままで
違う場合
ThisWorkbook.Path
を
フォルダ表示して上部のアドレスのところをクリックしてそれで出たものを"で囲って
ThisWorkbook.Pathと書き替える。
WorkbookPath = "C:\Users\abcdefg\Documents\Office"
などのようになる。
FileName = "B.xlsx"
B.xlsxは実際のブック名に
BBook.Sheets("Sheet1")のSheet1は実際のシート名に
それぞれ変更してください。

Sub ボタン1_Click()
Dim BBook As Workbook
Dim WorkbookPath As String
Dim FileName As String

WorkbookPath = ThisWorkbook.Path
FileName = "B.xlsx"

If Dir(WorkbookPath & "\" & FileName) <> "" Then
Workbooks.Open WorkbookPath & "\" & FileName
Else
MsgBox "ファイルが存在しません。", vbExclamation
Exit Sub
End If
Set BBook = Workbooks(FileName)
BBook.Sheets("Sheet1").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
BBook.Close
Set BBook = Nothing
End Sub

お礼

お礼が遅くなって申し訳ありません。
詳細に記述して頂き、本当にありがとうございます。
是非試してみたいと思います。

回答No.4

kkkkkm

No3の補足です。

>　フォルダ表示して上部のアドレスのところをクリックしてそれで出たもの

クイックアクセスで出るドキュメントなどを表示してこの操作をした場合
ドキュメントはドキュメントとしか表示されないので、左のツリー上のところから表示してください。Windows10での操作ですので違う場合は出ないかもしれません。

回答No.2

imogasi

Sub test02()
Set ak = ActiveWorkbook
Set bk = Workbooks.Open("C:\Users\XX\Documents\YYYYY.xlsm")
bk.Worksheets("Sheet1").Copy After:=ak.ActiveSheet
bk.Close
End Sub
"C:\Users\XX\Documents\YYYYY.xlsm"は、質問のB.xlsxにあたるもの。
私の場合、テストに選んだ既存のブックが、マクロ付きだったので、拡張子はxlsmでした。
上記のbk.Worksheets("Sheet1").Copyは、質問の「シート：b」に当たる部分。
私のやった、一例のテストではうまく行ったが。やってみてください。
ActiveWorkbookはこのVBAを作って入れているBook。その中のシートは、質問の「a」シート１つだけでもよいようです。もちろん、コピー後は１つ増える。
BをOpenしないで、やりたいという要望ならば、別質問で聞いてみてください。

お礼

お礼が遅くなって申し訳ありません。
本当にありがとうございます。試してみたいと思います。

回答No.1

Nobu-W

https://vbabeginner.net/vba%E3%81%A7%E3%82%B7%E3%83%BC%E3%83%88%E3%81%AE%E3%82%B3%E3%83%94%E3%83%BC%E3%82%92%E8%A1%8C%E3%81%86/
上記サイト参考になりませんか？　m(_ _)m