Как сохранить путь к файлу, выбранному через FileDialog?

Пользователь

Сообщений: 331 Регистрация: 28.07.2009

28.02.2010 09:09:21

Здравствуйте, эксельгуру!
Вообще-то вопросов два.
С помощью Application.FileDialog(msoFileDialogOpen) выбираю файл, с которым произвожу дальнейшие манипуляции.
Dim lngCount As Long
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
For lngCount = 1 To .SelectedItems.Count
ИмяФайлаЗаключения = .SelectedItems(lngCount)
Next lngCount
End With
MsgBox ИмяФайлаЗаключения
Так вот вопрос1: как сделать так, чтобы FileDialog открывал уже заданную папку, чтобы выбрать свой файл? Ведь всегда открывается папка "Мои документы".
Вопрос2: Как вычислить путь к файлу (Path?), чтобы потом его можно было использовать для сохранения с помощью Application.FileDialog(msoFileDialogSaveAs)
Вопрос3: Как вставить имя файла в поле при открытии диалогового окна Application.FileDialog(msoFileDialogSaveAs)?

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

28.02.2010 10:06:44

Sub test()
Dim lngCount As Long
With Application.FileDialog(msoFileDialogOpen)

.InitialFileName = "D:\Проекты" ' указываем папку
' или
.InitialFileName = "E:\Excel\MyPic.jpg"

.AllowMultiSelect = False
.Show
For lngCount = 1 To .SelectedItems.Count

ПолныйПутьКФайлу = .SelectedItems(lngCount)
Папка = Replace(ПолныйПутьКФайлу, Dir(ПолныйПутьКФайлу), "")
ИмяФайлаБезПолногоПути = Dir(ПолныйПутьКФайлу)

Debug.Print Папка, ПолныйПутьКФайлу, ИмяФайлаБезПолногоПути
Next lngCount
End With
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Мультипликатор Пользователь Сообщений: 331 Регистрация: 28.07.2009	#3 28.02.2010 10:25:22 Спасибо, это то, что нужно!!! А что делает Debug.Print? Зачем это использовать? Вернее, как это работает?

Читают тему