能否从Power Query M调用Excel VBA函数获取文本框内JSON数据？

核心问题解答 #

可以从Power Query M中获取VBA提取的文本框内容，但Power Query没有原生支持直接调用VBA函数的能力，需要通过「VBA将结果写入单元格/名称，再让Power Query读取」的间接方式实现。

方法一：VBA提取文本框内容到单元格，Power Query读取 #

这是最易实现的方案，步骤如下：

1. 编写VBA宏提取文本框内容
   假设文本框在Sheet1中，名称为TextBox1，编写宏将内容写入Sheet1!A1单元格：

   Sub ExtractTextBoxContent()
       Sheet1.Range("A1").Value = Sheet1.TextBox1.Text
   End Sub
   

   可给宏添加按钮，或设置为打开工作簿时自动运行（在ThisWorkbook的Workbook_Open事件中调用该宏），确保单元格内容与文本框同步。

2. Power Query读取单元格内容
   在Power Query中新建查询，用以下M代码读取目标单元格：

   let
       Source = Excel.CurrentWorkbook(){[Name="Sheet1"]}[Content],
       TextBoxContent = Source{0}[Column1] // 对应Sheet1的A1单元格
   in
       TextBoxContent
   

   获取内容后，直接用Json.Document(TextBoxContent)即可解析JSON。

方法二：通过VBA自定义函数（UDF）传递文本框内容 #

1. 编写VBA自定义函数
   这个函数可直接返回指定文本框的内容：

   Function GetTextBoxContent(TextBoxName As String, SheetName As String) As String
       GetTextBoxContent = ThisWorkbook.Sheets(SheetName).Shapes(TextBoxName).TextFrame2.TextRange.Text
   End Function
   

2. 在Excel单元格调用UDF
   在任意单元格输入公式，比如=GetTextBoxContent("TextBox1","Sheet1")，即可得到文本框内容。
3. Power Query读取该单元格
   参考方法一的M代码，读取包含UDF结果的单元格即可。

针对你的JSON场景的更优替代方案 #

无需依赖文本框，推荐两种更便捷的方式解决大JSON的存储与解析问题：

• 将JSON存入Excel名称管理器
  1. 按Ctrl+F3打开名称管理器，点击「新建」，设置名称（如BigJSON），在「引用位置」中直接粘贴完整JSON内容（支持远大于单元格长度的文本）。
  2. Power Query读取该名称：

     let
         Source = Excel.CurrentWorkbook(){[Name="BigJSON"]}[Content],
         JSONContent = Source{0}[Value],
         ParsedJSON = Json.Document(JSONContent)
     in
         ParsedJSON
     

• 直接将JSON内嵌到Power Query代码中
  如果JSON内容固定，直接把完整JSON复制到M代码里：

  let
       JSONContent = "这里粘贴你的完整JSON文本",
       ParsedJSON = Json.Document(JSONContent)
  in
       ParsedJSON
  

  这种方式完全脱离外部依赖，分享给其他用户时无需调整任何路径或文件。

内容的提问来源于stack exchange，提问作者Gregory Dvorkin