Question

这个代码几个小时前工作正常，我做了一些更改，它停止了工作。我回溯了所有的变化并到达了我开始的地方 - 我从互联网上下载的代码片段之前工作正常。这是代码

   Dim oCn As ADODB.Connection
   Dim oRS As ADODB.Recordset
   Dim ConnString As String
   Dim SQL As String
   Dim qt As QueryTable
   ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Book1.xlsx';Extended Properties=Excel 12.0;"
   Set oCn = New ADODB.Connection
   oCn.ConnectionString = ConnString
   oCn.Open
   SQL = "Select * from [Sheet1$]"
   Set oRS = New ADODB.Recordset
   oRS.Source = SQL
   oRS.ActiveConnection = oCn
   oRS.Open
   Set qt = Worksheets(1).QueryTables.Add(Connection:=oRS, _
   Destination:=Range("A2"))
   oRS.Close
   Set oRS = Nothing
   Set oCn = Nothing

当我运行它时，我没有收到任何错误，输出就不会出现在目的地。谁能告诉我我做错了什么？

这个vba代码有什么问题？

0 个答案: