エクセルVBAでコピーペーストを他ファイルへ

質問

同一フォルダにAとBのファイルがあり、
ファイルAに、CommandButtonを置き、押下することで、ファイルAのシートAのA1～Z1までをコピーし、
ファイルBを開かず、ファイルBのシートBのA1～Z1までにペーストするVBAを作成しようとしています。

ペースト先のファイルBを開かずに、ペーストしてくれるようなマクロを知りたいです。

エクセルは2002を使用しています。

ご教授お願いいたします。

回答No.1

merlionXX · ベストアンサー

paci12451 さん、おはようございます。
ペースト先のファイルを開かずに、ペーストしてくれるような方法は存じませんが、開いたことを気づかせずにペーストして保存終了する方法ならわかります。

ファイルAのCommandButton1に以下のマクロをセットしてみてください。

Private Sub CommandButton1_Click()
　　Dim wb As Workbook
　　Application.ScreenUpdating = False
　　Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\B.xls")
　　ThisWorkbook.Sheets("A").Range("A1:Z1").Copy wb.Sheets("B").Range("A1:Z1")
　　Application.DisplayAlerts = False
　　wb.Close (True)
　　Application.DisplayAlerts = True
　　Application.ScreenUpdating = True
End Sub

お礼

早速の回答ありがとうございます。
試してみましたが、できました。
本当にありがとうございます。助かります。