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ファイルを別名で保存してみる

サイズが大きくなってもいいから…Excelファイルにオブジェクトの挿入で別のExcelファイルを埋め込んでおいて、VBAでいじって保存できんかなと…やってみるとできるもんだな。 …

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

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

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

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

Excel VBAメモ テーブルの挿入で作ったテーブルを名前で見つけて内容を取得してみる

野暮用で。 ポイントはこんな感じ。 テーブルに名前をつけておく SheetオブジェクトのテーブルコレクションListObjectsからテーブルListObjectを取得する テーブルの名前はNameプ …

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

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

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