Question

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

目录将为驱动器D：\ SALES_RFQ数据库

WorkBook名称为“ M.O控制号数据库”

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

任何帮助深表感谢。预先感谢

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

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

1 个答案: