目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
3 / 273 ←次へ | 前へ→

【292】1つ、2つ上のフォルダ名取得
Excel  Jaka  - 19/6/8(土) 18:04 -

引用なし
パスワード
   ブックのある1つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.Path)
MsgBox CreateObject("Scripting.FileSystemObject").Getfolder(ThisWorkbook.Path).ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..")

ブックのある2つ上のフォルダ
MsgBox CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).ParentFolder.ParentFolder
MsgBox CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.Path & "\..\..")

参考
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36400;id=exce

31 hits

【292】1つ、2つ上のフォルダ名取得 Jaka 19/6/8(土) 18:04 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
3 / 273 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free