vba:应用程序错误或对象定义错误 1004

Question

各位大侠，我在学习VBA，写了如下代码，但是运行的时候总提示错误，试了n多遍也没有找出，求指点，感激不尽！

Sub 创建工作簿()

Dim wb As Workbook, wh As Worksheet
    Set wb = Workbooks.Add
    Set wh = wb.Worksheets(1)
    With wh
        .Name = "员工花名册"
        .Range("a1:d1") = Array("姓名", "性别", "年龄", "职业")
    End With
wb.SaveAs ThisWorkbook.Path & "\花名册 .XLSM"
ActiveWorkbook.Close

End Sub

Answer 1

我这里运行没有1004的错误，但保存XLSM有点小错误，建议保存成XLSX。

你可以按以下方法尝试一下看还有没有1004的错误：
单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。

当然1004的错误不只这一个原因。

Answer 2

wb.SaveAs ThisWorkbook.Path & "花名册 .XLSM"
这一句需要改为
wb.SaveAs ThisWorkbook.Path & "花名册 .XLSX"