Возникла такая проблема. Есть прайс от поставщиков в экселе и в нем есть ссылка на картинку в таком виде (наименование товара, а на наименование наложена ссылка на картинку).
Есть ли какойнить скрипт, чтобы вытащить из этой ссылки наименование картинки в соседнюю ячейку?
Вариант руками не катит, свыше 6000 наименований.
0
Проблемы с экселем
Автор Papikov, Dec 14 2011 05:24 PM
Сообщений в теме: 5
#1
Отправлено 14 December 2011 - 05:24 PM
#2
Отправлено 14 December 2011 - 06:45 PM
А если сохранить этот "прайс от поставщиков" не в XLS-формате, а в CSV или вообще в TXT? Не будет ли ссылка на картинку находиться в совершенно формализованном месте строки этого файла? Это не рецепт, а просто умозрительное преположение, с проверки которого я бы начал, будь такая проблема у меня. Поможет или нет - не знаю.
http://cpu.badisoft.ru (тестовый сайт), http://badisoft.ru (модули)
#3
Отправлено 14 December 2011 - 07:03 PM
пробовал в тхт сохранять, ссылки вообще нет, просто наименование.
#4
Отправлено 14 December 2011 - 07:17 PM
Ну, значит я дал не работающий совет . Жаль. Следующим моим шагом было бы получить в обработку файл, т.е. написать программулю или модуль-подпрограмму для некой системы. Тринадцать лет назад я бы использовал дял этого 1С, т.к. писал себе конфигу под 7.5 и там была работа с экселевыми файлами. Правда, в обратную сторону, я "туда выводил". Но набор функций ДЛЯ был вполне прилично документирован, насколько помню.
Возвращаясь к реалиям - я бы снова обратился к 1С. Просто по привычке. А нормальный человек, как мне кажется, обратился бы к VBS. Ничего не подскажу, никогда не делал. Но ведь вектор это уже половина решения, правда?
PS. Чота я сразу не сообразил, это ж виндовые решения. Ну таки да. Для невинды я не знаю, что посоветовать.
Возвращаясь к реалиям - я бы снова обратился к 1С. Просто по привычке. А нормальный человек, как мне кажется, обратился бы к VBS. Ничего не подскажу, никогда не делал. Но ведь вектор это уже половина решения, правда?
PS. Чота я сразу не сообразил, это ж виндовые решения. Ну таки да. Для невинды я не знаю, что посоветовать.
http://cpu.badisoft.ru (тестовый сайт), http://badisoft.ru (модули)
#5
Отправлено 14 December 2011 - 07:19 PM
сохранил в xml, сейчас пробую обработать.
#6
Отправлено 16 December 2011 - 01:16 PM
Papikov,
Открываешь Сервис/Макрос/Редактор VB (правый ALT+F11)
Там в верхнем меню Insert/Module
Справа откроется белый лист
вставляешь туда
Сохраняешь
Потом в нужном тебе столбце пишешь =links(Адресс ячейки со ссылкой)
Нажимаешь Энтер
Ну как протянуть по другим ячейкам думаю догадаешься )))
Открываешь Сервис/Макрос/Редактор 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(Адресс ячейки со ссылкой)
Нажимаешь Энтер
Ну как протянуть по другим ячейкам думаю догадаешься )))