在线等！！vb操作excel再98和xp下的兼容问题，分不够可以再送！！！！！

Question

本人在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下就没有错，调试通过，请问那位知道是什么原因吗??分不够可以在送！！

Answer 1

你的98里和2000里的excel版本相同吗?

Answer 2

Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Range("A1").Value = adoPrimaryRS("name")

Answer 3

Option Explicit
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

Answer 4

这样试试
ExcelSheet.Cells(1, 1) = "11" 
ExcelApp.Visible = True

Answer 5

呵。还有
既然引用了，为何还要用CreateObject，CreateObject比new 性能差多了，这叫扛着自行车走路。
Set ExcelApp = new Excel.Application
应该解决问题了

Answer 6

简单的办法就是用98（或者95）和office2000的环境编译，这样就可以在2000和xp的环境中用了，因为是向下兼容的，而且可以用打包软件控制一下！

Answer 7

ExcelSheet.Cells(1, 1) = "11" '//这句错了！！！

Answer 8

把ExcelSheet.Cells(1, 1) = "11"改成ExcelSheet.Range(1, 1).Text = "11"就可以了。现在我在编这样的软件。用这个可以的。