Dim con As ADODB.Connection Dim rs As ADODB.Recordset Set con = New ADODB.Connection vPath = "localhost\MySite\counters\Book1.xlsm" con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & vPath & ";Readonly=False;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" con.Open
vPath = "localhost\MySite\counters\Book1.xlsm"
vpath = "C:\some path\some file.xlsm" 'or vpath = "\\server_name\shared_folder\some file.xlsm"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)