過去ログ

                                Page     534
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼自分がいるドライブ名とフォルダー名の取得  ken 03/1/11(土) 23:12
   ┗Re:自分がいるドライブ名とフォルダー名の...  ポンタ 03/1/12(日) 9:55
      ┗Re:自分がいるドライブ名とフォルダー名の...  ken 03/1/12(日) 21:08

 ───────────────────────────────────────
 ■題名 : 自分がいるドライブ名とフォルダー名の取得
 ■名前 : ken <GED00243@nifty.com>
 ■日付 : 03/1/11(土) 23:12
 -------------------------------------------------------------------------
   自分がいるドライブ名とフォルダー名を
取得したいのですが、何か関数があるのでしょうか?

お教えください。よろしくお願いします。
                ken
 ───────────────────────────────────────  ■題名 : Re:自分がいるドライブ名とフォルダー名の...  ■名前 : ポンタ  ■日付 : 03/1/12(日) 9:55  -------------------------------------------------------------------------
   マクロが存在するブックのドライブとフォルダは
以下の方法で取得できますが、こういうことでしょうか?

名前をつけて保存してから実行してください。

Sub test()
  MsgBox (ThisWorkbook.Path)
  MsgBox (Left(ThisWorkbook.Path, 2))
  MsgBox (Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1))
End Sub
 ───────────────────────────────────────  ■題名 : Re:自分がいるドライブ名とフォルダー名の...  ■名前 : ken <GED00243@nifty.com>  ■日付 : 03/1/12(日) 21:08  -------------------------------------------------------------------------
   ありがとうございます。

早速やってみます。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 534