同一フォルダ内のファイルを開く

よろしくお願いします。
エクセルです。
マクロにて、現在開いているファイルと同一フォルダ内のファイルを開きたいのですが、マクロ構成はどうしたらよろしいですか？
フォルダ指定のマクロも考えたのですが、PC使用環境によっては、フォルダを置く場所が異なります。
※同一フォルダ内に保存するマクロは、この『教えて』でChDirを使うことを教授させていただきました。似たような簡単な構成はありますか？
使用環境はXP、offece2003です。

No.2 ベストアンサー 回答者： ka_na_de 回答日時： 2007/07/08 19:26

＃１です。

具体例を示します。

Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & "test.xls"

この回答へのお礼

早速の回答、ありがとうございました！
参考になりました。
これからもご指導をよろしくお願いします。

お礼日時：2007/07/10 14:24

No.4 回答者： imogasi 回答日時： 2007/07/08 20:44

＞ファイルと

ブックのことをイメージしているらしいが、あいまいです。
現在のフォルダは、CurDir　でどうですか。
下記はＦＳＯを使っています。フォルダの中には、エクセル以外のファイルも入っていることもあり、エクセルを越えた立場から考えると
適当かと思い上げます。
ーー
Sub test01()
MsgBox CurDir
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
' Set f1 = fso.CreateTextFile(CurDir & "\" & "text1.txt", True)
Set f = fso.opentextfile(CurDir & "\" & "test.txt")
b = f.ReadAll
MsgBox b
Set f = Nothing
Set fso = Nothing
End Sub
ーー
ファイル名の表示は
Sub test02()
MsgBox CurDir
Dim fso
Dim fol
Dim fil
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder(CurDir)
Set fil = fol.Files
For Each f In fil
MsgBox f.Name
Next
set fi l= Nothing
Set fol = Nothing
Set fso = Nothing
End Sub

この回答へのお礼

早速の回答、ありがとうございました！
参考になりました。
これからもご指導をよろしくお願いします。

お礼日時：2007/07/10 14:24

No.3 回答者： marbin 回答日時： 2007/07/08 19:49

>現在開いているファイル

この定義がいまいちはっきりしませんが、
マクロが記述されているブック自身のことでしたら、
ThisWorkBook.Path
でブックが格納されているフォルダのパスを取得します。

マクロでアクティブになっている別ブックを操作する場合は、
ka_na_deさんのコードのとおりです。

この回答へのお礼

早速の回答、ありがとうございました！
参考になりました。
これからもご指導をよろしくお願いします。

お礼日時：2007/07/10 14:24

No.1 回答者： ka_na_de 回答日時： 2007/07/08 19:19

これでどうですか？

Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & ファイル名