エクセルマクロ 開いた時にフォルダ指定

タイトルどおりなのですが、あるマクロをスタートさせた時に「ファイルを開く」ボックスが出ます。その時、ファイルの場所の欄には「マイドキュメント」フォルダが表示されています。
このファイルの場所の欄に、いきなり「Ｃドライブ内のProgram File内の○○フォルダ内の●●フォルダ」（すなわち最終的には●●フォルダを）表示させたいのです。
分かる方教えてください。

No.2 ベストアンサー 回答者： hirorin00 回答日時： 2006/09/21 12:08

はじめまして

ツール→オプション→全般タブのカレントフォルダ名に「"c:\Program File\○○\●●"」（カギ括弧は不要です）と入れてOKをクリックしてみてください。

これでいけるはずです。

この回答へのお礼

これは初心者でもわかりやすい！！ＧＯＯＤです。

お礼日時：2006/09/21 16:36

No.3 回答者： Wendy02 回答日時： 2006/09/21 14:50

こんにちは。

別に書き方にあれこれ問題はないけれども、通常、こんなスタイルで、目的のフォルダに行き、また、元のフォルダに戻すようにして作ります。

Sub OpenSesame()
Dim myPath As String
Dim FileName As String
Const AIMPATH As String = "C:\Program Files\Microsoft Office\Office\"
myPath = CurDir '元のフォルダを確保

ChDir AIMPATH
　Filename = Application.GetOpenFilename("Excel(*.xls),*.xls")
　If Filename = "False" Then Exit Sub

'実行
MsgBox CurDir

ChDir myPath　'元のフォルダに戻す
End Sub

>（すなわち最終的には●●フォルダを）表示させたいのです。

ただし、フォルダを取り出すというなら、上記のコードは違います。
CreateObject("Shell.Application")
を使います。

この回答へのお礼

Wendy02さんには以前にもエクセルマクロに関してたびたび回答を頂いております。ありがとうございます。
マクロがくめる人はやはりこのくらいのプログラムはなんてことは無いんでしょうね。うらやましいです。
今回はＮｏ．２さんのやり方で解決できましたので、プログラム勝負の際には参考に致します。

お礼日時：2006/09/21 16:39

No.1 回答者： hana-hana3 回答日時： 2006/09/21 10:49

マクロの「ファイル（フォルダ）を開く」命令の前に、

ChDrive "C"
ChDir "C:\～"

と、任意のフォルダを指定してください。

この回答へのお礼

ありがとうございます。

お礼日時：2006/09/21 16:35