[5分]连接EXCEL成功了，但是怎样可以读取里面任意单元格呢？

    Dim ExcelDB As New ADODB.Connection
    Dim RS As ADODB.Recordset
    Dim SheetName As String
    Dim strSQL As String

    Set ExcelDB = New ADODB.Connection
    Set RS = New Recordset
    If Application.Version < 12 Then
        ExcelDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;  Data Source=" & ExcelFileName & ";Extended Properties='Excel 8.0;HDR=No'"
    End If
    If Application.Version >= 12 Then
        ExcelDB.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelFileName & ";Extended Properties='Excel 12.0;HDR=NO';"
    End If
    Set RS = ExcelDB.OpenSchema(adSchemaTables)

    Do While Not RS.EOF
        SheetName = RS("Table_Name")
        'Debug.Print SheetName
        If Left(SheetName, 1) = "'" Then
            SheetName = Mid(SheetName, 2, Len(SheetName) - 3)
        Else
            SheetName = Mid(SheetName, 1, Len(SheetName) - 1)
        End If
        Debug.Print SheetName
        RS.MoveNext
    Loop

'怎么读取任意单元格的内容呢？

    RS.Close
    ExcelDB.Close
    Set ExcelDB = Nothing