[day 2]用VBA实现复制EXCEL数据到另一个EXCEL

#跟着文心一言学VBA

Sub MergeFiles()
    Dim source_file As Workbook
    Dim destination_file As Workbook
    Dim source_sheet As Worksheet
    Dim destination_sheet As Worksheet

      
    ' 选择要合并数据的源工作簿和目标工作簿
    Set source_file = Workbooks.Open("D:\小时\test\1.xlsx")
    Set destination_file = Workbooks.Open("D:\小时\test\2.xlsx")
      
    ' 选择要合并数据的源工作表和目标工作表
    Set source_sheet = source_file.Worksheets("Sheet1")
    Set destination_sheet = destination_file.Worksheets("Sheet1")

      
    ' 复制数据
    source_sheet.Range("A1:A10").Copy Destination:=destination_sheet.Range("A1:A10")

      
    ' 保存合并后的文件
    source_file.Save
    
End Sub

这段代码将打开一个名为“小时”的文件夹，并将其中的“test”文件夹中的“1.xlsx”文件复制到“test”文件夹中的“2.xlsx”文件中。

然后，它将保存合并后的文件。

请注意，此代码假定“test”文件夹中的所有文件都具有相同的名称和格式。如果文件名或格式不同，则需要相应地更改代码。

（小文同学的出的代码跑不动，简单删改了一下