[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『フォルダ作成マクロエラー』(ころっけ)
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 >
(ころっけ) 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
ご回答ありがとうございます。
解決しました!
(´・ω・`)さんにご指摘いただいたように、フォルダ名に作成できない外字が混ざっていたのが原因だったようです。身近にある漢字だったので気が付きませんでした。
顧客名で600個近く作らないといけなかったので困ってました。
ありがとうございました。
(ころっけ) 2022/01/20(木) 12:17
ボク、ワルクナイヨネ… (Windows11) 2022/01/20(木) 12:23
Q1. 「身近にある漢字」とは具体的に何という漢字だったでしょうか?
Q2.エラーが発生した時のメッセージはどんなメッセージだったのでしょうか?
内容を示唆する、何か説明的なものであったかと思うのですが、いかがですか?
(γ) 2022/01/21(金) 08:28
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.