Excel VBAで他のエクセルファイルを開き、一部を書式を含めてコピペするコードを書きました。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Dim strPath As String Dim wbOpen As Workbook strPath = "ファイルのパス" Set wbOpen = Workbooks.Open(strPath) wbOpen.Worksheets("Sheet1").Columns("A:D").Copy ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial xlPasteAll Application.CutCopyMode = False wbOpen.Close |
コピー対象のファイルを開きA～D列をコピーして、元のファイルに貼り付けしてから、閉じます。
Application.CutCopyMode = False とすることで、「クリップボードに大きな情報があります。…」といったメッセージがでなくなります。
以下のようにすることで、メッセージそのものを抑制することもできます。
|
1 2 3 4 5 |
Application.DisplayAlerts = False wbOpen.Close Application.DisplayAlerts = True |