This should work:
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
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…