VBA中的超链接

时间:2014-10-15 09:26:07

标签: excel vba excel-vba

我想在Excel中创建一个链接到:

的按钮
  

http://datafeed.api.productserve.com/datafeed/download/apikey/50f70c7de11f99fe127d7ad4c8e37e31/cid/97,98,142,144,   ...   ,567569 / FID / 4319 /列/ merchant_product_id,merchant_category,BRAND_NAME,PRODUCT_NAME,MPN,search_price,aw_deep_link,规格,VALID_FROM日期,失效日期IN_STOCK,保修aw_product_id,merchant_image_url介绍/格式/ CSV /定界符/,/压缩/ gzip的/ adultcontent / 1 /

我在中间切出了一大段,但它只是用逗号分隔的一长串数字。总共URL长度为1939个字符。

将URL复制到浏览器中工作正常 - 它是一个下载链接,文件将按原样打开。

按钮的代码很简单:

Private Sub download_button_Click()

Dim feed_hyperlink As String
feed_hyperlink = *"http://data...  "*

ActiveWorkbook.FollowHyperlink feed_hyperlink

End Sub

当我运行该程序时,我收到以下错误:

  

运行时错误' 5':无效的过程调用或参数

超链接单元格会将目标网址限制为255个字符。字符是否限制了导致此问题的原因,还是存在其他问题?

1 个答案:

答案 0 :(得分:2)

我认为你是对的。它可能太久了,因为在获得相同错误之前我可以使用的最长的是1033个字符;

Sub Main()

    Dim h As String
    h = String(1034, "a")

    Debug.Print Len(h)

    ActiveWorkbook.FollowHyperlink h

End Sub