Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранить листы как файла, Установить единой имя листов
 
Здравствуйте Отцы
Помогите, допишите код - при сохранении файлов присваивать единой имя, например "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
 
Иван Сергеевич, у Вас вопрос именно по надстройке Plex?
И код оформляйте соответствующим тегом. Для этого есть специальная кнопка.
Тег VBA.jpg (19.2 КБ)
 
А мне вообще интересно как можно присвоить единое какое-то имя в диалоге ВЫБОРА папок? Там только выбор, нельзя ничего назначить. Тем более файлу - выбор-то идет из папок, а не файлов. В общем не вопрос, а сплошная загадка. Пока автор не опишет нормально что надо ответа точно не дождется.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)
Наверх