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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить ссылку на фото в прайс для выгрузки товара (Формулы/Formulas)
Добавить ссылку на фото в прайс для выгрузки товара
vaadim Дата: Четверг, 24.11.2016, 01:29 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

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

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

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


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

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

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

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

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

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

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

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

Excel 2016 х 64
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается
[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 (64.6 Kb) · 2941434.xlsx (13.0 Kb)


вот вам барабан
яд 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
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

В этой строке
[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
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - vaadim
Дата добавления - 30.11.2016 в 22:00
vaadim Дата: Воскресенье, 04.12.2016, 11:32 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ссылка.xlsx - имя файла, если будет файл с другим именем, то изменить соответственно.

так будет ответ?
 
Ответить
Сообщение
ссылка.xlsx - имя файла, если будет файл с другим именем, то изменить соответственно.

так будет ответ?

Автор - vaadim
Дата добавления - 04.12.2016 в 11:32
Pelena Дата: Воскресенье, 04.12.2016, 12:02 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
дальше что?

так будет ответ?
Попробуйте сменить приказной тон. Возможно и помогающие к Вам потянутся.

По теме: чтобы увидеть код, в первом скачанном файле нажмите Alt+F11


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
дальше что?

так будет ответ?
Попробуйте сменить приказной тон. Возможно и помогающие к Вам потянутся.

По теме: чтобы увидеть код, в первом скачанном файле нажмите Alt+F11

Автор - Pelena
Дата добавления - 04.12.2016 в 12:02
Udik Дата: Воскресенье, 04.12.2016, 13:01 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Лена уже дала подсказку.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеЛена уже дала подсказку.

Автор - Udik
Дата добавления - 04.12.2016 в 13:01
vaadim Дата: Воскресенье, 04.12.2016, 18:44 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Лена уже дала подсказку.

спасибо)
Попробуйте сменить приказной тон. Возможно и помогающие к Вам потянутся.

Честно, не хотел никого обидеть, понимаю что никто ничего не должен, наоборот благодарен, что помогаете!

По теме: чтобы увидеть код, в первом скачанном файле нажмите Alt+F11

когда захожу, пишут такое (скрин 1)
когда нажимаю ALT+F11 просто звук идет, как будто на пустую кнопку нажимаю

если включаю макросы, пишет ошибку(скрин 2)
К сообщению приложен файл: 4897129.png (148.4 Kb) · 0520199.png (31.5 Kb)
 
Ответить
Сообщение
Лена уже дала подсказку.

спасибо)
Попробуйте сменить приказной тон. Возможно и помогающие к Вам потянутся.

Честно, не хотел никого обидеть, понимаю что никто ничего не должен, наоборот благодарен, что помогаете!

По теме: чтобы увидеть код, в первом скачанном файле нажмите Alt+F11

когда захожу, пишут такое (скрин 1)
когда нажимаю ALT+F11 просто звук идет, как будто на пустую кнопку нажимаю

если включаю макросы, пишет ошибку(скрин 2)

Автор - vaadim
Дата добавления - 04.12.2016 в 18:44
Udik Дата: Воскресенье, 04.12.2016, 19:02 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
если включаю макросы, пишет ошибку

Попробовал открыть файл с сайта - всё нормально. А зачем открывать файл с макросами при отключенных макросах :) Попробуйте заново скачать и открывать при включенных макросах.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
если включаю макросы, пишет ошибку

Попробовал открыть файл с сайта - всё нормально. А зачем открывать файл с макросами при отключенных макросах :) Попробуйте заново скачать и открывать при включенных макросах.

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

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