СРОЧНО! Файловый диалог

[БлондинистаяРомашка]

Товарищи, я поинмаю, что надо читать мануал и всё такое, но у меня действительно нет времени. помогите с тупыми вопросами пожалуйста. Синаксис воообще не помню.

Как сделать чтобы при нажатии на кнопку открывался файловый диалог и вбранный файл поместить в textbox?

[Денис]

БлондинистаяРомашка
Подключи к проекту Microsoft Common Dialog Control (это сторонняя библиотека, но на данном этапе подойдет).
Вызывая его метод ShowOpen получаешь строку, содержащую имя файла. Ну а потом обычными Open - Close

Пример.

Код: Выделить всё

  Dim FileName As String
  Dim FileNumber As Long
  Dim FileText As String
 
  CommonDialog1.ShowOpen
  FileName = CommonDialog1.FileName
 
  FileNumber = FreeFile
  Open FileName For Input As FileNumber
 
  Do While Not EOF(1)
    Input #FileNumber, FileText
    Text1.Text = Text1.Text & vbCrLf & FileText
  Loop
 
  Close FileNumber

[БлондинистаяРомашка]

привязала на кнопку процедурку

Dim fd As FileDialog
Dim vrtSelectedItem As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Selection.Collapse wdCollapseStart
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
TextBox4.Text = vrtSelectedItem

Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing

что еще надо подключить? пожалуйсто, напишите тупо даже куда ткнуть чтобы подлючить

[Денис]

С этим Application.FileDialog(msoFileDialogFilePicker) я не работал, надо глянуть... Ну, вот, в принципе, добавь форму, брось на нее TextBox и назови его Text1, сделай ему Multiselect = True, добавь в форму следующий код:

Код: Выделить всё

Private Sub UserForm_Click()

    Dim dlgOpen As FileDialog
    Dim dlgFileName As String
    Dim FileName As String
    Dim FileNumber As Long
    Dim FileText As String
 
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = False
        .Show
        dlgFileName = .SelectedItems(1)
    End With
   
    FileNumber = FreeFile
    Open dlgFileName For Input As FileNumber
 
    Do While Not EOF(1)
      Input #FileNumber, FileText
      Text1.Text = Text1.Text & vbCrLf & FileText
    Loop
 
    Close FileNumber
   
End Sub

срабатывает при нажатии мышкой по форме. Вот. Изучай. Переделай, как те надо.

[KL]

Ничего подключать не надо

Код: Выделить всё

Sub Test1()
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = False Then Exit Sub Else UserForm1.TextBox1 = .SelectedItems(1)
    End With
End Sub

[Денис]

KL
Дададад! Ничего подключать не надо. Я просто сам узнал только что про Application.FileDialog

[KL]

Если работаешь в Эксель, то есть еще Application.GetOpenFileName

[БлондинистаяРомашка]

Спасибо