Гиперссылки в VBA
Я хочу создать кнопку в Excel, которая ссылается на:
http://datafeed.api.productserve.com/datafeed/download/apikey/50f70c7de11f99fe127d7ad4c8e37e31/cid/97,98,142,144 , …, 567,569 / fid / 4319 / columns / merchant_product_id, merchant_category, brand_name, product_name, mpn, search_price, aw_deep_link, технические характеристики, valid_from, valid_to, 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»: неверный вызов или аргумент процедуры
Гиперссылка ячейки ограничивает целевой URL 255 символами. Является ли ограничение персонажа тем, что вызывает проблему здесь, или есть еще одна проблема?
Я думаю ты прав. Вероятно, это слишком длинный, поскольку самый длинный, который я могу использовать до получения той же ошибки, – 1033 символа;
Sub Main() Dim h As String h = String(1034, "a") Debug.Print Len(h) ActiveWorkbook.FollowHyperlink h End Sub