vba 读取excel

VBA可以很方便地读取Excel文件中的数据。

首先需要在VBA中打开Excel文件，可以使用下面的代码：

Dim wb As Workbook
Set wb = Workbooks.Open("C:\path\to\file.xlsx")

接着可以选择要读取的工作表，例如：

Dim ws As Worksheet
Set ws = wb.Sheets("Sheet1")

然后可以使用`Range`对象来读取单元格的值，例如：

Dim value As Variant
value = ws.Range("A1").Value

也可以使用`Range`对象的`Value`属性来读取一组单元格的值，例如：

Dim values As Variant
values = ws.Range("A1:B2").Value

最后需要记得关闭Excel文件，可以使用下面的代码：

wb.Close SaveChanges:=False

完整的示例代码：

Sub ReadExcel()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\path\to\file.xlsx")
    
    Dim ws As Worksheet
    Set ws = wb.Sheets("Sheet1")
    
    Dim value As Variant
    value = ws.Range("A1").Value
    Debug.Print value
    
    Dim values As Variant
    values = ws.Range("A1:B2").Value
    Debug.Print values(1, 2)
    
    wb.Close SaveChanges:=False
End Sub