使用 Excel 作為數據庫從多個工作表中提取數據

Question

如果您建議我如何使用 ADODB 記錄集從多個 Excel 工作表中查詢和提取數據，那將非常有幫助。 下面是我的 VBA 腳本，它向我拋出“類型不匹配錯誤”。

VBA代碼：

Dim sSQLQry As String
Dim conn As New ADODB.connection
Dim mrs As New ADODB.Recordset
Dim DBpath As String
Dim sconnect As String

Private Sub Generate_Testcase_Click()
DBpath = ThisWorkbook.FullName
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBpath & ";HDR=Yes';"
conn.Open sconnect

sSQLQry = "SELECT TOP 1 [Sheet1$].EMPLOYEEID FROM [Sheet1$] INNER JOIN [Sheet2$] ON [Sheet1$].EMPLOYEEID =[Sheet2$].PPTID AND [Sheet2$].UNION_CD =[Sheet1$].UNID"

mrs.Open sSQLQry, conn, adOpenStatic, adLockReadOnly
MsgBox mrs.Fields(0) & " , " & mrs.Fields(1)
mrs.Close
conn.Close
End Sub

我也嘗試了以下查詢，但仍然出現同樣的錯誤。

sSQLQry = "SELECT TOP 1 [Sheet1$].EMPLOYEEID FROM [Sheet1$], [Sheet2$] WHERE [Sheet1$].EMPLOYEEID =[Sheet2$].PPTID AND [Sheet2$].UNION_CD =[Sheet1$].UNID"

請幫我解決問題。

Answer 1

最后，我發現了問題，兩列 [Sheet1$].EMPLOYEEID 和 [Sheet2$].PPTID 的格式不同。 一旦我將兩列都更改為相同的格式，問題就得到了解決。