Exel使用宏在3个工作表中导入3个xls

Sub ImportData()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim filePath As String
    
    ' 设置文件路径
    filePath = "路径\文件名.xls"
    
    ' 打开文件
    Set wb = Workbooks.Open(filePath)
    
    ' 导入数据到第一个工作表
    Set ws = ThisWorkbook.Sheets(1)
    wb.Sheets(1).UsedRange.Copy ws.Range("A1")
    
    ' 导入数据到第二个工作表
    Set ws = ThisWorkbook.Sheets(2)
    wb.Sheets(2).UsedRange.Copy ws.Range("A1")
    
    ' 导入数据到第三个工作表
    Set ws = ThisWorkbook.Sheets(3)
    wb.Sheets(3).UsedRange.Copy ws.Range("A1")
    
    ' 关闭文件
    wb.Close SaveChanges:=False
End Sub