为何VBA谷歌地图API同市测距正常跨市失效但时长计算正常

核心是VBA变量类型溢出：

• 你在TRAVELDISTANCE函数中将存储距离结果的meters变量声明为Integer类型，VBA中16位Integer的最大值仅为32767，对应距离最多32.767公里。
• 同城地址间距普遍在32公里以内，因此函数可以正常运行；跨城市距离大多超过32公里，赋值时直接触发溢出错误，导致函数无法返回结果。

你写的TRAVELTIME函数目前跨场景能正常运行只是巧合：它存储时长的seconds变量同样被声明为Integer，32767秒对应约9小时车程，你当前测试的跨城、跨州行程时长尚未超过9小时，因此暂时没有触发溢出，一旦计算车程超过9小时的长途路线，这个函数同样会报错。

将两个函数中存储数值结果的变量类型从Integer替换为Long即可。VBA中Long是32位整数，最大值为2147483647，对应可存储最多214万公里的距离、或约68年的时长，完全覆盖谷歌地图路线接口的所有返回场景。

修改后的核心代码片段：

' TRAVELDISTANCE函数中修改这行
Dim meters As Long

' TRAVELTIME函数中同步修改这行，避免后续长路线溢出
Dim seconds As Long

可选优化：建议在解析返回结果前先校验接口响应状态，避免地址解析失败、密钥配额耗尽等场景下直接取路由数据触发报错，示例判断逻辑：

If parsed("status") <> "OK" Then
    TRAVELDISTANCE = CVErr(xlErrValue)
    Exit Function
End If

内容的提问来源于stack exchange，提问作者little jimmy big pants