VB脚本使用ADODB记录集

Question

我必须使用VB Scripts ADODB模型将数据从一个工作表插入另一个工作表。 到目前为止，我已经查询了excel并获得了包含多行值的记录集。 我必须将这些值插入一个空白的工作表中，说从最顶行开始的Sheet3。 请帮助我找到实现相同的方法，因为我是excel vba的新手

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

strQuery = "select * from [Sheet1$] where TEST_CASE_ID in ("'testcase_name'"))"

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