vb6于excel2003的问题

[wtdice]

我在VB6中有一段要操作excel的代码，我单击excel上的一个cell时，就有个error了，提示信息是
50290 - Application-defined or object-defined error
当我用的是excel2000时，没有问题，但是当是excel2003时运行的时候就有这个问题了。
我的VB6打了SP6补丁。

原代码如下：欢迎大家用VB6和EXCEL2003测试

Private Sub Excel_Tool()
Dim pApp As Excel.Application
Dim pBook As Excel.Workbook
Dim pSheet As Excel.Worksheet
Dim lngIIndex As Long
Dim strXlsPosition As String

' On Error GoTo errlabel

Set pApp = New Excel.Application
Set pBook = pApp.Workbooks.Add
Set pSheet = pBook.Sheets.Add

pApp.Visible = True
pSheet.Name = "test"


With pSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
End With

'內文
For lngIIndex = 1 To 1000

strXlsPosition = "A" & Trim(Str(lngIIndex)) & ":" & "A" & Trim(Str(lngIIndex))

'
' 以下這行會發生 runtime error
'
pSheet.Range(strXlsPosition).Formula = Str(lngIIndex)

Next
'
' pApp.Visible = True

Exit Sub

errlabel:

MsgBox Err.Description, vbExclamation

Set pSheet = Nothing
Set pBook = Nothing
Set pApp = Nothing

End Sub


Private Sub Command1_Click()

Call Excel_Tool

End Sub



代码写的好怀大家别太介意啊，关键是测试EXCEL2003这个问题，谢谢大家啦，帮帮我分析分析

[Arqui]

是有这样的问题.但不知道是因为什么,我想要解决的话就是眼不见心不烦了
pApp.Visible = Flase

• 打赏
• 举报

回复 赞

[Arqui]

我认为你的问题是因为excel文件操作的原因,一个excel文件一个时间只能有一个人操作,不可能即可以被VB玩,又能被你玩!它会精疲力竭的.设成共享试试!!

• 打赏
• 举报

回复 赞

[Arqui]

~~当我用的是excel2000时，没有问题，
楼主再试试excel 2000 看看是否是看错了

• 打赏
• 举报

回复 赞

[wtdice]

大家多没人知道的吗？等了一晚上了

• 打赏
• 举报

回复 赞