Сообщений в теме: 5

[Papikov]

Возникла такая проблема. Есть прайс от поставщиков в экселе и в нем есть ссылка на картинку в таком виде (наименование товара, а на наименование наложена ссылка на картинку).

Есть ли какойнить скрипт, чтобы вытащить из этой ссылки наименование картинки в соседнюю ячейку?

Вариант руками не катит, свыше 6000 наименований.

[badisoft]

А если сохранить этот "прайс от поставщиков" не в XLS-формате, а в CSV или вообще в TXT? Не будет ли ссылка на картинку находиться в совершенно формализованном месте строки этого файла? Это не рецепт, а просто умозрительное преположение, с проверки которого я бы начал, будь такая проблема у меня. Поможет или нет - не знаю.

[Papikov]

пробовал в тхт сохранять, ссылки вообще нет, просто наименование.

[badisoft]

Ну, значит я дал не работающий совет . Жаль. Следующим моим шагом было бы получить в обработку файл, т.е. написать программулю или модуль-подпрограмму для некой системы. Тринадцать лет назад я бы использовал дял этого 1С, т.к. писал себе конфигу под 7.5 и там была работа с экселевыми файлами. Правда, в обратную сторону, я "туда выводил". Но набор функций ДЛЯ был вполне прилично документирован, насколько помню.

Возвращаясь к реалиям - я бы снова обратился к 1С. Просто по привычке. А нормальный человек, как мне кажется, обратился бы к VBS. Ничего не подскажу, никогда не делал. Но ведь вектор это уже половина решения, правда?

PS. Чота я сразу не сообразил, это ж виндовые решения. Ну таки да. Для невинды я не знаю, что посоветовать.

[Papikov]

сохранил в xml, сейчас пробую обработать.

[R.Sergey]

Papikov,
Открываешь Сервис/Макрос/Редактор VB (правый ALT+F11)
Там в верхнем меню Insert/Module
Справа откроется белый лист
вставляешь туда

Function links(oCell) As String
Dim s$
On Error GoTo Exit_
    s = oCell.Hyperlinks(1).Address
    If Len(s) > 0 Then links = s
Exit_:
End Function

Сохраняешь
Потом в нужном тебе столбце пишешь =links(Адресс ячейки со ссылкой)
Нажимаешь Энтер

Ну как протянуть по другим ячейкам думаю догадаешься )))