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这个问题,谢谢大家啦,帮帮我分析分析
...全文
236 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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