如何在Excel表格中自动调用Proff API填充企业营收数据？

Power Query 方案 #

• 将现有表格导入Power Query：选中表格区域，点击「数据」选项卡→「从表格/范围」，进入Power Query编辑器。
• 假设你已创建的营收获取函数名为GetRevenueFromProff（参数为组织编号），点击「添加列」→「自定义列」，输入公式：

  = GetRevenueFromProff([Org])
  

• 删除原有的Revenue列，将新生成的自定义列重命名为「Revenue」。
• 点击「关闭并上载」，把处理后的数据加载回Excel。后续只需右键表格选择「刷新」，或通过「数据」→「连接属性」设置定时刷新，就能自动更新新增Org编号对应的营收数据。

VBA 方案 #

• 按Alt+F11打开VBA编辑器，找到目标工作表的模块（如Sheet1），粘贴以下代码：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 假设Org列是A列，Revenue列是B列，可根据实际列调整
      If Target.Column = 1 And Target.Cells.Count = 1 Then
          On Error Resume Next
          ' 替换为你已实现的Proff API调用函数名
          Target.Offset(0, 1).Value = GetRevenueFromProff(Target.Value)
          On Error GoTo 0
      End If
  End Sub
  

• 确保你已在VBA模块中定义好GetRevenueFromProff函数（接收组织编号，返回对应营收数值）。
• 将文件保存为启用宏的工作簿（.xlsm格式），之后在Org列输入编号时，Revenue列会自动填充对应数据。

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