学习新建工作簿遇到的问题。模仿书上写的代码，但总是提示有错误

iaskmore

1. Sub wbadd()
   
2. Dim wb As Workbook, sht As Worksheet
   
3. Set wb = Workbooks.Add
   
4. Set sht = Worksheets(1)
   
5. With sht
   
6. .Name = "sample"
   
7. .Range("A1:F1") = Array("NO", "NAME", "SEX", "YOB", "WORKING TIME", "REMARK")
   
8. End With
   
9. wb.SaveAs ThisWorkbook.Path & "\vba-test-file.xlsm"
   
10. ActiveWorkbook.Close
    
11. End Sub

复制代码

哪位老师给看看，
按照书上代码模仿写的，但总提示运行错误。
我查了一下，与书上没有问题啊？

lu_zhao_long

请问楼主，当错误发生的时候，你点击错误提示框中的 “调试（D）”按钮，高亮显示的代码是哪一句呢？

另外，还要问一下楼主，这个 wbadd() 程序所在的工作簿在运行代码之前有没有保存过呢？

李甲

猜测是尚未保存过的新文件……

iaskmore

wb.SaveAs ThisWorkbook.Path & "\vba-test-file.xlsm"
这句是高亮的

chenzyyysl

Set sht = wb.Worksheets(1)

iaskmore

chenzyyysl 发表于 2013-2-19 13:55
Set sht = wb.Worksheets(1)

还是不行。

chenzyyysl

Sub WbAdd()
    MsgBox "程序创建“员工花名册”工作薄，保存到当前文件夹下。"
    Dim Wb As Workbook, sht As Worksheet                     '定义一个Workbook对象
    Set Wb = Workbooks.Add                                   '新建一个工作薄
    Set sht = Wb.Worksheets(1)
    With sht
        .Name = "花名册"                                     '修改第一张工作表的标签名称
        '设置表头
        .Range("A1:F1") = Array("序号", "姓名", "性别", "出生年月", "参加工作时间", "备注")
    End With
    Wb.SaveAs ThisWorkbook.Path & "\员工花名册.xls"           '保存新建的工作表到当前文件夹下
    ActiveWorkbook.Close                                      '关闭新建的工作薄
End Sub

这个是示例文件中的，我运行没问题。

chenzyyysl

wb.SaveAs ThisWorkbook.Path & "\vba-test-file.xlsm"
你的代码，除了前面的笔误外，这个地方不要m,我这里运行就可以了

iaskmore

找到问题所在了。
不能直接保存为xlsm带宏代码的excel文件。
只能保存为xls或xlsx的文件。
多谢大家了