我刚学VB，练习写了个小程序，运行到 iResponse = wsNewWorkbook.Saved出现424错误，提示要求对象，不知道如何调试，请高手帮帮忙。源程序是两个过程，如下：
Public Sub Hour9Lab()

Dim wsNewWorksheet As Worksheet

Dim wsNewWorkbook As Workbook
Set wsNewWorkbook = Workbooks.Add

Set wsNewWorksheet = wsNewWorkbook.Worksheets.Add

wsNewWorksheet.Name = “test"

wsNewWorkbook.SaveAs "Hour9Lab"

End Sub

Public Sub SaveHour9()

Dim iResponse As Boolean

Dim i As Integer

iResponse = wsNewWorkbook.Saved

If iResponse = True Then

MsgBox "工作簿已经保存"

Else

i = MsgBox("工作簿已修改，是否保存？", vbYesNo)

If i = vbYes Then

wsNewWorkbook.Save

MsgBox "工作簿已保存"

End If

End If

End Sub

[ 本帖最后由 daoyu 于 2010-4-20 13:29 编辑 ]