有没有办法在VBA中逐行读取xls文件？

Sub ReadXLSFile()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim row As Integer
    
    ' 打开xls文件
    Set wb = Workbooks.Open("文件路径\文件名.xls")
    
    ' 选择要读取的工作表
    Set ws = wb.Sheets("工作表名称")
    
    ' 从第一行开始逐行读取数据
    row = 1
    Do While ws.Cells(row, 1).Value <> ""
        ' 读取第一列的数据
        Dim data As String
        data = ws.Cells(row, 1).Value
        
        ' 在这里可以对读取到的数据进行处理或者输出
        Debug.Print data
        
        ' 继续读取下一行
        row = row + 1
    Loop
    
    ' 关闭xls文件
    wb.Close
End Sub