vb怎样读取EXCEL指定行的数据

Question

比如取第三行以下的数据

Answer 1

    Dim sFileName       As String 'Excel 文件路径
    Dim oXlsApp         As Excel.Application
    Dim oXlsWorkBook    As Excel.workBook
    Dim oXlsWorkSheet   As Excel.workSheet
    Dim sValue          As String
    Dim lRowIndex       As Long  'Excel 表中单元格的行号
    Dim lColIndex       As Long  'Excel 表中单元格的列号
    
    On Error GoTo ErrHnd
    
    Set oXlsApp = New Excel.Application
    
    Set oXlsWorkBook = oXlsApp.Workbooks.Open(sFileName)
    
    Set oXlsWorkSheet = oXlsWorkBook.Worksheets(1)    sValue = Trim(oXlsWorkSHeet.Cells(lRowIndex,lColIndex).Vlue & ")    oXlsWorkBook .Close
    oXlsApp.Quit    Exit Function
    
ErrHnd:
    ShowMsg (Err.Description)