Макрос для переноса данных (Microsoft Office Excel)

Posted by obzor under VBA

Есть такая проблема: есть файл с исходными данными, информацию которого необходимо скопировать сразу в несколько книг, а именно:
необходимо скопировать первый лист файла «шаблон» в несколько сотен файлов, все файлы с разными названиями. Хотелось бы сделать это макросом. Возможно?

IgorGO

Sub CopyOneSheetToWorkBooks()
  Dim Shc As Worksheet, pt$, fn$
  Set Shc = Worksheets("st costing (new)"):  pt = "c:\DataFolder\"
  fn = Dir(pt & "*.xls*")
  Do While fn <> ""
    With Workbooks.Open(pt & fn)
      Shc.Copy Before:=.Sheets(1): .Save:  .Close
      fn = Dir
    End With
  Loop
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel