ActiveWorkbook.Pathの一つ上のパスを取得する方法はありますか?
例えば、現在のエクセルブックが入っているパスが
C:\Users\ユーザー名\Documents
だった場合、
ActiveWorkbook.Pathをすると、上記のパスが取得されますが、
VBAコードで「C:\Users\ユーザー名」までを取得する方法はありますか?
Dim strPathName As String
strPathName = ActiveWorkbook.Path
strPathName = Replace(strPathName, "\Documents", "")
こうするしかないですか?
No.2ベストアンサー
- 回答日時:
rdnxeifhylevaさん
以下の命令で一つ上(親)のパスを取得できます。
strPathName = CreateObject("Scripting.FileSystemObject") _
.GetFolder(ActiveWorkbook.Path).ParentFolder
お試しください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) 複数のブックをひとつのブック(複数のシートにまとめる)場合にシートとの順番について 5 2022/12/28 20:47
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい 2 2023/07/26 15:13
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBAで一つ上の階層を指定して保存したい
Excel(エクセル)
-
ActiveWorkbook.Pathの一つ下のフォルダ
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
5
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
6
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
エクセルでエラーが出て困っています。
Excel(エクセル)
-
9
エクセルVBAでブックを相対パスで保存する
Excel(エクセル)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
マクロで、次のコードへ行く前に時間をおくにはどうしたらいいのでしょうか?
その他(Microsoft Office)
-
12
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
13
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
14
ActiveWorkbook.Path取得できない
Visual Basic(VBA)
-
15
【ExcelVBA】各セルをダブルクォーテーションで括ってCSV保存したい
Visual Basic(VBA)
-
16
ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします
Visual Basic(VBA)
-
17
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どうかどなたか教えてください。
-
ニュー速VIPで使われるパスワー...
-
HEWのワークスペースが開けない
-
ActiveWorkbook.Pathの一つ上
-
Photoshop cc 正円形のパス線が...
-
Accessのフォームで商品の画像...
-
Accessマクロで出てくるコマン...
-
Axfcのダウンロードのパスワード
-
RmDirでフォルダが削除できない...
-
フォトショップの切り抜き
-
セルにフルパスを入力してPDFフ...
-
今度、関西に旅行に行こうと思...
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
白飛びした(明るい)写真をiPhon...
-
「これが」「これで」いいです...
-
visual studio でインデントを...
-
gimpで色交換できません。
-
「無」と「未」の使い方
-
Excel 行列が選択出来ない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ディズニーランドのDPAとPPの取...
-
USJのスタジオパスとエクスプレ...
-
新幹線について
-
フォルダ選択でなくフルパスを...
-
Accessのフォームで商品の画像...
-
Axfcのダウンロードのパスワード
-
ActiveWorkbook.Pathの一つ上
-
HEWのワークスペースが開けない
-
Accessマクロで出てくるコマン...
-
iPhoneでメルカリのキャンペー...
-
ExcelVBA ショートカットファイ...
-
Photoshop cc 正円形のパス線が...
-
セルにフルパスを入力してPDFフ...
-
EXCELファイルのカレントフォル...
-
今度、関西に旅行に行こうと思...
-
相関関係とパス係数の関係
-
スキャンしたファイルを共有フ...
-
RmDirでフォルダが削除できない...
-
ヘルプマークって印刷した物を...
-
MSアクセスのjpgファイル表示
おすすめ情報