代码如下,把"C:\我的文档\测试.xlsx"改为你的实际路径和文件名即可。
Sub CopyToFile()
Dim WB1 As Workbook, WB2 As Workbook
Application.ScreenUpdating = False
Set WB1 = ActiveWorkbook
Set WB2 = Application.Workbooks.Open("C:\我的文档\测试.xlsx")
WB1.ActiveSheet.Range("A1:C3").Copy WB2.ActiveSheet.Range("A2:C4")
WB2.Close True
Application.ScreenUpdating = True
End Sub
追问问下大佬,如何批量操作去操作呢?比如把a的A1:C3复制到b表,然后D1:F3复制到C表,G1:H3复制到D表……
追答下面这句是A1:C3复制到A2:C4的,你想复制几个区域,就多放几条这个句子就好了。
WB1.ActiveSheet.Range("A1:C3").Copy WB2.ActiveSheet.Range("A2:C4")