Диалог ввода файла

[SAndrus]

Доброе время суток. Нужен диалог ввода файла т.е не открыть в ексцеле или в ворде а просто имя файла

[Virtson]

ничего не понятно (

[pashulka]

Если Вы хотите с помощью стандартного диалогового окна получить возможность выбора файла, без его открытия, то решений поставленного вопроса может несколько, например :

Excel

iFullName = Application.GetOpenFilename()

If iFullName <> False Then
   MsgBox "Вы выбрали файл : " & Dir(iFullName), , ""
Else
   MsgBox "Вы отказались от выбора файла", , ""
End If

Обратите внимание на то, что у метода GetOpenFilename есть несколько необязательных аргументов, которые позволяют задать фильтр, текст для заголовка окна и кнопки, а также разрешить выбор нескольких файлов.

Word

With Dialogs(wdDialogFileOpen)
     .Display
     If .Name <> "" Then
        MsgBox "Вы выбрали файл : " & .Name, , ""
     Else
        MsgBox "Вы отказались от выбора файла", , ""
     End If
End With

[SAndrus]

Это как раз то че доктор прописал (то что надо). Жаль стартовую директорию задать не знай как

[pashulka]

ChDrive "D"
'Если необходимо изменить текущий диск
'Укажите реально существующий диск
ChDir "D:\Archive\2007"
'Укажите реально существующую папку
'Если Вы сомневаетесь в её наличии, то можно использовать
'предварительную проверку If Dir(iPath, vbDirectory) <> "" Then

iFullName = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls),*.xls", _
Title:="Выберите нужный файл и кликните кнопку")

If iFullName <> False Then
   MsgBox "Вы выбрали файл : " & Dir(iFullName), , ""
Else
   MsgBox "Вы отказались от выбора файла", , ""
End If

Если же речь идёт о MSOffice XP (и старше), то в этих версиях появился новый об'ект FileDialog

With Application.FileDialog(msoFileDialogOpen)
     .Filters.Add "Excel Files", "*.xls"
     .InitialFileName = "D:\Archive\2007"
     .AllowMultiSelect = False
     .Show
     If .SelectedItems.Count = 1 Then
        MsgBox "Вы выбрали файл : " & Dir(.SelectedItems(1)), , ""
     Else
        MsgBox "Вы не выбрали нужный файл", , ""
     End If
End With

[SAndrus]

Екселевский диалог ввода файла что надо. Другой вопрос связан со стандартным диалогом инпутбокс. Знач в екселе открываем ворд документ нужно в окне ворда вывести инпутбокс. Через ворд аппликатион не получается там нет инпутбокса. А в окне екселя не то

[pashulka]

- Об'ект FileDialog (при наличии соответствующей версии) можно использовать и в Word

- Basic функцию Input можно вызвать в Word, например:

With CreateObject("Word.Application")
     iText = InputBox("Введите текст", "")
     
     .Documents.Add
     If iText <> "" Then
        .Selection.Text = iText
     Else
        .Selection.Text = "Вы не ввели нужный текст"
     End If
     .Visible = True
End With

[SAndrus]

Наверно я чет неправильно объяснил, такой код выводит импут в окне ексцела, ет не то. У меня офис 2000, может в этом дело. Вывести в вордовский файл текст не составляет труда. Нужно чтобы сам диалог запроса информации выводился поверх открытого в ворде документа это устроить не получается.
Насколько я знаю файледиалог выводит только диалоги ворда.

[pashulka]

Проблема в общем-то надуманная, ибо :

Private Sub Test()
    
    Application.Visible = False

    With CreateObject("Word.Application.8")
         .Documents.Add
         .Visible = True
     
         iText$ = InputBox("Введите текст", "")
         
         .Selection.Text = IIf(iText$ <> "", _
         iText$, "Вы так и не ввели нужный текст")
    End With

    Application.Visible = True

End Sub

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

Насколько я знаю файледиалог выводит только диалоги ворда

Это заблуждение

[SAndrus]

Дико извиняюсь за свою тупость,
мог бы и сам додуматься погасить екселевское окно.
Спасибо.
С файледиалог разобрался был не прав.