VBA를 사용하여 Excel에서 Microsoft Word 문서 열기

Question

많은 정보를 덤프하려면 Excel에서 Word 문서를 열려고합니다. 나는이 문서가 실제로 열거 나하지 않으면 아무 생각이

2. 어떻게 닫고 저장합니까 :

   '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 "m 갖는 다음과 같은 문제 : 나는 다음과 같은 코드를 사용하고 있습니다. 파일이 나는 그것으로 정보를 덤프 일단? Excel에서 열린 통합 문서가있는 경우

이

Answer 1

, 당신은 단지 문서를 열 그 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