vb6于excel2003的问题
我在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这个问题,谢谢大家啦,帮帮我分析分析