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

Вход

Регистрация

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

 

= Мир MS Excel/Заполнение шаблона по данным базы и генерация файлов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение шаблона по данным базы и генерация файлов (Макросы/Sub)
Заполнение шаблона по данным базы и генерация файлов
Мурад Дата: Понедельник, 19.02.2018, 11:07 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
Добрый день, экселисты!
Помогите сгенерировать файлы на основе шаблона. Внутри "шаблона_генерации" необходимо заполнить наименование товара и ниже номер товара, из файла "база". Присвоить файлу имя "товар_номер.xlsx". Создать столько файлов, сколько заполненных строк в "базе".
Кусочки макроса я понимаю как сделать. Но вот целиком не осилю.
Заранее благодарен за помощь!
К сообщению приложен файл: 6203785.xlsx (7.6 Kb) · 0210989.xlsx (7.5 Kb)
 
Ответить
СообщениеДобрый день, экселисты!
Помогите сгенерировать файлы на основе шаблона. Внутри "шаблона_генерации" необходимо заполнить наименование товара и ниже номер товара, из файла "база". Присвоить файлу имя "товар_номер.xlsx". Создать столько файлов, сколько заполненных строк в "базе".
Кусочки макроса я понимаю как сделать. Но вот целиком не осилю.
Заранее благодарен за помощь!

Автор - Мурад
Дата добавления - 19.02.2018 в 11:07
sboy Дата: Понедельник, 19.02.2018, 13:54 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Шаблон и база в одной папке. Файлы сохраняются туда же.
[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]
К сообщению приложен файл: 0210989.xlsm (14.3 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Шаблон и база в одной папке. Файлы сохраняются туда же.
[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]

Автор - sboy
Дата добавления - 19.02.2018 в 13:54
Мурад Дата: Понедельник, 19.02.2018, 16:13 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 0% ±

Excel 2007
sboy, спасибо!
 
Ответить
Сообщениеsboy, спасибо!

Автор - Мурад
Дата добавления - 19.02.2018 в 16:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение шаблона по данным базы и генерация файлов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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