在excel中用VBA打开另一张excel表格并复制其中的内容

您可以使用以下的 VBA 代码来实现在 Excel 中打开另一张 Excel 表格并复制其中的内容：

Sub CopyFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open("路径\源文件名.xlsx")
    
    ' 打开目标工作簿
    Set targetWorkbook = ThisWorkbook
    
    ' 设置源工作表
    Set sourceWorksheet = sourceWorkbook.Sheets("源工作表名")
    
    ' 设置目标工作表
    Set targetWorksheet = targetWorkbook.Sheets("目标工作表名")
    
    ' 复制源工作表的内容到目标工作表
    sourceWorksheet.UsedRange.Copy targetWorksheet.Range("A1")
    
    ' 关闭源工作簿
    sourceWorkbook.Close SaveChanges:=False
End Sub

请注意，您需要将代码中的路径、文件名、工作表名替换为您实际使用的值。此代码将打开源工作簿，复制源工作表的内容，并将其粘贴到目标工作簿的指定位置。最后，关闭源工作簿。

希望对您有所帮助！如有任何问题，请随时提问。