打开Excel文件,无需显示即可使用VBA进行读取

Sub ReadExcelFile()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Dim strPath As String
    Dim i As Integer, j As Integer

    ' 设置Excel文件路径
    strPath = "C:\example.xlsx"

    ' 创建Excel应用程序对象
    Set objExcel = CreateObject("Excel.Application")

    ' 设置Excel应用程序对象的可见性为False，以便在后台运行
    objExcel.Visible = False

    ' 打开Excel文件
    Set objWorkbook = objExcel.Workbooks.Open(strPath)

    ' 获取活动工作表
    Set objWorksheet = objWorkbook.ActiveSheet

    ' 读取Excel文件中的数据
    For i = 1 To objWorksheet.UsedRange.Rows.Count
        For j = 1 To objWorksheet.UsedRange.Columns.Count
            Debug.Print objWorksheet.Cells(i, j).Value
        Next
    Next

    ' 关闭Excel文件
    objWorkbook.Close

    ' 释放对象
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub