我打开一个工作簿1.xls，我需要在这里向另外一个工作簿2.xls中的sheet1工作表中填写数据。如何用vba来完成

Question

如题所述

Answer 1

Sub Action_Save()
Dim i As Integer
Dim c As Integer
Dim r As Integer
Dim ir As Integer
Dim MySht As Worksheet
Dim Arr, Arr2
r = Range("D5").End(xlDown).Row
Arr2 = Sheet1.Range("B6:M" & r)
ReDim Arr(1 To UBound(Arr2), 1 To 12)
For i = 1 To UBound(Arr2)
Set MySht = Sheet2
For c = 1 To 11
Arr(i, c) = Arr2(i, c)
Next
Next
With MySht
ir = .Range("E65536").End(xlUp).Row + 1
.Cells(ir, 1).Resize(UBound(Arr), 12) = Arr
End With
Call Action_Clear
End Sub

Sub Action_Clear()
Sheet1.Select
Dim r As Integer
r = Range("D5").End(xlDown).Row
If r = 50 Then Exit Sub
Range("B6:l" & r).ClearContents
Range("I6:l" & r).ClearContents

End Sud
试试看