|
Sub 打开工作薄()
Dim wb As Workbook, n%, i%, arr, nm, sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nm = Application.GetOpenFilename("Excel 文件 ,*.csv*;*.xlsx")
If nm <> False Then
Set wb = GetObject(nm)
If Not wb Is Nothing Then
For Each sht In wb.Worksheets
sht.Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
End If
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
|
|