Excel VBA传入PDF路径变量时触发运行时/缺失模块错误

代码报错的核心是字符串拼接逻辑错误：你在M公式里写的File.Contents(""var"")，是把字面量文本var作为文件路径传给Power Query，根本没有把VBA变量var存储的真实路径值拼入公式。Power Query执行时会查找名为var的不存在文件，自然抛出运行错误、模块缺失类提示。
硬编码路径可以正常执行，是因为拼接进公式的是完整有效磁盘路径，Power Query能正常定位读取PDF文件。

• 校验VBA读取的路径有效性：在路径赋值语句后加Debug.Print var，在VBA编辑器的立即窗口查看输出值，确认是无多余空格、无换行符、文件真实存在的PDF绝对路径，排除单元格内容脏数据问题。
• 校验最终生成的M公式：把拼接完成的Formula字符串输出到立即窗口，检查File.Contents()括号内的内容是否为真实PDF路径，而非字面量"var"。
• 组件校验：因为硬编码模式可以正常运行，这一步基本可跳过，仅需确认本机Power Query的PDF解析组件无损坏即可。

修正字符串拼接逻辑，将VBA变量存储的真实路径嵌入M公式，同时增加基础的路径合法性校验，避免无效路径报错。修正后的参考代码如下：

Dim pdfPath As String
' 读取指定工作表A1单元格的PDF路径，去除首尾多余空格，把"配置页"换成你存路径的实际工作表名
pdfPath = Trim(ThisWorkbook.Sheets("配置页").Range("A1").Value)
' 前置校验路径是否存在
If Dir(pdfPath) = "" Then
    MsgBox "配置的PDF文件路径无效，请检查A1单元格内容", vbCritical
    Exit Sub
End If

ActiveWorkbook.Queries.Add Name:="Table001 (Page 2)", Formula:= _
        "let" & Chr(13) & Chr(10) & "    Source = Pdf.Tables(File.Contents(""" & pdfPath & """), [Implementation=""1.3""])," & Chr(13) & Chr(10) & "    Table001 = Source{[Id=""Table001""]}[Data]," & Chr(13) & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Table001,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5""" & _
        ", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}, {""Column12"", type text}, {""Column13"", type text}, {""Column14"", type text}, {""Column15"", type text}, {""Column16"", type text}})" & Chr(13) & Chr(10) & "in" & Chr(13) & Chr(10) & "    #""Changed Type"""
' 后续Table002等其他查询的添加逻辑，按同样的拼接规则传入pdfPath变量即可

注意事项 #

• 不要用var作为变量名，容易和VBA内置类型声明、保留字产生隐性冲突，使用语义明确的变量名（如pdfPath）可减少莫名报错。
• 读取单元格路径时必须明确指定所属工作表，不要直接写Range("A1")，避免当前激活工作表不是配置页时读错值。
• 拼接路径时VBA代码里的""" & pdfPath & """是固定写法：VBA中两个连续双引号代表字符串内的一个双引号，这样拼接后最终生成的M公式里，路径会被正确的双引号包裹，和硬编码时的格式完全一致。

内容的提问来源于stack exchange，提问作者M.Khurram