excel - 这个 vba 代码有什么问题？

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

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