打开工作表，并导入工作表

nnsea

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