Добрый день! Массово заливаю контент для Wildberries. Поставщику пришло в голову запихнуть первую и последнюю фотку в гиперссылку для красоты. Эта красота не схватывается как ссылка. Нашел макросы которые вытаскивают ссылки из гиперссылок, пробовал разные варианты, все в принципе сработали одинаково. Ссылки они вытаскивали, браузер их воспринимает, но Wildberries отказывается ссылаясь на "неверный URL". Сравнивая первоначальные и "вытащенные" макросом ссылки заметил разницу. "Вытащенные" короче. Все они удаляют какие-то % из ссылки. Пример: Было: https://timotrader.ru/assets....00).jpg Стало: https://timotrader.ru/assets/image/catalog/leyki/0034 эксц. (1600).jpg
Думал может просто сократить вторую ссылку, но такого массового решения дл Excel не нашел. Может что-то поменять надо в исходном макросе? Не шарю в этом. Подскажите, пожалуйста!
Последний макрос
Цитата
Sub Extracthyperlinks() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng If Rng.Hyperlinks.Count > 0 Then Rng.Value = Rng.Hyperlinks.Item(1).Address End If Next End Sub
Добрый день! Массово заливаю контент для Wildberries. Поставщику пришло в голову запихнуть первую и последнюю фотку в гиперссылку для красоты. Эта красота не схватывается как ссылка. Нашел макросы которые вытаскивают ссылки из гиперссылок, пробовал разные варианты, все в принципе сработали одинаково. Ссылки они вытаскивали, браузер их воспринимает, но Wildberries отказывается ссылаясь на "неверный URL". Сравнивая первоначальные и "вытащенные" макросом ссылки заметил разницу. "Вытащенные" короче. Все они удаляют какие-то % из ссылки. Пример: Было: https://timotrader.ru/assets....00).jpg Стало: https://timotrader.ru/assets/image/catalog/leyki/0034 эксц. (1600).jpg
Думал может просто сократить вторую ссылку, но такого массового решения дл Excel не нашел. Может что-то поменять надо в исходном макросе? Не шарю в этом. Подскажите, пожалуйста!
Последний макрос
Цитата
Sub Extracthyperlinks() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng If Rng.Hyperlinks.Count > 0 Then Rng.Value = Rng.Hyperlinks.Item(1).Address End If Next End Sub
Sub Extracthyperlinks() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng If Rng.Hyperlinks.Count > 0 Then Rng.Value = Rng.Hyperlinks.Item(1).Address Rng.Value = Left(Rng.Value, InStr(Rng.Value, "%") - 1) End If Next End Sub
[/vba]
как-то так [vba]
Код
Sub Extracthyperlinks() 'Updateby Extendoffice Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng If Rng.Hyperlinks.Count > 0 Then Rng.Value = Rng.Hyperlinks.Item(1).Address Rng.Value = Left(Rng.Value, InStr(Rng.Value, "%") - 1) End If Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
