vb导出execl时出现自动化错误！请高手帮忙解决！谢谢！

Question

只有一台机器在运行导出excel表时出现这种错误，其他的运行非常正常。我试过把源程序放到那台机器上运行，发现在单元格写入数据时就出现这个错误，如果我不写入数据，直接只是打开，保存，就正常运行。我试过重装win98，office，vb都是不行，请高手指点。下面是我的源程序！Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.Workbooks.Open("d:\2.xls")
Set xlsheet = xlbook.Worksheets(1)xlsheet.Cells(2, 8).Value = "2005年4月26号" 
                 ~~~~~~~~~~~~~~~~~~~~~~~~注：如果我注释这一行，运行就正常！！xlapp.Visible = True
xlbook.Save
Set xlapp = Nothing

Answer 1

xlsheet.range("b8")="2004年4月26日"

Answer 2

以前用win98及excel97時有碰到這樣的問題
當時的解決辦法是替換excel.exe文件
現在升級為win2000與excelXP後不再出現類似的問題

Answer 3

to:drsniper([丰收景色]) ,方法不行，还是出现这个错误！to:DengXingJie(杰西) ,怎么替换excel.exe文件？谢谢帮忙！

Answer 4

我认为是EXCEL有问题因为同样的代码在别的电脑上是正常的.以前我也碰到过类似的问题.

Answer 5

可是，我都重装过office2000了哦！

Answer 6

在运行里输入dcomcnfg，在dcom中把excel文档所有的权限都加上还有检查是不是只读文档

Answer 7

我在Win2000及ExcelXP下測試你的代碼完全可行
xlsheet.Cells(2, 8).Value = "2005年4月26号" 也不用注釋
你搜索一下Excel.exe文件，看能否找到

Answer 8

to:liuxiaoyi666(兔子),你的dcomcnfg这个命令在win98的运行输入，提示没有找到文件。to:DengXingJie(杰西),excel.exe是找到的，这个程序在其他的win98主机都可以运行，只有一台win98机不行。请各位高手帮忙啊，谢谢！

Answer 9

很熟悉的代码。
不知以下是否能通过，由于本机无测试环境，不敢保证一定正确，请见谅！
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.Workbooks.Open("d:\2.xls")
Set xlsheet = xlbook.Worksheets(1)xlsheet.Cells(2, 8).Value = "2005年4月26号" 
                 
xlapp.Visible = True
xlbook.Save
xlbook.Close
Set xlbook = Nothing
xlapp.Quit
Set xlapp = Nothing

Answer 10

我也遇到过这种问题,而且是两次
两年前一次,最近一次.都是某一台机器,打开excel不报错,只有写入excel报错.
第一次,重装了office就解决了
第二次,重装office也没用.重装系统,装office,装vb,又写了一个专门测试的程序.才通过
两次都是win98
重装吧,可能和office有关系,换张盘,一定能解决!