创建新的Excel文件时，如何解决代码生成错误9时的错误

Question

我试图创建一个新文件并保存新文件，但是当我运行代码时，错误9弹出。

Sub openwba()

Dim wb As Workbook
Dim NewWB As String
NewWB = "C:\Users\Chengwu\Desktop\Train10_June01.xlsx"

Set wb = Workbooks.Add
wb.SaveAs Workbooks(NewWB)

End Sub

Answer 1

您可以尝试：

Option Explicit

Sub Macro1()

    Dim wk As Workbook
    Dim NewWB As String

    If Dir("C:\Users\Chengwu\Desktop\Train10_June01.xlsx") = "" Then

        NewWB = "C:\Users\Chengwu\Desktop\Train10_June01.xlsx"
        Set wk = Workbooks.Add
        wk.SaveAs Filename:=NewWB

    End If

End Sub

注意：

• 采取必要的防护措施，以避免在文件已存在的情况下出错。