13问答网 > 如何利用vb将一个已打开的EXCEL文件单元格内容复制到同一目录下的另一个excel文件中（为打开的文件）

如何利用vb将一个已打开的EXCEL文件单元格内容复制到同一目录下的另一个excel文件中（为打开的文件）

2025-03-06 03:19:58

推荐回答（3个）

回答1：

打开1.xls，添加一个按钮，粘贴以下代码，在A1：G5区域输入数据，点击按钮，数据存入2.xls，同时1的数据清空。代码虽简单但已调试通过。
Sub 按钮1_单击()
Dim j As Integer
Dim arr
Dim wb As Workbook
Sheet1.Activate
arr = Range("a1:g5")
Set wb = Workbooks.Open("d:\2.xls")
wb.Sheets(1).Activate
j = Range("a65535").End(xlUp).Row
For i = 1 To 5
For k = 1 To 7
Cells(i + j, k) = arr(i, k)
Next
Next
wb.Close True
Sheet1.Activate
Range("a1:g5").Clear
End Sub

回答2：

好用贴体？

回答3：

扣我
一五九六三九七零