ディレクトリがかわってもEXCELからPDFデータにリンクする方法

解決済

質問者：kamekameta
質問日時：2004/04/16 11:14
回答数：2件

excelで、セルA1に書いてある名前のPDFファイルをボタンを押すことで開けるようにし、そのexcelファイルとPDFデータをCDに焼いて量産したいのです。
現状はデータというディレクトリがＣドライブにあるとわかっているため

ChDir "C:\データ"
Workbooks.Open Filename:="C:\データ\" & Range("A1").Value & ".pdf"

で大丈夫なんですが、CDにした場合ドライブがかわってしまうので無理だと思うんです。
どうやったら解決できるのでしょうか？
一応ハイパーリンクも考えましたが、PDFデータが多いためこの方法が一番楽なのです。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： mshr1962
回答日時：2004/04/16 11:27

CDのドライブ選択するセルを作ればいいのでは？

例えばA1にドライブ名,A2にファイル名として

ChDir Range("A1").Value & "\データ"
Workbooks.Open Filename:=Range("A1").Value & "\データ\" & Range("A2").Value & ".pdf"

後は配布先にCDのドライブ名を変更するように記述すればいいかと思います。

- 0
- 件

通報する

No.1

回答者： maruru01
回答日時：2004/04/16 11:24

こんにちは。

maruru01です。

操作するExcelファイルとの相対位置を常に一定にしてはどうでしょうか？
例えば、Excelファイルと同じ階層に、常に「データ」というフォルダを置いて、その中にPDFファイルを入れておくとか。
その場合は、

Workbooks.Open Filename:=ActiveWorkbook.Path & "\データ\" & Range("A1").Value & ".pdf"

となります。