本人在xp下开发程序,测试通过,但是在安装时用户是98系统,出现如下错误,希望高手解答,分不够可以再送,我已经发了3个贴字了,有250分了,程序如下:
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks().Add
Set ExcelSheet = ExcelBook.Worksheets("sheet1")
ExcelApp.Visible = True
excelSheet.Cells(1, 1) = "11" //这句错了!!!
给excel网格赋值就出错,自动化错误。只是在win98操作系统出错,但是在2000下就没有错,调试通过,请问那位知道是什么原因吗??分不够可以在送!!
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks().Add
Set ExcelSheet = ExcelBook.Worksheets("sheet1")
ExcelApp.Visible = True
excelSheet.Cells(1, 1) = "11" //这句错了!!!
给excel网格赋值就出错,自动化错误。只是在win98操作系统出错,但是在2000下就没有错,调试通过,请问那位知道是什么原因吗??分不够可以在送!!
xlSheet.Range("A1").Value = adoPrimaryRS("name")
Dim ExcelApp As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object
Private Sub Command1_Click()
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks().Add
Set ExcelSheet = ExcelBook.Worksheets("sheet1")
ExcelApp.Visible = True
ExcelSheet.Cells(1, 1) = "11" '//这句错了!!!
End Sub
ExcelSheet.Cells(1, 1) = "11"
ExcelApp.Visible = True
既然引用了,为何还要用CreateObject,CreateObject比new 性能差多了,这叫扛着自行车走路。
Set ExcelApp = new Excel.Application
应该解决问题了