Application.Dialogs(xlDialogOpen).S how?

[Simbad]

Приветствую всех участников форума.
Открываю несколько рабочих книг с помощью диалогого окна Application.Dialogs(xlDialogOpen).S how. Подскажите, пожалуйста, как получить имена этих файлов программно?

[doober]

Сообщение от Simbad

Подскажите, пожалуйста, как получить имена этих файлов программно?

Не совсем понятно

Получить имена уже открытых книг
Получить имена книг в папке
Получить имена открытых книг при помощи Application.Dialogs(xlDialogOpen).S how
Получить имена книг в папке ,которые еще не открыты
и Т.Д............

[The_Prist]

На самом деле, я думаю Вам лучше использовать такой метод

Dim sFolder, sName As String, li As Long
sFolder = Application.GetOpenFilename("All Files(*.*),*.*", , "Выбрать файлы", "Выбрать", True)
For li = 1 To UBound(sFolder)
Workbooks.Open sFolder(li)
'sName = sFolder(li) 'полный путь к файлу
Next li

И делайте с переменной sFolder, что хотите. Хотите, как в примере, циклом откройте все выбранные файлы, хотите переименуйте.

[Simbad]

Спасибо за помощ. Очень помогло. Я вам очен благодарен