Microsoft ACE OLEDB 12.0 connection strings

Using Excel Sheet as a data source, and handle it through a connection object.


Dim con As ADODB.Connection

Dim rs As ADODB.Recordset

Set con = New ADODB.Connection

 

With con

.Provider = "Microsoft.ACE.OLEDB.12.0"

.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" &

_"Extended Properties='Excel 12.0 Macro;HDR=YES'"

.Open

End With

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s