首页 > 解决方案 > 制作具有特定名称的新工作簿

问题描述

需要制作具有特定名称但出现错误的新工作簿

Option Explicit

Sub teststs()

    Dim Path As String, DocName As String

    Path = "OS (C:)\Program Files\CODE"
    DocName = "dong"

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

    End If


End Sub

错误的文件名或编号

标签: excelvba

解决方案


发表评论作为答案:

Path = "OS (C:)\Program Files\CODE" 

应该很可能是:

Path = "C:\Program Files\CODE"

您应该能够在 Windows 资源管理器中自行打开它;如果它不起作用,那么它是无效的。


推荐阅读