Question

我可以在共享的woorkbook中使用ADODB.Connections和ADODB.Recordset吗？我尝试运行一个宏，但我有运行时错误：外部表不是预期的格式。部分代码有效。代码：

Option Explicit

Sub proc()

Dim CnExcel As ADODB.Connection
Dim RstExcel As ADODB.Recordset
Dim user As String

Application.EnableEvents = False

user = Environ("USERNAME") 'that's working

    Range("A2").Select 'that's working
    Range(Selection, Selection.End(xlToRight)).Select 'that's working
    Range(Selection, Selection.End(xlDown)).Select 'that's working
    Selection.ClearContents 'that's working

Set CnExcel = New ADODB.Connection

With CnExcel
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Mode = adModeRead
    .CursorLocation = adUseClient
    .Properties("Data Source") = "C:\MB_Form.xlsm"
    .Properties("Extended Properties") = ("Excel 8.0;HDR=Yes;IMEX=1")
    .Open
End With

Set RstExcel = New ADODB.Recordset
RstExcel.Open "SELECT * FROM [Arkusz1$]", CnExcel

Dim i As Integer
i = 2

Do Until RstExcel.EOF
    If Not IsNull(RstExcel.Fields("PESEL").Value) Then
        Cells(i, 1).Value = RstExcel.Fields("ID").Value
        Cells(i, 2).Value = RstExcel.Fields("Name").Value
        Cells(i, 3).Value = RstExcel.Fields("City").Value
        i = i + 1
    End If
    RstExcel.MoveNext
Loop

CnExcel.Close

End Sub

谢谢！

Answer 1

您应该使用ACE OLEDB驱动程序并将Excel 12.0宏指定为类型：

With CnExcel
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Mode = adModeRead
    .CursorLocation = adUseClient
    .Properties("Data Source") = "C:\MB_Form.xlsm"
    .Properties("Extended Properties") = "Excel 12.0 Macro;HDR=Yes;IMEX=1"
    .Open
End With

共享工作簿中的ADODB连接和记录集

1 个答案: