![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?e8efa67)
No.1ベストアンサー
- 回答日時:
以下のマクロは
ActiveWorkbook.Pathの一つ下の階層のフォルダパスを取得し、メッセージボックスに表示します。
標準モジュールに登録してください。
Sub Sample()
Dim FName As String
FName = Dir(ThisWorkbook.Path & "\" & "*", vbDirectory)
Do While FName <> ""
If (GetAttr(ThisWorkbook.Path & "\" & FName) And vbDirectory) > 0 And FName <> "." And FName <> ".." Then
MsgBox (FName)
End If
FName = Dir
Loop
End Sub
No.4
- 回答日時:
特殊フォルダを取得したいと言う事でしょうか?
その場合は、Windows Scripting Hostを使います。
Private Sub Sample_WshFol()
Dim MyPath As String
MyPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\"
'MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" ’デスクトップ
Debug.Print MyPath 'イミディエイトウィンドウに出力
End Sub
また、任意のサブフォルダを取得する場合は、FileSystemObjectを使います。
folder As Scripting.folderを使用している為、事前バインディングしてください。
参照設定(VBE-ツール)でMicrosoft Scripting Runtimeにチェックを入れてください。
Sample_SubFolを実行します。
Option Explicit
'Dim Pch_Arr() As Variant
Private Sub Sample_SubFol()
Dim fso As Scripting.FileSystemObject
Set fso = New FileSystemObject
listSubFolders fso.GetFolder("C:\Users\"), 1
End Sub
Private Sub listSubFolders(ByVal folder As Scripting.folder, ByRef n As Long)
Dim fol As Scripting.folder
For Each fol In folder.SubFolders
Debug.Print fol 'イミディエイトウィンドウに出力
' ReDim Preserve Pch_Arr(n)
' Pch_Arr(n) = fol & "\"
' n = n + 1
' listSubFolders fol, n '再帰処理
Next
Set fol = Nothing
End Sub
Sampleは、1つ下の(For Eachで)サブフォルダすべてを抽出しています。
コメント部は、(今回、気にしないでください。)配列にアドレスを入れる。また、さらにに下階層抽出
No.2
- 回答日時:
一覧を取得すれば良いのでしょうか?
「ActiveWorkbook.Path」は「ActiveWorkbook」が保存されているパスなので上位フォルダは1つですが下位フォルダーは無かったり複数あったりします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) 複数のブックをひとつのブック(複数のシートにまとめる)場合にシートとの順番について 5 2022/12/28 20:47
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/10/26 17:14
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBAで一つ上の階層を指定して保存したい
Excel(エクセル)
-
1つ下の階層のフォルダに相対パスでアクセスするには
HTML・CSS
-
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
-
4
エクセルマクロで指定フォルダの下層フォルダにあるファイル全てを集計したいのですが、1階層下のフォルダ
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
ActiveWorkbook.Pathの一つ上
PowerPoint(パワーポイント)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
12
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
13
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
14
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
15
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
16
ExcelVBAでカレントディレクトリのファイルを開く方法は?
Excel(エクセル)
-
17
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
18
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
エクセルの関数について教えて...
-
エクセルでセルに標準で入力さ...
-
Microsoft1Officeの互換ソフト...
-
シフト表をエクセルで作るとき...
-
ユーザー定義関数をアドイン登...
-
Excel VBAで全ての矢印を赤色に...
-
VBA Private Sub Worksheet_Cha...
-
2列に入っているデータを1列...
-
Excelに詳しい方! B列が「日...
-
excel2013 MonthDays 関数が使...
-
エクセルのクイックアクセスツ...
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ActiveWorkbook.Pathの一つ下の...
-
ActiveReportのDataSourceについて
-
VBAでTIFF画像を読み込むには?
-
登録済みイベントリスナーの情...
-
Excelで可視セルの行番号取得
-
EXCEL VBAで、EXCELの入力規則...
-
Formatでmmが月と分を意味する理由
-
java → jsp コンボボックス表示...
-
strutsで空白を認識させるには?
-
Spreadでの複数行選択
-
vbaで、オートシェイプ文字列、...
-
GetWindowTextについて
-
javascriptでローカルフォルダ...
-
指定地点(緯度・経度)から指定...
-
google apps script スクレイピ...
-
javascriptでIMEの状態を取得
-
WebBrowserに表示されているペ...
-
jsp 動的テーブルについて
-
MultipartRequestWrapperについて
-
Goole Mapsのマイマップで出力...
おすすめ情報