Здравствуйте прошу помощи, так как сам не могу разобраться у меня есть файл, для выгрузки товара на сайт он готов, только в нем по 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
ссылка на скачивание файла для импорта удалено
ссылка на скачивание файла с фото удалено добавляю ссылкой, так как файл большой, не могу загрузить
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается [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]
Ну так можно, файлы должны быть в одной папке, имя второго файла в коде прописывается [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
Попробовал открыть файл с сайта - всё нормально. А зачем открывать файл с макросами при отключенных макросах Попробуйте заново скачать и открывать при включенных макросах.
Попробовал открыть файл с сайта - всё нормально. А зачем открывать файл с макросами при отключенных макросах Попробуйте заново скачать и открывать при включенных макросах.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com