Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10492 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21547】カレントドライブ名の取得 どしろうと 05/1/23(日) 13:51 質問[未読]
【21548】Re:カレントドライブ名の取得 ちゃっぴ 05/1/23(日) 13:56 回答[未読]
【21549】Re:カレントドライブ名の取得 りすりす 05/1/23(日) 14:15 回答[未読]
【21551】Re:カレントドライブ名の取得 どしろうと 05/1/23(日) 14:40 お礼[未読]
【21547】カレントドライブ名の取得
質問  どしろうと  - 05/1/23(日) 13:51 -
引用なし
パスワード
   エクセルファイルのカレントドライブを取得するためには、
どうしたら良いでしょうか？

たとえば、
エクセルファイルが、
C:\AAA\BBB\abc.xls
にある場合、

Cという文字を取得する方法をご存知の方がいらっしゃい
ましたら、ぜひ、教えていただけないでしょうか？
【21548】Re:カレントドライブ名の取得
回答  ちゃっぴ  - 05/1/23(日) 13:56 -
引用なし
パスワード
   ▼どしろうと さん：
>エクセルファイルのカレントドライブを取得するためには、
>どうしたら良いでしょうか？

CurDir関数で、Drive文字だけを切り出してやればいいと思いますが、
なぜ必要でしょう？

出来るだけ、Current Dirve/Directoryを使用しない
Codingを心がけたほうがいいですよ。
【21549】Re:カレントドライブ名の取得
回答  りすりす  - 05/1/23(日) 14:15 -
引用なし
パスワード
   ▼どしろうと さん：
>エクセルファイルのカレントドライブを取得するためには、
>どうしたら良いでしょうか？
>
>たとえば、
>エクセルファイルが、
>C:\AAA\BBB\abc.xls
>にある場合、
>
>Cという文字を取得する方法をご存知の方がいらっしゃい
>ましたら、ぜひ、教えていただけないでしょうか？

最初の１文字切り取るだけなら簡単だけどね。
Cells(1, 1) = Left("1234", 1)
【21551】Re:カレントドライブ名の取得
お礼  どしろうと  - 05/1/23(日) 14:40 -
引用なし
パスワード
   ちゃっぴさん、りすりすさん、
ご回答ありがとうございました。
お陰様で無事解決致しました！

只今、あるバッチファイルを作成中でして、
その中で、カンレントディレクトリ名が
必要だったのです。

実際には、次のように設定し、解決致しました。
Dim aaa
aaa = Curdir
Cells(1, 1) = Left(aaa, 1)

ご対応いただき、本当にありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10492 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free