vb6于excel2003的问题

wtdice 2006-04-17 03:59:29
我在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这个问题,谢谢大家啦,帮帮我分析分析
...全文
199 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wtdice 2006-04-18
大家多没人知道的吗?等了一晚上了
  • 打赏
  • 举报
回复
Arqui 2006-04-18
~~当我用的是excel2000时,没有问题,
楼主再试试excel 2000 看看是否是看错了
  • 打赏
  • 举报
回复
Arqui 2006-04-18
我认为你的问题是因为excel文件操作的原因,一个excel文件一个时间只能有一个人操作,不可能即可以被VB玩,又能被你玩!它会精疲力竭的.设成共享试试!!
  • 打赏
  • 举报
回复
Arqui 2006-04-18
是有这样的问题.但不知道是因为什么,我想要解决的话就是眼不见心不烦了
pApp.Visible = Flase
  • 打赏
  • 举报
回复
相关推荐
发帖
Office开发/ VBA
加入

5030

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2006-04-17 03:59
社区公告
暂无公告