excel - 运行时错误 5 : Invalid Procedure Call or Argument

Question

我得到了

Run Time Error 5: Invalid Procedure Call or Argument

在这条线上:

With ActiveSheet.QueryTables.Add(Connection:=User_File_Path, Destination:=Range("$A$1"))

我在该行之前有一个消息框，告诉我正在填充的 User_File_Path，当我将鼠标悬停在 Connection:=User_File_Path 上时，它也会显示文件路径......不知道如何解决这个问题。任何帮助表示赞赏!

Answer 1

试试这样:

With ActiveSheet
      Dim someTable As QueryTable
      Set someTable = .QueryTables.Add(Connection:=User_File_Path, _
                                          Destination:=Range("$A$1"))
End With

这是 QueryTables.Add() 的 MSDN 文章方法:

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/querytables-add-method-excel

如果您的连接是本地 csv 文件，则此方法有效:

Public Sub TestMe()   

    Dim someTable As QueryTable
    Set someTable = ActiveSheet.QueryTables.Add(Connection:= _
                    "TEXT;C:\MyText.csv", _
                    Destination:=Range("$A$1"))

    someTable.Refresh
End Sub