Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
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.
Join the community of 500,000 technology professionals and ask your questions.