Excel-VBA : Open a MS Word Document using Excel File using Explorer Window.

This tutorial will teach you how to Open a MS Word Document using Excel File using Explorer Window. We will be using Application.GetOpenFile() function to accomplish this.

NOTE: You can define any type file you want to , just set the proper filter.

FileFilter:=”Word Files *.doc* (*.doc*) – to open Excel files.

Complete Code:

Sub browse()
    Dim FSO As Object
    Dim blnOpen
    strFileToOpen = Application.GetOpenFilename(Title:="Please choose a file to open", _
    FileFilter:="Word Files *.doc* (*.doc*),")
    If strFileToOpen = False Then
      MsgBox "No file selected.", vbExclamation, "Sorry!"
      Exit Sub
    Else
        Sheet2.Range("G5").Value = strFileToOpen
        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Open(strFileToOpen)
        objWord.Visible = True
    End If
End Sub

Open Word Document using Explorer Window

Open Word Document using Explorer Window 2