Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|TO make secondary axis in pivot chart by Series Name||3||9|
|access to sql migration||5||22|
|Troubleshooting Save_Record_Click() VBA||6||16|
|Dll Created For Access App cannot locate web services configuration info in App.config file||19||20|