如何將表名稱傳遞給VBA中的sql查詢

我正在使用下面的代碼將MDB數據庫中的表加載到Excel工作表中。我試圖將表名稱定義爲變量並將其傳遞給查詢，但我在下面的代碼中出現錯誤。我如何在VBA中做到這一點？如何將表名稱傳遞給VBA中的sql查詢

Public Sub ReadMdb() 

    Dim cn As Object, rs As Object 
    Dim intColIndex As Integer 
    Dim DBFullName As String 
    Dim TargetRange As Range 

    DBFullName = Application.GetOpenFilename() 

    On Error GoTo Oops 

    Application.ScreenUpdating = False 

    Set TargetRange = Sheets("Sheet1").Range("A1") 

    Set cn = CreateObject("ADODB.Connection") 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName 
    Set rs = CreateObject("ADODB.Recordset") 

    Dim tableName As String 
    tableName = "Students" 

    rs.Open "SELECT * FROM tableName", cn, , , adCmdText 


    ' Write the field names 
    For intColIndex = 0 To rs.Fields.Count - 1 
    TargetRange.Offset(1, intColIndex).Value = rs.Fields(intColIndex).Name 
    Next 

    ' Write recordset 
    TargetRange.Offset(1, 0).CopyFromRecordset rs 

LetsContinue: 
    Application.ScreenUpdating = True 
    On Error Resume Next 
    rs.Close 
    Set rs = Nothing 
    cn.Close 
    Set cn = Nothing 
    On Error GoTo 0 
    Exit Sub 
Oops: 
    MsgBox "Error Description :" & Err.Description & vbCrLf & _ 
     "Error at line  :" & Erl & vbCrLf & _ 
     "Error Number  :" & Err.Number 
    Resume LetsContinue 


End Sub

來源

2014-08-27 Vahid

你可以插入表名到SQL：

rs.Open "SELECT * FROM [" & tableName & "]", cn, , , adCmdText

來源

2014-08-27 08:26:41 4dmonster

非常感謝Mr.4DMonster。你拯救了我的一天。 – Vahid 2014-08-27 08:28:48

考慮到你返回所有行和所有列，你可以使用命令類型adCmdTable那麼你不需要任何SQL你只需命名你想要的表格。

來源

2014-08-27 09:01:38 user1644564

謝謝，這對目前的問題是有意義的。 – Vahid 2014-08-27 09:03:57

如何將表名稱傳遞給VBA中的sql查詢

回答

相關問題