Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75647 / 76738

←次へ　｜　前へ→


	【5524】Re:任意のファイルを開く方法

つん

- 03/5/17(土) 15:03 -


	引用なし

	パスワード

ぴえろさん、こんにちは

>ファイル名にシートに入力されているデータを
>参照させたいのです。
>よきアドバイスをお願いします

Set wb = Workbooks.Open("C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\Book1.xls")

の部分を、たとえば、作業するファイルと、作業対象ファイルが同じフォルダ内にある場合、

Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & Range("a1").Value & ".xls")

です。違うフォルダ内にある場合は、「ThisWorkbook.Path & "\"」の部分を、そこのフォルダのパスに変えてください。

シートに入力されてるデータが、フルパスで入力されているなら(拡張子もついて）「Range("a1").Value 」だけでOkですね。

2 hits

▼

【5423】任意のファイルを開く方法 すずきひろあき 03/5/13(火) 8:11