VBA 跨工作簿复制A1:B1的数据
时间: 2024-05-23 16:14:55 浏览: 21
你可以使用以下 VBA 代码来实现跨工作簿复制 A1:B1 的数据:
Sub CopyData()
Dim sourceWorkbook As Workbook
Dim destinationWorkbook As Workbook
Dim sourceWorksheet As Worksheet
Dim destinationWorksheet As Worksheet
' 设置源工作簿和目标工作簿
Set sourceWorkbook = Workbooks("source.xlsx")
Set destinationWorkbook = Workbooks("destination.xlsx")
' 设置源工作表和目标工作表
Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
Set destinationWorksheet = destinationWorkbook.Worksheets("Sheet2")
' 复制数据
sourceWorksheet.Range("A1:B1").Copy _
Destination:=destinationWorksheet.Range("A1:B1")
' 关闭源工作簿
sourceWorkbook.Close savechanges:=False
End Sub
其中,"source.xlsx" 和 "destination.xlsx" 分别为源工作簿和目标工作簿的文件名,"Sheet1" 和 "Sheet2" 分别为源工作表和目标工作表的名称。你需要在代码中修改这些值来适应你自己的情况。