こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ダイアログボックスのpathの指定で下位フォルダを指定したい

Excel2003 でマクロ作成中の超初心者です。以下のコードで21年度のフォルダが開けます。が、21年度\個人別 という下位のフォルダを指定したいのです。pathを\C・・・から指定すればできそうですが、このマクロを他のPCで実行した場合pathがみつかりませんの
エラーが出ると思います。どう指定したらよろしいでしょうか。
Private Sub CommandButton7_Click()
Dim OpenFileName As String
On Error Resume Next
ChDir "21年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub

投稿日時 - 2009-03-16 10:19:35

QNo.4800855

すぐに回答ほしいです

質問者が選んだベストアンサー

実行したExcelのパスを取得して、階層を指定してあげればいいのでは?

ChDir ThisWorkbook.Path + "\21年度\個人別"

もしかしたらそのままのコードでは開けないかもしれませんが・・・。

投稿日時 - 2009-03-16 11:24:59

お礼

できました!ありがとうございました。ほんとにたすかりました

投稿日時 - 2009-03-16 11:46:25

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

ブックを置く場所から 相手のフォルダーは固定できるのでしょうか?

固定できるのであれば
ChDir thisWorkbook.Path
ChDir "..\..\21年度\個人別"
などと 21年度\個人別 を ブックからの相対パスにしてはいかがでしょう

投稿日時 - 2009-03-16 10:26:29

補足

お世話になります。今実行しましたが、パスが見つかりません と表示されます。 点の数が影響しているのでしょうか?

投稿日時 - 2009-03-16 10:49:42

あなたにオススメの質問