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

Excel VBA:在特定目录上创建新工作簿,excel,vba,Excel,Vba,我想使用Active工作簿中的按钮在特定目录上创建新工作簿 目录将位于驱动器D:\SALES\u RFQ数据库 工作簿名称为“M.O控制编号数据库” 条件: 代码必须检查工作簿是否存在,如果不存在,则必须在给定目录上创建工作簿 非常感谢您的帮助。 提前谢谢到目前为止你都试了些什么?你找到在线指南了吗?你研究了什么,如果有,你对代码的哪一部分感到困惑/你需要帮助吗?非常感谢@Error的帮助,效果很好。 Option Explicit Sub test() Dim Path As St

我想使用Active工作簿中的按钮在特定目录上创建新工作簿

目录将位于驱动器D:\SALES\u RFQ数据库

工作簿名称为“M.O控制编号数据库”

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

非常感谢您的帮助。
提前谢谢

到目前为止你都试了些什么?你找到在线指南了吗?你研究了什么,如果有,你对代码的哪一部分感到困惑/你需要帮助吗?非常感谢@Error的帮助,效果很好。
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