我想在Excel工作簿中创build一个macros，将另一个工作簿中的表与DBX中相应的表进行比较

我对VBA非常不熟悉，但是我正在尝试创build一个macros和Excel工作簿，将另一个工作簿中的静态数据与SQL DBx中相应的表进行比较

我可以成功地从我的源工作簿中获取信息。 但是，如果数据types从数字更改为string，则某些数据不会从源工作簿复制。我还想复制标题。 我已经复制下面的这个子

我也希望创build每个表中不同的条目的输出？ 这可能吗

Sub Comparison() Sub Comp() ' ' Macro1 Macro ' Macro recorded Aking Dim aCtiveBook As String x = 1 Do While x <= 9 aCtiveBook = ThisWorkbook.Sheets("INPUT").Range("A1").Offset(x, 0) Dim cn As ADODB.Connection Dim rt As ADODB.Recordset Dim cm As ADODB.Command Set rt = New ADODB.Recordset Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source = " & aCtiveBook & ";" & _ "Extended Properties=Excel 8.0;" .Open Sheetq = ThisWorkbook.Sheets("INPUT").Range("B1").Offset(x, 0) Sheetn = ThisWorkbook.Sheets("INPUT").Range("C1").Offset(x, 0) rt.Open "Select * from" & "[" & Sheetq & "$" & "]", cn ThisWorkbook.Sheets(Sheetn).Select ThisWorkbook.Sheets(Sheetn).Range("A1:BA20000").Delete Sheets(Sheetn).Range("A2").CopyFromRecordset rt rt.Close rt.Open "Select * from [" & Sheetq & "$" & "A1:Z1" & "]", cn Sheets(Sheetn).Range("A1").CopyFromRecordset rt rt.Close End With x = x + 1 Loop End Sub