Question

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

D盘根目录下有两个文件，A.XLSX和B.XLSX，每个文件中只有一个SHEET。我想通过VB将A.XLSX的1--5行A--G列复制到B.XLSX的6--10行A--G列。用一个按钮控制控制，点击按钮后，自动复制完后保存关闭EXCEL，按照我的条件帮忙编一段代码！最好调试过的，如果好用贴体我会追加分的。

若以下回答无法解决问题，邀请你更新回答

Answer 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