Макрос для переноса данных

[a18lex]

Здравствуйте, уважаемые форумчане!

Есть такая проблема: есть файл с исходными данными, информацию которого необходимо скопировать сразу в несколько книг, а именно:

необходимо скопировать первый лист файла "шаблон" в несколько сотен файлов, все файлы с разными названиями. Хотелось бы сделать это макросом. Возможно?

Заранее благодарен.

[IgorGO]

если все файлы сложить в одной папке - можно

[a18lex]

Можно все вместе, не подскажите как?

[IgorGO]

сделайте копию листа в другой файл. запишите свои действия макрорекордером. чуть поправьте полученный макрос.

[a18lex]

Я, собственно, так и пытался сделать, но имя файла то постоянно разное, подскажите как доработать?

Sub Макрос4()
'
' Макрос4 Макрос

ActiveWindow.SmallScroll Down:=-3
Windows("2014 07 22.xls").Activate
Sheets("st costing (new)").Select
Sheets("st costing (new)").Copy Before:=Workbooks( _
"2014 07 22.xls").Sheets(1)
ActiveWindow.SmallScroll Down:=9
Range("A78").Select
End Sub

[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

[a18lex]

IgorGO, спасибо конечно, но ничего не происходит, может дать какие-то пояснения? я вставил макрос в файл шаблон.

[IgorGO]

меня это не удивляет. не раз приходилось признаваться здесь об отсутствии у меня элементарных экстрасенсорных навыков:
я решил что файлы, в которые нужно вставить лист st costing (new) находятся в папке c:\DataFolder\... но подозреваю что не угадал!!!

[a18lex]

Я менял путь, но все равно ничего не произошло. Может быть это проблема не локального хранения, а хранения на сервере?

[IgorGO]

место хранения не важно
важно наличие доступа к указанному ресурсу, и наличие в папке XLS-файлов