2,503
社区成员




Private Sub Workbook_Open()
flnm = ThisWorkbook.Path & "\book1.xls"
If Dir(flnm) <> "" Then
With GetObject(flnm)
r = .Sheets(1).UsedRange.Rows.Count
c = .Sheets(1).UsedRange.Columns.Count
crr = .Sheets(1).UsedRange
.Close (False)
End With
Range("a1").Resize(r, c) = crr
End If
End Sub