VBA 新規でファイルを作成するとそのファイルが開いてしまう

Question

前提・実現したいこと

指定のファイル名で新規ファイルを作成したい

発生している問題・エラーメッセージ

エラーはなく新規ファイルが作成はされるのですが、作成されてそのまま保存されれば良いのですが、開いてしまうためいちいち閉じなければいけません
フォルダに新規ファイルが保存されるだけにしたいです。

該当のソースコード

Dim ws As Worksheet
Set ws = Worksheets("シート名")
Dim col As Long
Dim row As Long
col = 1
row = 2

FilName = ws.Cells(row, col).Value 'セルの値をファイル名に'

Workbooks.Add.SaveAs Filename:=hozonPath & "¥" & FilName

補足情報（FW/ツールのバージョンなど）

Microsoft Bisual Vasic for Applications 7.1

Comments

[meg_]

> 作成されてそのまま保存されれば良いのですが、開いてしまうためいちいち閉じなければいけません
コードに閉じる処理を追加すれば良いのでは？

[begginer_class]

「Workbooks.Add.SaveAs Filename:=hozonPath & "¥" & FilName」の下に、
「Workbooks.Add.Close」 を入れてみたのですが変わりませんでした。ブックの指定方法が間違っているためでしょうか。

そもそも、Workbooks.Addって新規作成するタイミングで必ずファイルが開いてしまうものなのでしょうか？
調べてみたのですがそう言った情報に辿り着けませんでした。

Answer 1

Workbooks.Add は新規ブックを追加するという動作になりますので、新規ブックは開きます。（[ファイル]-[新規]をクリックしたのと同じ動作）
その後、開いたブックを SaveAsで保存、Closeで閉じればいいでしょう。

Sub test()
    Dim wb As Workbook 
    Set wb = Workbooks.Add
    wb.SaveAs Filename:="C:\TEST\Sample.xlsx"
    wb.Close: Set wb = Nothing
End Sub

上記だと一瞬、ブックが開くのが見えますので、それが気になるなら、別のエクセルを開いてそれでブックを新規追加すれば非表示で処理できます。

Sub test2()
    Dim exApp As New Application '別エクセルを生成
    Dim wb As Workbook
    Set wb = Workbooks.Add
    wb.SaveAs Filename:="C:\TEST\Sample.xlsx"
    wb.Close: Set wb = Nothing
    exApp.Quit: Set exApp = Nothing '別アクセルを閉じる
End Sub