vba 用于将单元格从一个工作簿复制到另一个工作簿的宏
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/13976058/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
提示：将鼠标放在中文语句上可以显示对应的英文。显示中英文
时间：2020-09-11 18:54:51 来源:igfitidea点击:
Macro for copying cells from one workbook to another
提问by Miles
I am looking for a macro that copies a specific range of cells from one workbook to a new workbook. The macro would copy cells A1:HC5from "Workbook1", and paste into the same cells (A1:HC5)of "Workbook2".
Thanks for any guidance!
我正在寻找一个宏，它将特定范围的单元格从一个工作簿复制到一个新工作簿。宏将复制单元格A1:HC5的"Workbook1"，并粘贴到同一个细胞(A1:HC5)中"Workbook2"。感谢您的任何指导！
回答by hoooman
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
