Откройте документ Microsoft Word в Excel с помощью VBA

Question

Я пытаюсь открыть документ Word в Excel, чтобы сбросить в него кучу информации. Я использую следующий код:

'Declare a variable as a FileDialog object and create a FileDialog object as a File Picker dialog box 
    Dim iFileSelect As FileDialog 
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker) 

    'Declare a variable to contain the path of each selected item 
    Dim vrtSelectedItem As Variant 


    'Use the Show method to display the File Picker dialog box 
    'The user pressed the action button 
    If iFileSelect.Show = -1 Then 

    For Each vrtSelectedItem In iFileSelect.SelectedItems 
    'vrtSelectedItem contains path of each selected item 
    MsgBox "The path is: " & vrtSelectedItem 
    Next vrtSelectedItem 

    End If 

    'Set object variable to Nothing 
    Set iFileSelect = Nothing 

I "м, имеющий следующие вопросы:

1. Я понятия не имею, если документ фактически открыт или нет
2. Как закрыть и сохранить. файл, как только я сбросил информацию в него?

Answer 1

Если у вас есть книги, открытые в Excel, вы можете просто использовать его метод FollowHyperlink, чтобы открыть документ.

Sub OpenDoc() 
    Dim iFileSelect As FileDialog 
    Set iFileSelect = Application.FileDialog(msoFileDialogFilePicker) 

    Dim vrtSelectedItem As Variant 

    If iFileSelect.Show = -1 Then 
     For Each vrtSelectedItem In iFileSelect.SelectedItems 
      ActiveWorkbook.FollowHyperlink vrtSelectedItem 
     Next vrtSelectedItem 
    End If 

    Set iFileSelect = Nothing 
End Sub