1 Тема от Alex_Gur

  • Открытие файла из неактивной папки с помощью окна Открытие документа
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Открытие файла из неактивной папки с помощью окна Открытие документа

Открытие файла из неактивной папки с помощью диалогового окна Открытие документа
(решение порекомендовано здесь: внешняя ссылка).

Не могу объяснить, почему работает, но работает: smile

Sub OpenFile2()
    Dim fd As FileDialog
    Dim SourcePath As String
    Const CANCEL_BUTTON As Long = 0
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        If .Show <> CANCEL_BUTTON Then
            SourcePath = .SelectedItems(1)
        End If
    End With
    
    Documents.Open (SourcePath)
    Set fd = Nothing
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.