tetsuyanbo

welcome to tetsuyanbo web site!!

VBA

Excel VBAメモ Windows APIを使わずに階層の深いフォルダーを作成してみる

投稿日:2014/09/30 更新日:

野暮用で…VBAってフォルダーを一気に作れないのね…。
FileSystemObjectのCreateFolder()ってのにフルパスを入れると実行エラーになっちゃう…。

24247_04

これは、たとえばc:\aaa\bbb\cccってパスのフォルダを作ろうとした場合、こんなことになるとエラーになっちゃう。

  • aaaって名前のフォルダがない
  • aaaって名前のフォルダがあっても、bbbってフォルダがない

そんな訳で、試しに作ったメソッドっぽいの(VBAでいうFunctionプロシージャ)はこんな感じ…。
※特にエラー処理を考えていないので、本気で使おうと思ったらエラー処理いるな…。

あと、メソッドを呼ぶためのメソッドっぽいの(VBAでいうSubプロシージャ)はこんな感じ。

んで、結果はこんな感じ。
まずは、実行前はこんな感じで”aaa”ってフォルダーはいない。

24247_01

んで、実行するとこんな感じ。
とりあえず、”aaa”ってフォルダーはできた。

24247_02

んで、中身はどうかというと…ちゃんと”aaa”、”bbb”、”ccc”の順番でフォルダーができてるっぽい。

24247_03

んまま、メモってことで。

-VBA
-, , , , , , , , , , , , , , , , , , , , , ,

執筆者:


comment

メールアドレスが公開されることはありません。

関連記事

Excel VBAメモ オブジェクトの挿入で埋め込んだ圧縮ファイルを指定した場所に保存してみる

せっかくExcelに他のExcelファイルを埋め込めるんだから、他のファイルをうまく埋め込んで1つのファイルにできないもんかなぁって思ってネットに聞いてたら…あるんだねぇ。 ポイントはこん …

Excel VBAでメモ帳を起動してみる

野暮用で…メソッドで一発。 コードはこんな感じ。

んで、実行すると…こんな感じでメモ帳が起動する。 ちなみに、 …

Excel VBAメモ WScriptのRegRead()メソッドを使ってHKEY_LOCAL_MACHINE以下にあるレジストリの値を取得してみる

ヤボ用で必要になったので。 最初はGetSetting()ってメソッドでレジストリの値を取得しようと思ったんだけど、どうやらHKEY_CURRENT_USER\Software\VB and VBA …

no image

Excel VBAメモ ContinueのかわりをDo…Loop Whileにさせてみる

いまさらだけど、Excel 2003より前のExcel VBAってcontinueないっぽい…知らんかったわ…。 野暮用でどうしても2003を使うことになったんだけど、cont …

Excel VBAメモ シートの保護を解除してみる

野暮用で必要になったので。 ポイントはこんな感じ。 Worksheet.ProtectContentsプロパティでシートが保護されているか確認する シートが保護されている場合はWorksheet.Un …