- ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:A列の値を元にフォルダを作成するVBAの質問です)
A列の値を元にフォルダを作成するVBAの質問です
このQ&Aのポイント
- A列の値を元にフォルダを作成するVBAでうまく動作しません。
- 富士通の緑の本を参考にして作ってみたのですが、うまく動作しません。
- 今のワークブックのある場所にSheet1のA列の値のフォルダを作成するVBAの質問です。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
下記サイトを参考にして、以下の点を修正すれば動きます。 3. Dim MyFSO As New FileSystemObject → VBAでこの書き方は多分NGだと思います。下記を参考にしてみてください。 http://officetanaka.net/excel/vba/filesystemobject/filesystemobject05.htm 11. Folderpath = ThisWorkbook & "\Cells(i, 1).value" →ThisWorkbookだけだと、何も取れないと思います。ここはThisWorkbook.Pathでは? →"\Cells(i, 1).value" ""の中は文字列の扱いなので、これだとファイル名がCells(i, 1).valueに なってしまいます。 文字列として付加したいのは「\」なので、 "\" & Cells(i, 1).Value こういう形になるはず。 13. MyFSO.CreateFolder Path:=Folderpath → これも、下記を参考にしてみてください。 http://officetanaka.net/excel/vba/filesystemobject/filesystemobject05.htm ご自分で勉強されようとしているようなので、あえて完成形のコードは掲載しないでおきます。
お礼
回答どうもありがとうございました。 教えていただいて大変参考になりました。
補足
moon00様回答どうもありがとうございます。 Folderpath = ThisWorkbook.Path & "\" & Cells(i, 1).Value 教えていただいたおかしいと思われるところを 修正しましたら、なんとうまくいきました。 3. Dim MyFSO As New FileSystemObject に関してですが、Excel2007のVBAのツール から参照設定をすると緑の本(ExcelVBAプログラミング実践編には書いてありましたので、そのせいでうまくいったようです。 大変助かりましたどうもありがとうございました。