Excel VBA質問箱 IV

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

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


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

53300 / 76736

←次へ　｜　前へ→


	【28252】Re:パスを指定してフォルダを選択させる...

2月うさぎ - 05/9/1(木) 13:30 -


	引用なし

	パスワード

だるま様、小僧様、ありがとうございました。

使用しているExcelが2000以上の環境ということで、FileDialogが使う、という方法を先輩から教えてもらいました。

Dim StrPath As String
Dim F As FileDialog

StrPath = ThisWorkbook.Path

'ファイルを開くダイアログボックスの表示

　　Set F = Application.FileDialog(msoFileDialogOpen)
　　F.AllowMultiSelect = False
　　F.Filters.Clear
　　F.Filters.Add "Microsoft Excelブック", "*.xls"
　　F.InitialFileName = StrPath

こんな感じで、思っていたような機能ができました。

よく調べずに投稿してお騒がせしてしまい、すいません。
またよろしくお願いいたします。

0 hits

▼

【28173】パスを指定してフォルダを選択させるには？ 2月うさぎ 05/8/30(火) 11:45