Добрый день, экселисты! Помогите сгенерировать файлы на основе шаблона. Внутри "шаблона_генерации" необходимо заполнить наименование товара и ниже номер товара, из файла "база". Присвоить файлу имя "товар_номер.xlsx". Создать столько файлов, сколько заполненных строк в "базе". Кусочки макроса я понимаю как сделать. Но вот целиком не осилю. Заранее благодарен за помощь!
Добрый день, экселисты! Помогите сгенерировать файлы на основе шаблона. Внутри "шаблона_генерации" необходимо заполнить наименование товара и ниже номер товара, из файла "база". Присвоить файлу имя "товар_номер.xlsx". Создать столько файлов, сколько заполненных строк в "базе". Кусочки макроса я понимаю как сделать. Но вот целиком не осилю. Заранее благодарен за помощь!Мурад
Добрый день. Шаблон и база в одной папке. Файлы сохраняются туда же. [vba]
Код
Sub gfiles() Dim wb As Workbook Application.ScreenUpdating = False arr = Range(Cells(5, 3), Cells(5, 4).End(xlDown)) sFolder = ThisWorkbook.Path & Application.PathSeparator Set wb = Workbooks.Open(sFolder & "шаблон_генерации.xlsx") For x = 1 To UBound(arr) With wb.Sheets(1) .Cells(4, 2).Value = arr(x, 2) .Cells(8, 2).Value = arr(x, 1) End With wb.SaveAs (sFolder & arr(x, 2) & "_" & arr(x, 1)) Next wb.Close Application.ScreenUpdating = True End Sub
[/vba]
Добрый день. Шаблон и база в одной папке. Файлы сохраняются туда же. [vba]
Код
Sub gfiles() Dim wb As Workbook Application.ScreenUpdating = False arr = Range(Cells(5, 3), Cells(5, 4).End(xlDown)) sFolder = ThisWorkbook.Path & Application.PathSeparator Set wb = Workbooks.Open(sFolder & "шаблон_генерации.xlsx") For x = 1 To UBound(arr) With wb.Sheets(1) .Cells(4, 2).Value = arr(x, 2) .Cells(8, 2).Value = arr(x, 1) End With wb.SaveAs (sFolder & arr(x, 2) & "_" & arr(x, 1)) Next wb.Close Application.ScreenUpdating = True End Sub