vb写excel报错,帮帮我
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
' On Error Resume Next
Set ex = CreateObject("Excel.Application")
ex.Visible = False
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks.Open(App.Path & "\kujiaku.xls")
Set exsheet = exwbook.Worksheets("sheet1")
ex.Range("B10") = "asdf" & vbCrLf
ex.Range("B10") = Left(ex.Range("B10"), Len(ex.Range("B10")) - 2)
exwbook.Save.Saved = True
ex.DisplayAlerts = False
Set exsheet = Nothing
Set exwbook = Nothing
ex.Quit
Set ex = Nothing
MsgBox "成功"
以上代码执行到exwbook.Save.Saved = True这句话时候会报告需要对象这样的错,不知道为何哦,谁帮帮我?