使用VBA选取其他Excel文件并将其内容复制到当前表格中

在VBA中，您可以使用Workbooks集合来打开其他Excel文件，并将其内容复制到当前工作簿中。以下是一个简单的示例代码，展示了如何实现这一过程：

Sub CopyDataFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 设置目标工作簿和工作表为当前工作簿和活动工作表
    Set targetWorkbook = ThisWorkbook
    Set targetWorksheet = targetWorkbook.ActiveSheet
    
    ' 打开源工作簿（请确保路径正确，并且文件确实存在）
    Set sourceWorkbook = Workbooks.Open("C:\path\to\your\other\workbook.xlsx")
    
    ' 设置源工作表（请根据需要调整工作表名称或索引）
    Set sourceWorksheet = sourceWorkbook.Sheets("Sheet1")
    
    ' 复制源工作表的数据到目标工作表
    ' 以下是复制整个工作表的示例，也可以根据需要复制特定范围
    sourceWorksheet.UsedRange.Copy Destination:=targetWorksheet.Range("A1")
    
    ' 关闭源工作簿（不保存更改）
    sourceWorkbook.Close SaveChanges:=False
    
    ' 清理
    Set sourceWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorksheet = Nothing
End Sub

在使用这段代码之前，请确保将 `"C:\path\to\your\other\workbook.xlsx"` 替换为您要打开的Excel文件的实际路径，并且根据需要调整工作表的名称或索引。此代码将会打开指定的Excel文件，复制其工作表上的所有已使用范围的数据，并将其粘贴到当前工作簿的活动工作表上的起始位置（即A1单元格）。