Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавить ссылку на фото в прайс для выгрузки товара - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить ссылку на фото в прайс для выгрузки товара (Формулы/Formulas)
Добавить ссылку на фото в прайс для выгрузки товара
vaadim Дата: Четверг, 24.11.2016, 01:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте
прошу помощи, так как сам не могу разобраться
у меня есть файл, для выгрузки товара на сайт
он готов, только в нем по 1й ссылке на фото
в реальности к каждой товарной позиции по 2 или 3 фото идет
есть второй файл ексель, где указаны по 3 фото, и к ним артикул
нужно сделать так
объединить ссылки на фото, чтобы было 2 столбца- 1й артикул(остается без изменений), 2й стобик, это ссилка на фото запетая пробел следующая ссылка на фото -пример (http://ddd.com.ua/img/PSM0203.jpg, http://ddd.com.ua/img/PSM02033.jpg, http://ddd.com.ua/img/PSM10203.jpg,)

дальше нужно эту ссылку на фотки по артикулу добавить у файл для выгрузки в столбик picture

ссылка на скачивание файла для импорта удалено

ссылка на скачивание файла с фото удалено
добавляю ссылкой, так как файл большой, не могу загрузить

спасибо
 
Ответить
СообщениеЗдравствуйте
прошу помощи, так как сам не могу разобраться
у меня есть файл, для выгрузки товара на сайт
он готов, только в нем по 1й ссылке на фото
в реальности к каждой товарной позиции по 2 или 3 фото идет
есть второй файл ексель, где указаны по 3 фото, и к ним артикул
нужно сделать так
объединить ссылки на фото, чтобы было 2 столбца- 1й артикул(остается без изменений), 2й стобик, это ссилка на фото запетая пробел следующая ссылка на фото -пример (http://ddd.com.ua/img/PSM0203.jpg, http://ddd.com.ua/img/PSM02033.jpg, http://ddd.com.ua/img/PSM10203.jpg,)

дальше нужно эту ссылку на фотки по артикулу добавить у файл для выгрузки в столбик picture

ссылка на скачивание файла для импорта удалено

ссылка на скачивание файла с фото удалено
добавляю ссылкой, так как файл большой, не могу загрузить

спасибо

Автор - vaadim
Дата добавления - 24.11.2016 в 01:29
vaadim Дата: Пятница, 25.11.2016, 23:15 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
я так понимаю такое сделать не реально?)
 
Ответить
Сообщениея так понимаю такое сделать не реально?)

Автор - vaadim
Дата добавления - 25.11.2016 в 23:15
Pelena Дата: Пятница, 25.11.2016, 23:36 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9842
Репутация: 2252 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Внешние ссылки на файлы на форуме запрещены. Готовьте небольшие примеры и прикладывайте сюда


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВнешние ссылки на файлы на форуме запрещены. Готовьте небольшие примеры и прикладывайте сюда

Автор - Pelena
Дата добавления - 25.11.2016 в 23:36
vaadim Дата: Вторник, 29.11.2016, 15:48 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Внешние ссылки на файлы на форуме запрещены. Готовьте небольшие примеры и прикладывайте сюда

добавил
только расскажите как так сделать, потому что там я добавил 60 товаров, а в жизни их больше 400

1й - файл - файла для импорта
2й - файл с фото
К сообщению приложен файл: 9128454.xlsx(58Kb) · 9518936.xlsx(12Kb)
 
Ответить
Сообщение
Внешние ссылки на файлы на форуме запрещены. Готовьте небольшие примеры и прикладывайте сюда

добавил
только расскажите как так сделать, потому что там я добавил 60 товаров, а в жизни их больше 400

1й - файл - файла для импорта
2й - файл с фото

Автор - vaadim
Дата добавления - 29.11.2016 в 15:48
Udik Дата: Вторник, 29.11.2016, 17:28 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1202
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается
[vba]
Код

Option Explicit

Public Sub getURL()
Dim wb As Workbook
Dim oDic As Object
Dim rng1 As Range, unoCell As Range
Dim rowLast As Long

Workbooks.Open Filename:=ThisWorkbook.Path & "\ссылка.xlsx" 'имя файла
Set wb = ActiveWorkbook
rowLast = Cells(Rows.Count, 1).End(xlUp).Row
With wb.Worksheets(1)
Set rng1 = .Range(.Cells(2, 1), .Cells(rowLast, 1))
End With

Set oDic = CreateObject("Scripting.Dictionary")
oDic.CompareMode = 1
For Each unoCell In rng1
If Not oDic.exists(unoCell.Value) Then
oDic.Add unoCell.Value, unoCell.Offset(0, 1).Value & ", " & unoCell.Offset(0, 2).Value & ", " & unoCell.Offset(0, 3).Value
End If
Next
With ThisWorkbook.Worksheets(1)
rowLast = .Cells(Rows.Count, 17).End(xlUp).Row
Set rng1 = .Range(.Cells(2, 17), .Cells(rowLast, 17))
End With
For Each unoCell In rng1
If unoCell.Value <> "" Then
If oDic.exists(unoCell.Value) Then
unoCell.Offset(0, -1).Value = oDic(unoCell.Value)
End If
End If
Next
wb.Close
End Sub
[/vba]
К сообщению приложен файл: 9697381.xlsm(65Kb) · 2941434.xlsx(13Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеНу так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается
[vba]
Код

Option Explicit

Public Sub getURL()
Dim wb As Workbook
Dim oDic As Object
Dim rng1 As Range, unoCell As Range
Dim rowLast As Long

Workbooks.Open Filename:=ThisWorkbook.Path & "\ссылка.xlsx" 'имя файла
Set wb = ActiveWorkbook
rowLast = Cells(Rows.Count, 1).End(xlUp).Row
With wb.Worksheets(1)
Set rng1 = .Range(.Cells(2, 1), .Cells(rowLast, 1))
End With

Set oDic = CreateObject("Scripting.Dictionary")
oDic.CompareMode = 1
For Each unoCell In rng1
If Not oDic.exists(unoCell.Value) Then
oDic.Add unoCell.Value, unoCell.Offset(0, 1).Value & ", " & unoCell.Offset(0, 2).Value & ", " & unoCell.Offset(0, 3).Value
End If
Next
With ThisWorkbook.Worksheets(1)
rowLast = .Cells(Rows.Count, 17).End(xlUp).Row
Set rng1 = .Range(.Cells(2, 17), .Cells(rowLast, 17))
End With
For Each unoCell In rng1
If unoCell.Value <> "" Then
If oDic.exists(unoCell.Value) Then
unoCell.Offset(0, -1).Value = oDic(unoCell.Value)
End If
End If
Next
wb.Close
End Sub
[/vba]

Автор - Udik
Дата добавления - 29.11.2016 в 17:28
vaadim Дата: Вторник, 29.11.2016, 22:32 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается

а можно подробнее что и где прописывается? куда этот код вставлять, а то честно, ничего не понял)
получилось супер!)
+ в репутацию поставил)
 
Ответить
Сообщение
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается

а можно подробнее что и где прописывается? куда этот код вставлять, а то честно, ничего не понял)
получилось супер!)
+ в репутацию поставил)

Автор - vaadim
Дата добавления - 29.11.2016 в 22:32
Udik Дата: Среда, 30.11.2016, 12:51 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1202
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
что и где прописывается?

В этой строке
[vba]
Код
Workbooks.Open Filename:=ThisWorkbook.Path & "\ссылка.xlsx" 'имя файла
[/vba]
ссылка.xlsx - имя файла, если будет файл с другим именем, то изменить соответственно.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
что и где прописывается?

В этой строке
[vba]
Код
Workbooks.Open Filename:=ThisWorkbook.Path & "\ссылка.xlsx" 'имя файла
[/vba]
ссылка.xlsx - имя файла, если будет файл с другим именем, то изменить соответственно.

Автор - Udik
Дата добавления - 30.11.2016 в 12:51
vaadim Дата: Среда, 30.11.2016, 22:00 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
В этой строке

а эту строку где взять?
вот я скачал 2 файла, которые были выше у вложении, дальше что?
 
Ответить
Сообщение
В этой строке

а эту строку где взять?
вот я скачал 2 файла, которые были выше у вложении, дальше что?

Автор - vaadim
Дата добавления - 30.11.2016 в 22:00
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить ссылку на фото в прайс для выгрузки товара (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!