13问答网 > 如何利用vb将一个excel文件单元格内容复制到另一个excel文件

如何利用vb将一个excel文件单元格内容复制到另一个excel文件

2025-02-25 06:50:59

推荐回答（1个）

回答1：

先私信你，一会再发，不然容易失效。。。
Private Sub Command1_Click()
Dim XlApp As Application
Dim Xlbook As Workbook
Set XlApp = New Excel.Application
With XlApp.Workbooks.Open("D:\B.XLSX")
Set Xlbook = XlApp.Workbooks.Open("D:\A.XLSX")
Xlbook.Worksheets(1).Range("A1" & ":" & "G5").Copy .Worksheets(1).Range("A6" & ":" & "G10")
Xlbook.Close False
.Close True
Set XlApp = Nothing
Set Xlbook = Nothing
End With
End Sub