Special Offer: Buy 1 course, get 2nd free! Buy the 'Managing Office 365 Identities & Requirements' course w/ Accelerated TestPrep, and automatically receive the 'Enabling Office 365 Services' course FREE!
Sub Data_Transfer() Dim cn As Object '//I am using late binding for creating objects, this code will run on any version of Excel Set cn = CreateObject("ADODB.Connection") ' //This line will set the path of Ms.Access database, in this case it is assumed that Ms.Access DB will be in same folder as in Excel File. dbPath = Application.ActiveWorkbook.Path & "\SDOD.mdb" ' // This line will set the path of Active workbook dbWb = Application.ActiveWorkbook.FullName '// Get the Active sheet name, so that we can correctly Export data using this variable dbWs = Application.ActiveSheet.Name '// Set the connection, we are creating Excel workbook connection scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath ' //Another variable to hold worksheet name, but in this case it will //be in a format that is required to pass in open connection //method, which execute the SQL statement in next line dsh = "[" & "Sheet1" & "$]" '// Open the connection cn.Open scn '//Create SQL statement using proper sheet name dsh, created //before opening connection ssql = "INSERT INTO Candidate ([Source],[C_Name])" ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh '//Run the SQL cn.Execute ssql End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|DateSerial Function. I receive "Data mismatch" when adding "Between Date" criteria Expression||3||35|
|how to read data from all excel sheet and copy it in in Master sheet||2||22|
|Pull first name out of cell||2||25|
|VBA - How to copy the data from workbook to workbook masterfile in VBA?||18||28|
Join the community of 500,000 technology professionals and ask your questions.