excel vba将数据复制到最顶级的excel行

我查询了一个使用ADODB的Excel，并有一组数据应该复制到第二个工作表，但是当我试图插入数据时，它总是坐在第二行忽略第一个。 我认为这是因为第一行始终被视为标题。 是否有任何方法通过创build第一行作为标题和随后的值（关于我已经写在下面的代码）的数据插入到Excel中。

Exceldb = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\VAS_AUTOMATION_v1.1\Book1.xlsx;Extended Properties=""Excel 12.0;HDR=Yes;"";" Dim sDBConnectionString, i, iCol Set con = CreateObject("ADODB.Connection") sDBConnectionString = Exceldb con.ConnectionString = sDBConnectionString con.Open If Err.Number <> 0 Then For i = 1 to 4 Err.Clear wait 5 con.Open If Err.Number = 0 Then msgbox "opened" End If Next else msgbox "opened" End If strROW = "UNIXOPERATIONS_16" strROWID = "'" & strROW & "'" strQuery = "INSERT INTO [Sheet3$A1:A1] (" & strROWID1 & ") Values(" & strROWID & ")" Set strRecordSet = CreateObject("ADODB.Recordset") Dim objCmd 'As New ADODB.Command Set objCmd = CreateObject("ADODB.Command") Set objCmd.ActiveConnection = con objCmd.CommandType = 1 objCmd.CommandText = strQuery Set strRecordSet = objCmd.Execute con.Close