VBA：在特定目录上创建新工作簿

Question

我想使用活动工作簿中的按钮在特定目录上创建一个新工作簿。

目录将是 Drive D:\\SALES_RFQ Database

工作簿名称为“MO 控制编号数据库”

条件：代码必须检查工作簿是否存在，如果不存在，则必须在给定目录上创建工作簿。

非常感谢任何帮助。 提前致谢

Answer 1

Option Explicit

Sub test()

    Dim Path As String, DocName As String

    Path = "D:\SALES_RFQ Database"
    DocName = "M.O Control Number Database"

    If Dir(Path & "\" & DocName & ".xlsx") = "" Then
        Workbooks.Add
        ActiveWorkbook.SaveAs Path & "\" & DocName & ".xlsx"

    End If

End Sub