Excel VBA質問箱 IV

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

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


76720 / 76738 ←次へ | 前へ→

【3329】Re:マクロを用いて開いたファイルのサブフ...
発言  ポンタ  - 03/1/31(金) 16:32 -

引用なし
パスワード
   Jakaさん、フォローありがとうございます。

>MsgBox Dir(フルパスファイル名, vbDirectory)

言われるまで、完全に忘れてました。


>因に StrReverse は、2000からです。

ということは、これなら動くということですね。
#もう、用無しですけど(汗)

Sub test()
  Dim MyPath As String
  MyPath = Workbooks("Book1.xls").Path
  Do
    MyPath = Mid(MyPath, InStr(1, MyPath, "\") + 1)
  Loop While InStr(1, MyPath, "\") > 0
  MsgBox (MyPath)
End Sub

4 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 発言

76720 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free