Push data from Excel to Access database
问题 I was looking for a way to push the data from Excel to an Access database. I found the code below, but I have no idea how to improve it. Dim wsQS As Worksheet Dim sConnect As String Dim sCommand As String Dim adoCn As ADODB.Connection Set wsQS = Worksheets("QueryStrings") Set adoCn = New ADODB.Connection sConnect = wsQS.Range("rngConnect").Value sCommand = wsQS.Range("rngCommand").Value ' Get ADO connection to the workbook adoCn.Open sConnect ' Append data from Excel worksheet adoCn.Execute