Private Sub Workbook_Open() Dim Myconnection As Connection Dim Myrecordset As Recordset Dim Myworkbook As String Dim strSQL As String Dim i As Integer Set Myconnection = New Connection Set Myrecordset = New Recordset 'Identify the workbook you are referencing Myworkbook = Application.ThisWorkbook.FullName 'Open connection to the workbook Myconnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Myworkbook & ";"
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.