VBAでフォルダ名の取得。

Question

セルから取得した値から、改行を削除したもの名前とし、フォルダを作成したいのですが、取得したセル自体の値は変更したくありません。現在下記のように作ってみたのですが、うまく動かないのでご教授いただけますか、、

Sub ログフォルダ作成()

Dim ログフォルダ As String
Dim フォルダ名 As String

フォルダ名 = Replace(ActiveCell.Offset(0, 1).Value, vbCrLf, "")
ログフォルダ = "C:\Users" & フォルダ名

MkDir ログフォルダ

End Sub

かなり素人なので、優しく教えていただけると助かります。

Comments

[unau]

エラーは出ていますか。出ているとしたらどんなエラーが出ていますか。

[.feel-ing_]

「パスが見つかりません」になっていたのですが、他の回答者様のご指摘で、vbLfとしたら動きました！

Answer 1

Excelの場合、セル内の改行コードはLFのみです。
ですのでvbCrLfではなくvbLfを使ってreplaceしてあげます。

フォルダ名 = Replace(ActiveCell.Offset(0, 1).Value, vbLf, "")

Windows では通常、改行コードはCrLfですが、Word の shift+enter による改行や Excel のセル内改行ではLfのみとなる仕様だそうです。

Comments

[.feel-ing_]

その通りにすると治りました！BAには他の方選んでしまいましたが、詳しく説明頂きありがとうございます。

[thom.jp]

横からすみません。
補足しますと、Alt+Enterで改行した場合はLFとなりますが、マクロ等でセルにvbCrLfを入力することはできます。
今回のケースでは問題ないと思いますが、混在してしまう可能性があれば、vbCrLfを一旦vbLfに置換し、それから目的の値に変換すると良いです。

ちなみにWordのShift+Enterは、LFではなく、垂直タブChr(11)またはvbVirticalTabです。

Answer 2

「vbCrLf」のところを「vbLf」か「vbCr」に変更して試してみてください。（たぶんvbLfで動くと思います）

＜追記＞
すみません、途中で送信してしまいました。
見た目には分からないのですが、改行の種類にはこの3つがあるため、場合によって使い分ける必要があるのです。

Comments

[.feel-ing_]

治りました！！ありがとうございます！