Excel VBA：如何拆分超长URL以提升代码可读性？

在VBA里拆分带多个Marker的谷歌地图长URL，得用VBA官方支持的续行符（空格+下划线），但要遵循正确语法：每个URL分段单独用双引号包裹，再用&连接，不能直接拆分整串URL。

直接拆分示例 #

bot.Get "https://maps.googleapis.com/maps/api/staticmap?" & _
        "center=New+York,NY" & _
        "&zoom=10" & _
        "&size=600x300" & _
        "&markers=color:blue%7Clabel:S%7C40.702147,-74.015794" & _
        "&markers=color:green%7Clabel:G%7C40.711614,-74.012318" & _
        "&key=YOUR_API_KEY"

关键注意点 #

• 续行符必须是空格+下划线，下划线前不能缺空格
• 每段URL都要放在双引号内，通过&拼接前后分段
• 别用HTML换行符或其他非VBA语法，编译器只认官方续行规则

更易维护的变量拆分法 #

把每个Marker和基础URL单独定义为变量，再拼接成完整URL，方便后续修改单个参数：

Dim baseUrl As String
Dim marker1 As String
Dim marker2 As String
Dim fullUrl As String

baseUrl = "https://maps.googleapis.com/maps/api/staticmap?center=New+York,NY&zoom=10&size=600x300"
marker1 = "&markers=color:blue%7Clabel:S%7C40.702147,-74.015794"
marker2 = "&markers=color:green%7Clabel:G%7C40.711614,-74.012318"

fullUrl = baseUrl & marker1 & marker2 & "&key=YOUR_API_KEY"

bot.Get fullUrl

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