ＥＸＣＥＬのマクロで指定したファイルを開きたい

質問

ファイルＡのSHEET１のセルＡ１にファイル名が入力してあるとして、
”同じフォルダ内にある、セルＡ１に入力されているファイル名のファイルを開く”方法が分かりません。どうかよろしく御願いします。

回答No.1

marbin · ベストアンサー

>ファイルＡ

これはマクロを記述するブック自身のことでしょうか？
それとも別のブックでしょうか？

自ブックのことでしたら
ThisWorkbook.Path
で自ブックが格納されているディレクトリを取得できます。

>ファイル名

エクセルブックでしょうか？
それとも画像ファイルとかの別のアプリケーションで開く
ファイルでしょうか？

エクセルブックでしたら
Workbooks.Open("ブックのフルパス")
で開けます。
開いたブックに対して処理する場合は

Dim wb As Workbook

Set wb = Workbooks.Open("ブックのフルパス")
MsgBox wb.Worksheets("Sheet1").Range("A1").Value

のようにします。

お礼

ご回答頂き有難うございます。
問題解決いたしました。
感謝いたします。

回答No.3

hallo-2007

関数案ですが
別セルに
=HYPERLINK(LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)&A1)
と入れるとA1で指定したファイル名でリンクが出来ると思いますので
そのセルをクリックするとファイルが開くと思います。

お礼

ご回答頂き有難うございます。
問題解決いたしました。
有難うございました。

回答No.2

fujillin

◇一般のファイルを開くのであれば、Openステートメントで
　Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

◇エクセルのブックを開くのなら、Openメソッドで
　Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended,
Origin, Delimiter, Editable, Notify, Converter, AddToMRU)

pathnameやFileNameにファイルのパスを設定すれば開くことができます。
詳しくは、ヘルプなどを参照してください。

お礼

ご回答頂き有難うございます。
問題解決いたしました。
感謝いたします。