Excel VBA質問箱 IV

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

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


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

【73924】フォルダ名の取得 boston 13/3/22(金) 10:09 質問[未読]
【73925】Re:フォルダ名の取得 とおりすぎ 13/3/22(金) 10:20 回答[未読]
【73926】Re:フォルダ名の取得 boston 13/3/22(金) 10:37 お礼[未読]

【73924】フォルダ名の取得
質問  boston  - 13/3/22(金) 10:09 -

引用なし
パスワード
   またまた深みにはまってしまったので、質問します。

フォルダ名を取得するマクロを以下のように作りました。
A1セルには、フォルダ名と改行された行の2行になってしまします。
CHr(13)またはCHr(10)だと思います。

この改行を無くし単純なフォルダ名だけにするには、
どうしたら良いのでしょうか。

因みに、ThisWorkbook.Path指定だと、改行は入りませんでした。

Sub Macro1()
  Dim MY_fopath As String
  Dim MY_foname As String
  Dim MY_cut() As String
  MY_fopath = vbCrLf & CurDir & vbCrLf  'カレントフォルダ パス を取得
  MY_cut = Split(MY_fopath, "\")     '\ で 分割して配列に入れる
  MY_foname = MY_cut(UBound(MY_cut))   'サブフォルダ名を格納
  Range("a1").Value = MY_foname     'A1に表示
End Sub

【73925】Re:フォルダ名の取得
回答  とおりすぎ  - 13/3/22(金) 10:20 -

引用なし
パスワード
   vbCrLfはなんでつけてるの?

【73926】Re:フォルダ名の取得
お礼  boston  - 13/3/22(金) 10:37 -

引用なし
パスワード
   ▼とおりすぎ さん:
すみません。フォルダ名取得コードを他の資料から
そのまま引用しました。

確認したら、vbcrlf は改行の意味だったのですね。
赤面です。
ありがとう御座いました。

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