• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:A列の値を元にフォルダを作成するVBAの質問です)

A列の値を元にフォルダを作成するVBAの質問です

このQ&Aのポイント
  • A列の値を元にフォルダを作成するVBAでうまく動作しません。
  • 富士通の緑の本を参考にして作ってみたのですが、うまく動作しません。
  • 今のワークブックのある場所にSheet1のA列の値のフォルダを作成するVBAの質問です。

質問者が選んだベストアンサー

  • ベストアンサー
  • moon00
  • ベストアンサー率44% (315/712)
回答No.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 ご自分で勉強されようとしているようなので、あえて完成形のコードは掲載しないでおきます。

nenosuke
質問者

お礼

回答どうもありがとうございました。 教えていただいて大変参考になりました。

nenosuke
質問者

補足

moon00様回答どうもありがとうございます。 Folderpath = ThisWorkbook.Path & "\" & Cells(i, 1).Value 教えていただいたおかしいと思われるところを 修正しましたら、なんとうまくいきました。 3. Dim MyFSO As New FileSystemObject に関してですが、Excel2007のVBAのツール から参照設定をすると緑の本(ExcelVBAプログラミング実践編には書いてありましたので、そのせいでうまくいったようです。 大変助かりましたどうもありがとうございました。