[[20221214134526]]　『実行時エラー75』（りん）　ページの最後に飛ぶ

『実行時エラー75』（りん）

実行時エラー75
パス名が無効です

というメッセージが出ます
解決方法を教えてくれませんか？

 Sub フォルダ作成()
    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

この　MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
が黄色くなります

A2から作りたいフォルダ名を入力しています

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

まずはこの辺からでしょうか...

VBA エラー 75「パス名が無効です。」の原因と対処方法 - エク短｜Extan.jp
https://extan.jp/?p=2782

（白茶） 2022/12/14(水) 14:02:59

 エラー時のiの値とCells(i, 1)の内容は？
（ねむねむ） 2022/12/14(水) 14:30:58

「既に作成してあるフォルダを再度作成しようとしている」と見た。

（通りすがり） 2022/12/14(水) 14:57:28

じゃあ僕は「日付フォルダを作ろうとして、/（スラッシュ記号）を含むフォルダ名になっちゃってる」予想で。
（ufj） 2022/12/14(水) 15:04:38

 ブックを一度保存して実行するとエラーは出ませんでした。
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row　では
 End(xlUp).Row　のみ作成されました。順次作成してくれませんでした。
 マクロ苦手なので他の回答待ってください。
（LY） 2022/12/14(水) 17:18:35

＞End(xlUp).Row　のみ作成されました。順次作成してくれませんでした。
はぁ？　普通に動くはずですが？

（よーわからん） 2022/12/14(水) 17:37:00

 よーわからんさん
 指摘ありがとう。
 再度実行したら問題ありません。
 >> For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row　では
 >> End(xlUp).Row　のみ作成されました。順次作成してくれませんでした。
 >>マクロ苦手なので他の回答待ってください。
 についてはスルーしてください。
（LY） 2022/12/14(水) 20:33:20

コメント返信：

[ 一覧(最新更新順) ]

[[20221214134526]] 『実行時エラー75』（りん） ページの最後に飛ぶ

[[20221214134526]]　『実行時エラー75』（りん）　ページの最後に飛ぶ