[[20220120070310]] 『フォルダ作成マクロエラー』(ころっけ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『フォルダ作成マクロエラー』(ころっけ)

A2から下向きに複数個打ち込まれている文字列でフォルダを作るマクロを動かしていたのですが、WIN11にしてからエラーが出るようになりました。

Sub フォルダ作成()

 If MsgBox("フォルダを作成しますか?", vbYesNo) = vbNo Then
    Exit Sub
End If
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
    Next i

End Sub

間違っているところがわかりません。
教えてください。
よろしくお願いします

< 使用 Excel:Excel2010、使用 OS:unknown >


デバックではMkDir ThisWorkbook.Path & "\" & Cells(i, 1)がエラー個所となっているようです

(ころっけ) 2022/01/20(木) 07:12


 同環境では無いので確認出来ませんが、
 Valueプロパティを明示しても同様でしょうか。
 MkDir ThisWorkbook.Path & "\" & Cells(i, 1).Value
(qwerty) 2022/01/20(木) 08:07

 エラーメッセージを正確に示してください。

 また、↓のような事前確認してみてはどうですか?
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Debug.Print ThisWorkbook.Path & "\" & Cells(i, 1).Text
    Next i
 また、作ろうとするフォルダが すでにある、ということはことはないですか?

(γ) 2022/01/20(木) 08:23


 マクロはどのようにして実行しているのでしょう?
 あと、シートの指定はないので、アクティブシート
 のセルを参照するコードになってますが、そこは
 大丈夫ですか?

 あと、もしかしたら↓が参考になるかもしれません。

[[20130513223611]] 『手動でブックを閉じたとき(赤×で閉じたとき)とユ』(田吾作)
(OK) 2022/01/20(木) 09:48


 ファイル名・フォルダ名に使えない文字がふくまれていたりするのもあるあるです
 \  円記号
 /  スラッシュ
 :  コロン
 *  アスタリスク
 ?  クエスチョンマーク、疑問符
 "  ダブルクォーテーション
 <  不等号
 >  不等号
 |   縦棒
(´・ω・`) 2022/01/20(木) 10:33

qwetyさん
γさん
OKさん
(´・ω・`)さん

ご回答ありがとうございます。
解決しました!

(´・ω・`)さんにご指摘いただいたように、フォルダ名に作成できない外字が混ざっていたのが原因だったようです。身近にある漢字だったので気が付きませんでした。
顧客名で600個近く作らないといけなかったので困ってました。

ありがとうございました。

(ころっけ) 2022/01/20(木) 12:17


 ボク、ワルクナイヨネ…
(Windows11) 2022/01/20(木) 12:23

Windows11
ごめんねごめんね〜
(ころっけ) 2022/01/20(木) 16:59

解決されたようで何よりです。
質問者さんからもう少しフィードバックしてもらうと閲覧者にも参考になります。
お互い、ギブアンドテイクでお願いします。

Q1. 「身近にある漢字」とは具体的に何という漢字だったでしょうか?
Q2.エラーが発生した時のメッセージはどんなメッセージだったのでしょうか?

     内容を示唆する、何か説明的なものであったかと思うのですが、いかがですか?

(γ) 2022/01/21(金) 08:28


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.