Excel VBA質問箱 IV

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

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


10490 / 13644 ツリー ←次へ | 前へ→

【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という文字を取得する方法をご存知の方がいらっしゃい
>ましたら、ぜひ、教えていただけないでしょうか?

最初の1文字切り取るだけなら簡単だけどね。
Cells(1, 1) = Left("1234", 1)

【21551】Re:カレントドライブ名の取得
お礼  どしろうと  - 05/1/23(日) 14:40 -

引用なし
パスワード
   ちゃっぴさん、りすりすさん、
ご回答ありがとうございました。
お陰様で無事解決致しました!

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

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

ご対応いただき、本当にありがとうございました!

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