フォルダー指定時に使用する「ShellApp.BrowseForFolder」について教えてください。
パス指定するところに直にフルパスを記述すると、そのフォルダを先頭として配下のフォルダが表示されます。
-イメージー
【業務】
【業務1】
【業務2】
しかし、変数にするとエラーは出ないのですが指定したパスを無視してデフォルトの表示となります。
-イメージー
【デスクトップ】
【マイドキュメント】
【マイコンピュータ】
:
ファイルを置いて実行させるフォルダーが固定で無いので、ファイルを置いてあるフォルダ配下のみ表示させたいのですが無理なのでしょうか。
実行環境が97なのが影響してるのでしょうか。
どなたか、お助けください。
以下、今試しているソースです。
Dim ShellApp As Object
Dim oFolder As Object
Dim MyPath As String
MyPath = ActiveWorkbook.Path
ChDir MyPath
'MyPathの中身が「C:\Documents and Settings\ABC\My Documents\業務」であることを確認
MsgBox (MyPath)
Set ShellApp = CreateObject("Shell.Application")
'直にパス指定すると、業務を先頭にその配下のフォルダ指定となる
Set oFolder = ShellApp.BrowseForFolder(0, "処理ファイルの格納フォルダ選択", 1, "C:\Documents and Settings\ABC\My Documents\業務")
'MyPathがきいてない。デスクトップを先頭にその配下のフォルダ指定となる
Set oFolder = ShellApp.BrowseForFolder(0, "処理ファイルの格納フォルダ選択", 1, MyPath)
No.1ベストアンサー
- 回答日時:
あらまぁ、不思議・・・と実験してみました。
本当ですねぇ。
でちょこっと調べました。
で、結果として判明した事。
BrowseForFolderのルート指定するところはオブジェクトタイプのようでString型で渡すとだめなようです。
なので
Dim MyPath As String
を
Dim MyPath
としてバリアント型で指定すれば大丈夫なようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
exeと同じ階層にフォルダを配置...
-
ディレクトリ名変更してコピー...
-
VBA 最新のフォルダ取得
-
エクセルのマクロについて教え...
-
セレクトボックスで選択された...
-
VBプロジェクトでのフォルダ構...
-
フォルダの場所を可変にしたい...
-
Excelのハイパーリンクについて...
-
VBA フォルダの複数選択ができない
-
ThisWorkbookがあるフォルダ更...
-
カレントフォルダって?
-
VBAでのフォルダ指定方法につい...
-
デスクトップの画像をhtmlに表...
-
Excel VBA 同じ名前のフォルダ...
-
ExcelVBAでフォルダへのハイパ...
-
inputboxでセルの値を初めから...
-
ExcelのVBAでフォルダ指定がで...
-
VB.net開発途中でのバックアッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
エクセルのマクロについて教え...
-
バッチファイルで指定フォルダ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報