Snasui Excel Forum

Code: Select all

Dim conStr As String
Dim adbC As ADODB.Connection
Dim adrS As ADODB.Recordset

conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Excel.xlsb;Extended Properties=Excel 12.0;HDR=YES;"

       Set adbC = New ADODB.Connection
        With adbC
            .CursorLocation = adUseClient
            .Open conStr
            .CommandTimeout = 0
            Set adrS = .Execute("SELECT * FROM `Data$`")
        End With
        .
        .
        .
        .

adrS.Close
adbC.Close
Set adrS = Nothing
Set adbC = Nothing

Code: Select all

Visual Basic For Applications
Microsoft Excel 14.0 Object Library
OLE Automation
Microsoft Office 14.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Access 14.0 Object Library
Microsoft Script Control 1.0
Microsoft Scriptlet Library
Microsoft ActiveX Data Objects 6.1 Library
Microsoft ActiveX Data Objects Recordset 6.0 Library

Code: Select all

conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Excel.xlsb;Extended Properties=""Excel 12.0;HDR=YES;"""