Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбор папки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор папки (Макросы Sub)
Выбор папки
RAN Дата: Понедельник, 11.11.2013, 12:42 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Мяу!
Почему в коде в качестве стартовой выбирается не папка с файлом, а папка на 1 уровень выше?
[vba]
Код
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "Выберите папку с файлами"
         .InitialFileName = ThisWorkbook.Path
         If .Show = 0 Then GoTo Exit_
         sFolder = .SelectedItems(1) & Application.PathSeparator
     End With
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМяу!
Почему в коде в качестве стартовой выбирается не папка с файлом, а папка на 1 уровень выше?
[vba]
Код
    With Application.FileDialog(msoFileDialogFolderPicker)
         .Title = "Выберите папку с файлами"
         .InitialFileName = ThisWorkbook.Path
         If .Show = 0 Then GoTo Exit_
         sFolder = .SelectedItems(1) & Application.PathSeparator
     End With
[/vba]
Автор - RAN
Дата добавления - 11.11.2013 в 12:42
SkyPro Дата: Понедельник, 11.11.2013, 13:32 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
У меня стартует с папки ThisWorkbook.Path

skypro1111@gmail.com
 
Ответить
СообщениеУ меня стартует с папки ThisWorkbook.Path
Автор - SkyPro
Дата добавления - 11.11.2013 в 13:32
KuklP Дата: Понедельник, 11.11.2013, 13:34 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Привет, Андрей.
У меня нормально, то что выбрал. Экс 2003.
А вы о старте! Тогда попробуй:
.InitialFileName = ThisWorkbook.Path & "\"

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 11.11.2013, 13:40
 
Ответить
СообщениеПривет, Андрей.
У меня нормально, то что выбрал. Экс 2003.
А вы о старте! Тогда попробуй:
.InitialFileName = ThisWorkbook.Path & "\"
Автор - KuklP
Дата добавления - 11.11.2013 в 13:34
RAN Дата: Понедельник, 11.11.2013, 13:37 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А в 2007 на одну выше. Хоть тресни.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА в 2007 на одну выше. Хоть тресни.
Автор - RAN
Дата добавления - 11.11.2013 в 13:37
KuklP Дата: Понедельник, 11.11.2013, 13:40 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Посмотри, я исправил сообщение.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПосмотри, я исправил сообщение.
Автор - KuklP
Дата добавления - 11.11.2013 в 13:40
RAN Дата: Понедельник, 11.11.2013, 14:48 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Спасибо, поспособствовало.
Бывает....

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСпасибо, поспособствовало.
Бывает....
Автор - RAN
Дата добавления - 11.11.2013 в 14:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор папки (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!