vb写excel报错,帮帮我

kujiaku 2003-10-09 09:25:22
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这句话时候会报告需要对象这样的错,不知道为何哦,谁帮帮我?
...全文
38 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kujiaku 2003-11-05
  • 打赏
  • 举报
回复
晚上结贴,进来发言的都有分
kimurakenshin 2003-11-05
  • 打赏
  • 举报
回复
up
kujiaku 2003-10-28
  • 打赏
  • 举报
回复
问题没人回答,我就揭帖了

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧