VBA从单元格读取URL打开浏览器报错：自动添加HTTP前缀问题

你遇到的问题根源在于拼接URL时错误地给整个字符串添加了双引号（Chr(34)），Navigate方法不需要把URL用引号包裹，直接传入纯字符串即可。当你给URL加上双引号后，IE无法识别这是一个合法的URL，所以会自动尝试添加http://前缀，最终导致访问报错。

错误代码的核心问题 #

看你这段拼接逻辑：

InforOSURL = Chr(34) + Trim(wTokenUrl) + Trim(wTokenResource) + "?client_id=" + Trim(wClientId) + "&response_type=code&redirect_uri=" + Trim(wRedirecURI) + Chr(34)

你给最终的URL前后都加了双引号，生成的字符串会是类似 "https://xxx.com/xxx?param=xxx" 的格式，而Navigate方法只接受不带引号的纯URL字符串，这就是报错的关键原因。

修正后的代码 #

把前后的Chr(34)去掉，直接拼接纯URL内容即可，同时推荐用&代替+做字符串拼接（+在处理含数字的字符串时可能触发加法运算，导致意外问题）：

wClientId = ws.Range("C19")
wClientSecret = ws.Range("C20") ' 注：当前代码未用到该变量，可根据实际需求清理
wTokenUrl = ws.Range("C21")
wTokenResource = ws.Range("C22")
wRedirecURI = ws.Range("C23")

' 直接拼接纯URL，去掉多余的双引号
InforOSURL = Trim(wTokenUrl) & Trim(wTokenResource) & "?client_id=" & Trim(wClientId) & "&response_type=code&redirect_uri=" & Trim(wRedirecURI)
InforOSURL = Trim(InforOSURL)

Set browser = CreateObject("InternetExplorer.Application")
browser.Visible = True
browser.Navigate InforOSURL

额外验证小技巧 #

你可以在拼接后加一句弹窗代码，确认生成的URL格式是否正确：

MsgBox InforOSURL ' 弹出窗口查看拼接后的URL是否为无引号的合法格式

确认URL无误后再调用Navigate，就能正常打开浏览器访问目标地址了。

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