VBA -如何从刚刚下载的excel文件中获取数据

Sub GetDataFromExcelFile()
    Dim filePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim data As Variant
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.xlsx"
    
    ' 打开Excel文件
    Set wb = Workbooks.Open(filePath)
    
    ' 获取第一个工作表
    Set ws = wb.Worksheets(1)
    
    ' 定义数据范围，假设数据在A1:D10的范围内
    Set dataRange = ws.Range("A1:D10")
    
    ' 将数据范围的值赋给一个变量
    data = dataRange.Value
    
    ' 关闭Excel文件
    wb.Close
    
    ' 处理获取到的数据
    ' 在这里可以对获取到的数据进行进一步的处理，例如输出到另一个文件或数据库
    
    ' 示例：输出数据到Immediate窗口
    For i = 1 To UBound(data, 1)
        For j = 1 To UBound(data, 2)
            Debug.Print data(i, j)
        Next j
    Next i
End Sub