|
Option Explicit
Sub test()
Dim ar(), i&, strFileName$, strPath$
strPath = ThisWorkbook.Path & "\"
ReDim ar(1 To 2, 1 To 2)
ar(1, 1) = strPath & "你的表.xlsx"
If Dir(ar(1, 1)) = "" Then Exit Sub
ar(2, 1) = strPath & "他的表.xlsx"
If Dir(ar(2, 1)) = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 1 To 2
Set ar(i, 2) = Sheets(i).[A1].CurrentRegion
With Workbooks.Open(ar(i, 1), 0)
With .Worksheets(1)
.Cells.Clear
ar(i, 2).Copy .[A1]
End With
.Close True
End With
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Beep
End Sub
|
评分
-
2
查看全部评分
-
|