Question

VB6 实时错误 1004，对象‘cells’的方法‘_Global’失败

用VB6.0操作EXCEL处理数据，运行第一次没问题，运行第二次的时候就出现这个错误了，这个报错说的是什么意思？
您当初怎么解决的？
Dim Exapp As ObjectDim Exsheet As Object

Private Sub Command1_Click()
……
……
Set Exapp = CreateObject("excel.application")
Exapp.Visible = True

Set Exsheet = Exapp.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\EXCEL\1.00.01.xls")Exsheet.Activate
Range("C4:E4") = Text3.Text
ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\All Users\桌面\" & Text1.Text & "\" & Text1.Text & "-FC.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Exsheet.Close
Exapp.Workbooks.Close
Exapp.Quit
Set Exsheet = Nothing
Set Exapp = Nothing

Answer 1

关于“实时错误
1004，对象‘cells’的方法‘_Global’失败”，这句话只是说明在使用cells方法时出现了实时错误，造成cells方法失败。但是这句话不能作为判断失败
在哪里
的
依据
!
要想查找失败的原因，必须查看具体
代码
才能做进一步分析。。

Answer 2

呵呵，你处理完第一次的时候要用代码要完全退出excel,再操作第二次就不会出现这种错误啦！

追问

Range("C4:E4") = Text3.Text
实时错误 1004，对象‘Range’的方法‘_Global’失败
如何用代码完全退出excel？

追答

先定义:
dim Exapp As Excel.Application
excel 语句操作完后补上这一句:
Exapp.Quit
这样就完全退出excel的操作了

Answer 3

出错的时候指向哪行代码？把代码贴一下，还有声明EXCEL的代码一起贴一下

追问

Range("C4:E4") = Text3.Text

这句出错

追答

你的声明方法有问题
用dim xxx as new ...
声明。不要用 Set Exapp = CreateObject("excel.application")

追问

不行，还是一样，运行第一次没问题，运行第二次还是
Range("C4:E4") = Text3.Text
这句实时错误 1004，对象‘Range’的方法‘_Global’失败

追答

改为
Exsheet.Range("C4:E4") = Text3.Text
试试

另外，引用EXCEL
参考我这个声明
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set XLWorkBook = XlApp.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\EXCEL\1.00.01.xls")
Set XLWorkSheet = XLWorkBook.Worksheets(1)
XlApp.Visible = True

追问

Exsheet.Range("C4:E4") = Text3.Text

这样改，运行第一次就报错，实时错误438 对象不支持该属性或方法

追答

留个QQ我给你远程看看，不愿意留HI我

Answer 4

将出错的语句贴出来，大家看一看才知道怎么解决。

追问

Range("C4:E4") = Text3.Text

这句出错

追答

Exapp.ActiveSheet.Range("C4:E4")= Text3.Text