Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Opening an Excel Spreadsheet with ADO

Sub Open_ExcelSpread()    Dim conn As ADODB.Connection    Set conn = New ADODB.Connection    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=" & CurrentProject.Path & _        "\Report.xls;" & _        "Extended Properties=Excel 8.0;"    conn.Close    Set conn = Nothing End Sub