类模块- VBA -从excel表格导入数据

Sub ImportDataFromExcel()
    Dim filePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '选择要导入的Excel文件
    filePath = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx")
    
    '如果用户选择了文件，则继续执行导入操作
    If filePath <> "False" Then
        '打开选择的Excel文件
        Set wb = Workbooks.Open(filePath)
        
        '选择要导入数据的工作表
        Set ws = wb.Sheets("Sheet1") '根据实际情况修改工作表名称
        
        '将数据从Excel表格导入到当前工作表
        ws.Range("A1").CurrentRegion.Copy Destination:=ActiveSheet.Range("A1")
        
        '关闭Excel文件
        wb.Close SaveChanges:=False
    End If
End Sub