Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい

Excel VBAについての質問です。

現在、建築関係の注文書を作成しています。
作成した注文書をフォルダに自動的に格納されるマクロを作成することは可能でしょうか。


注文書を作成するフォームでは既に登録した情報が2つのリスト形式で表示されるようになっています。（上からListbox1,Listbox2）
それ以外の下3つの項目は作成時に入力します。
登録ボタンを押すと、名前を付けてフォームの内容を反映した注文書を作成するようにしたのですが
これを工事場所の欄と同じ名前のフォルダに保存できるようにしたいです。

フォルダに関しては注文書を格納するフォルダ（例では注文書作成フォルダ）を作成し、
その中に保存していきたいです。
①工事場所と同じ名前のフォルダが存在する場合
→作成した注文書を同じ名前のフォルダに格納
②工事場所と同じ名前のフォルダが存在しない場合
→作成した注文書と同じ名前のフォルダを作成し、格納

以上、よろしくお願いいたします。

質問者からの補足コメント

• ありがとうございます！
  
  サブフォルダ名、ファイル名等指定したらほぼ思っていた通りになりました。
  1つお伺いしたいのですが、
  注文書を作成する元のブックはシートが既に4枚存在しており、フォームで作成した注文書が5枚目のシートとして作成されます。
  この5番目のシートのみを保存したいのですがどのように変更すればよいでしょうか...

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/01/17 09:44

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/01/16 17:23

こんにちは

不明な点に関して、勝手に以下のように想定しました。
・「注文書作成」フォルダはデスクトップに必ず存在する
・保存するブックはThisWorkbookとする
・保存形式は「.xlsx」とする
・指定されたブック名のファイルが既に存在する場合、ファイル名に連番を付けて保存する
※ 違っている部分に関しては適宜修正願います。

サブフォルダ名、ファイル名はフォームから取得（？）するのだろうと想像しますが、ひとまず直接指定にしてありますので修正してください。
以下、ご参考までに。

Sub Q_13313892()
Dim folderName, fileName, i
Dim folderPath, filePath

Const ext = ".xlsx"
i = 1
folderName = "hoge" ' サブフォルダ名（実際のものに設定のこと）
fileName = "fuga" ' フォルダ名（実際のものに設定のこと）


folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
folderPath = folderPath & "\注文書作成\" & folderName
If Dir(folderPath, 16) <> folderName Then MkDir folderPath
filePath = folderPath & "\" & fileName & ext

While Dir(filePath) <> ""
i = i + 1
filePath = folderPath & "\" & fileName & "(" & i & ")" & ext
Wend
Application.DisplayAlerts = False
ThisWorkbook.SaveAs filePath, xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub

No.2 回答者： fujillin 回答日時： 2023/01/17 17:09

No1です。

＞この5番目のシートのみを保存したいのですがどのように
>変更すればよいでしょうか...
対象とするシートだけのブックとして保存したいってことでしょうか？

もしそうであるなら、一旦、その様なブックを作成して、そのブックを保存するということになるでしょう。
5番目のシートを作成するのではなく、最初から新しいブックのシートにその「5番目のシート」の内容を作成するようにしておけば、そのブックを保存するだけで済みますね。

5シートあるブックから1シートだけのブックを作成したいのであれば、
　・不要な4シートを削除する
　・新しいブックとして1シートをコピーする
などが考えられます。

保存したらお終い（＝ブックを閉じる）のであれば、4シートを削除しても問題はないでしょう。
更に同じような処理を続けるのであれば、新しいブックにコピーするのが簡単でしょう。
シートのCopyメソッドで引数を省略すると、新しいブックにコピーされます。
https://learn.microsoft.com/ja-jp/office/vba/api …


全体像がよくわかりませんけれど、そもそも単独で保存する目的でシートを作成するのなら、最初に記したように、初めから新しいブックにシートを作成しておくのがよさそうに思います。

この回答へのお礼

ご回答いただきありがとうございます。
いただいたSub Q_13313892()のコードを変えてみたのですが、一旦5シートすべてを保存してその上から1シートのみcopyしてブックを作成の流れになり、最初の5シート保存を変更するやり方が分からないままでした。。。
もう少しいろいろいじってみようと思います！

お礼日時：2023/01/20 11:52