-6

あるワークブックから新しいワークブックに特定の範囲のセルをコピーするマクロを探しています。マクロは、A1:HC5からセルをコピー"Workbook1"し、の同じセル(A1:HC5)に貼り付け"Workbook2"ます。ガイダンスをありがとう!

4

1 に答える 1

1

これは機能するはずです:

Sub test()
   Dim wbk As Workbook

   strFirstFile = "C:\source.xls"
   strSecondFile = "C:\destination.xls"

      Range("A1:HC35").Copy

   Set wbk = Workbooks.Open(strSecondFile)
   With wbk.Sheets("Sheet1")
      Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
   End With 
End Sub
于 2012-12-21T16:52:08.640 に答える