Здравствуйте Отцы
Помогите, допишите код - при сохранении файлов присваивать единой имя, например "01"
Спасибо
Function GetFolder() As String
   Dim fldr As FileDialog
   Dim sItem As String
   Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
   With fldr
       .title = "Выберите папку"
       .AllowMultiSelect = False
       .InitialFileName = Application.DefaultFilePath
       If .Show <> -1 Then GoTo NextCode
       sItem = .SelectedItems(1)
   End With
NextCode:
   GetFolder = sItem
   Set fldr = Nothing
End Function