Question

我正在接受

运行时错误5：无效的过程调用或参数

在这一行：

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

Answer 2

<强> SOLUTION：

"Text;" & User_File_Path & User_File_Name

即

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

运行时错误5：无效的过程调用或参数

2 个答案: