Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
76724 / 76738 ←次へ　｜　前へ→
【3323】Re:マクロを用いて開いたファイルのサブフ...
回答  ポンタ  - 03/1/31(金) 14:58 -
引用なし
パスワード
   これでどうですか？

ブック名は適当に書き換えてください。

Sub test()
　　Dim MyPath As String
　　MyPath = Workbooks("Book1.xls").Path
　　MsgBox (Right(MyPath, InStr(1, StrReverse(MyPath), "\") - 1))
End Sub
3 hits
▼ 【3321】マクロを用いて開いたファイルのサブフォルダのパスのみ抽出したいのですが... ntomo 03/1/31(金) 14:20 質問
【3323】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 14:58 回答≪
【3324】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 15:27 質問
【3327】Re:マクロを用いて開いたファイルのサブフ... Jaka 03/1/31(金) 16:14 回答
【3328】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 16:32 お礼
【3329】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 16:32 発言
【3332】Re:マクロを用いて開いたファイルのサブフ... ichinose 03/1/31(金) 20:55 発言
【3364】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/2/3(月) 9:57 お礼
【6635】改訂版 Jaka 03/7/16(水) 9:13 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
76724 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free