Excel VBAで同じフォルダ内のファイルを開くには？

Windows2000、Excel2000を使用しています。

「経理」というフォルダに「見積」「請求」の2つのExcelファイルがあります。
「見積」から「請求」を開くマクロを作りたいのですが、どうすればいいでしょうか？
「経理」フォルダは場所が変わることがあるので、パスをどうすれば良いかがわからず苦しんでいます。
VBAはまったくの素人で、本を見ながら挑戦しているのですがうまくできないのです。

どうかよろしくお願いします。

No.4 ベストアンサー 回答者： GETSTREET 回答日時： 2004/07/30 08:14

必ず「経理」というフォルダに「見積」「請求」の2つのExcelファイルがあると仮定。

以下ならどうでしょう？

フォルダごと移動されても上記のお約束があれば大丈夫と思います。
以下の記述は「見積」に記述してください。



Sub BookOpen()
Workbooks.Open Filename:=ThisWorkbook.Path & "\請求.xls"
End Sub

この回答へのお礼

そのままコピペさせていただきました。
助かりました、ありがとうございました。

お礼日時：2004/07/30 14:28

No.3 回答者： freezemoon 回答日時： 2004/07/30 08:12

おはようございます。

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

Sub FileOpen()

'変数の宣言//////////////////////////////
　　Dim Wb As Workbook
　　Dim Fname As String　　'開きたいファイル名格納用
　　Dim PathName As String　'見積ファイルが入っているフォルダのパス格納用
'////////////////////////////////////////
　　Set Wb = ActiveWorkbook
　　Fname = "請求.xls"
PathName = Wb.Path
　　If Right(PathName,1)="\" then
　　Workbooks.Open Filename:=PathName & Fname
　　Else
　　　　Workbooks.Open Filename:=PathName & "\" & Fname
　　End If
End Sub

ぼくもまったく同じようなことしてます＾＾

この回答へのお礼

同じように見積と請求を使っていらっしゃるのですね。
自分の考えが非常識じゃないと分かり安心しました。(^^;
ありがとうございました。

お礼日時：2004/07/30 14:26

No.2 回答者： papayuka 回答日時： 2004/07/30 08:04

見積.xls が保存されている。

請求.xls は見積.xls と同じフォルダ内にある。
見積.xls にマクロを作成しそこから 請求.xls を開く。

以上の条件なら、パスは Thisworkbook.Path で取れます。
例は 請求.xls を操作しやすいように、Open時にWorkbook型変数に代入しています。

Sub Test()
Dim wb As Workbook, FName As String

FName = ThisWorkbook.Path & "\請求.xls"
On Error GoTo ER:
Set wb = Workbooks.Open(FName)
　MsgBox wb.FullName & "を開きました。" & vbCrLf _
　　& "アクティブシート名は、" & wb.ActiveSheet.Name & " です。" & vbCrLf _
　　& "A1の値は「" & wb.ActiveSheet.Range("A1").Value & "」です。" & vbCrLf _
　　& "では" & wb.Name & "を閉じます。"
　wb.Close
　Exit Sub
ER:
　　MsgBox "何らかのエラーが起こりました。", vbCritical, "エラー"
End Sub

この回答へのお礼

期待していた以上にスマートなものが作れそうです。
ありがとうございました。

お礼日時：2004/07/30 14:22

No.1 回答者： ogura_kei 回答日時： 2004/07/30 07:05

Dialogオブジェクトを使用するのではないでしょうか。

たとえば、

Dialogs(wdDialogFileOpen).Show

とすると、見慣れた[開く]のウィンドウが表示されるはずです。

詳しい使用方法は、EXCELのHELPを参照してください。

この回答へのお礼

どうもありがとうございました。
便利に使えそうです。

お礼日時：2004/07/30 14:21