sql примеры Лист запроса Excel в MS-Access VBA(с использованием набора записей ADODB)



vba access 2010 примеры (2)

Я хотел бы запросить таблицу Excel в VBA и указать условия.

Простой запрос "SELECT * FROM [PCR$]" работает отлично, но я не знаю, как добавить предложение WHERE.

Я пробовал cmd2.CommandText = "SELECT * FROM [PCR$] WHERE ([B1] IS NOT NULL)" но затем он жалуется на отсутствие параметров.

Это полный код:


Dim rs2 As New ADODB.Recordset
Dim cnn2 As New ADODB.Connection
Dim cmd2 As New ADODB.Command
Dim intField As Integer
Dim strFile As String

strFile = fncOpenFile
If strFile = "" Then Exit Sub

With cnn2
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source='" & strFile & "'; " & "Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
    .Open
End With

Set cmd2.ActiveConnection = cnn2
cmd2.CommandType = adCmdText
cmd2.CommandText = "SELECT * FROM [PCR$]"
rs2.CursorLocation = adUseClient
rs2.CursorType = adOpenDynamic
rs2.LockType = adLockOptimistic

rs2.Open cmd2

Answer #1

Поскольку у вас есть опция HDR=Yes , имя столбца должно быть данными в первой строке.

http://support.microsoft.com/kb/316934


Answer #2

В строке подключения вы говорите

 Excel 8.0;HDR=Yes

Это означает, что первая строка будет рассматриваться как заголовок, независимо от того, что она содержит. Если вы хотите использовать F1, F2 и т. Д., Скажите

Excel 8.0;HDR=No




vba