maxim43g
25-11-2020, 10:52
Добрый день.
Нашёл на просторах интернета такой прекрасный скрипт
Option Explicit
Dim objApp, objWbs, objWorkbook1, objWorkbook2, objSheet1, objSheet2
Set objApp = CreateObject("Excel.Application")
Set objWbs = objApp.WorkBooks
objApp.Visible = False ' Невидимый
objApp.DisplayAlerts = False ' Не спрашивать глупости
Set objWorkbook1 = objWbs.Open("C:\1\Template.xls") ' Открываем шаблон (В нём первая строка, с картинкой)
Set objWorkbook2 = objWbs.Open("C:\1\Data.xls") ' Открываем данные
Set objSheet1 = objWorkbook1.Sheets(1) ' Первый лист
Set objSheet2 = objWorkbook2.Sheets(1) ' Первый лист
' Копируем все заполненные ячейки из файла с данными, в шаблон, начиная со второй строки
objSheet2.UsedRange.Copy(objSheet1.Rows(2))
' Или копируем первую строку из шаблона, в книгу с данными, заменяя имеющуюся
' objSheet1.Rows(1).Copy(objSheet2.Rows(1))
' Сохраняем изменённый шаблон под другим именем.
objWorkbook1.SaveAs("C:\1\Result.xls")
' Или сохраняем изменённую книгу с данными под тем же именем.
' objWorkbook2.Save
objWbs.Close
подскажите, что в нем нужно редактировать, что бы я мог копировать определенные столбцы , а не строки целиком? и вставлять в определенные столбцы в другом файле.
Пример скопировать столбец А файла "1", в столбец В файла "2"
Нашёл на просторах интернета такой прекрасный скрипт
Option Explicit
Dim objApp, objWbs, objWorkbook1, objWorkbook2, objSheet1, objSheet2
Set objApp = CreateObject("Excel.Application")
Set objWbs = objApp.WorkBooks
objApp.Visible = False ' Невидимый
objApp.DisplayAlerts = False ' Не спрашивать глупости
Set objWorkbook1 = objWbs.Open("C:\1\Template.xls") ' Открываем шаблон (В нём первая строка, с картинкой)
Set objWorkbook2 = objWbs.Open("C:\1\Data.xls") ' Открываем данные
Set objSheet1 = objWorkbook1.Sheets(1) ' Первый лист
Set objSheet2 = objWorkbook2.Sheets(1) ' Первый лист
' Копируем все заполненные ячейки из файла с данными, в шаблон, начиная со второй строки
objSheet2.UsedRange.Copy(objSheet1.Rows(2))
' Или копируем первую строку из шаблона, в книгу с данными, заменяя имеющуюся
' objSheet1.Rows(1).Copy(objSheet2.Rows(1))
' Сохраняем изменённый шаблон под другим именем.
objWorkbook1.SaveAs("C:\1\Result.xls")
' Или сохраняем изменённую книгу с данными под тем же именем.
' objWorkbook2.Save
objWbs.Close
подскажите, что в нем нужно редактировать, что бы я мог копировать определенные столбцы , а не строки целиком? и вставлять в определенные столбцы в другом файле.
Пример скопировать столбец А файла "1", в столбец В файла "2"