エクセルファイルのファイル名で検索

質問

あるフォルダからエクセルファイルに記載されているファイル複数を検索で表示させたいと思っています。（表示させたあとにファイルを開き編集します。）エクセルファイルのA列に１セルに１つファイル名が記載されています。
ファイル名は複数あります。
A1セル "aaa.doc"
A2セル "bbb.doc"
A3セル "ccc.doc"
何か良い方法はないでしょうか。
よろしくお願いします。

回答No.1

NuboChan

読み込むファイルを選択（Active)にして下記のマクロで開けます。
読み込むフォルダーは、wpthで指定して下さい。

Option Explicit

'条件：VBEのメニューから「ツール」→「参照設定」とたどって
'「Microsoft Word 16.0 Object Library 」という名前のライブラリの追加

Sub Wordを立ち上げる()

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True

Dim wdDoc As Word.Document
Dim wpth As String
Dim acwf As Range

Set acwf = ActiveCell

wpth = "C:\Users\***\Desktop\Word\"

Set wdDoc = wdApp.Documents.Open(wpth & acwf.Value)

'wdApp.Visible = False
'Set wdApp = Nothing

End Sub