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