VBA读取其他Excel文件内容

Sub vbaTest()
    '数据读取
'----------------------------------------------
    Dim dataExcel, Workbook, sheet
    Dim totalRow As Integer
    Set dataExcel = CreateObject("Excel.Application")
    Set Workbook = dataExcel.Workbooks.Open(ThisWorkbook.Path & "\finall.xls")
    Set sheet = Workbook.Worksheets(1) '读取第一个sheet页的数据
    'totalRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
    'totalRow = 100
    totalRow = sheet.UsedRange.Rows.Count
    totalColumn = sheet.UsedRange.Columns.Count
    For i = 1 To totalRow
        For j = 1 To totalColumn
            Sheets("sheet1").Cells(i, j) = sheet.Cells(i, j)
        Next j
    Next i
    Workbook.Close
    MsgBox "读取成功！", vbSystemModal '读取完后弹框提醒
'----------------------------------------------
End Sub
Sub vbaTest()
    '数据读取
'------------------