富士ゼロックスのDocuWorksをEXCEL VBAで開く方法

質問

富士ゼロックスのDocuWorksファイルをEXCEL VBAで開く方法をご教授願いたく思います。
EXCELLのセルにファイル名を入力させ、検索し、指定したDocuWorksファイルを開こうと考えております。
DocuWorksファイルは数千ファイルあり、１つのフォルダに保存して、
検索を掛けようと思います。
どのような構文を組めば、DocuWorksファイルを開けるでしょうか？
よろしくお願いいたします。

回答No.1

DOUGLAS_ · ベストアンサー

ワークシートに「DocuWorksファイル」へのハイパーリンクを設置し、それをクリックすると「DocuWorksファイル」が開くというのはいかがですか？

Sub Macro1()
　Dim myKW As String
　Dim MyPath As String
　Dim MyFile As String
'検索キーワードの入力
　myKW = Application.InputBox("キーワードを入力してください", "検索キーワードの入力")
　If myKW = "" Then Exit Sub
'セルA1 にキーワードを表示
　Range("A1") = myKW

'「１つのフォルダ」の指定
　MyPath = "D:\hoge\hoge\"

'「１つのフォルダ」内の xdw ファイルを検索し、
'Ａ列にハイパーリンクを設置
　MyFile = Dir(MyPath & "*" & myKW & "*.xdw")
　Do While MyFile <> ""
　　ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp).Offset(1), _
　　Address:=MyPath & MyFile, TextToDisplay:=Replace(MyFile, ".xdw", "")
　　MyFile = Dir
　Loop
End Sub

お礼

早速の回答ありがとうございました。
回答頂いた内容を元に作成し、問題なさそうなので、
ハイパーリンクで行きたいと思います。
ありがとうございました。