Question

用VB6.0可以读写Excel 2010吗？

如题，用VB6.0 读写Execl 2003程序运行是没有问题的，但Excel升级到2010后就运行出错。哪位高手能告知用VB6.0怎么新建Excel 2010工作薄和怎么读写单元格的内容。注意哦是Excel 2010
如能回答满意，再追加50分
一定要用VB6.0的

Answer 1

　　你可以补充描述下运行时怎么个错误法，其实语法上应该是通用的，只是程序需要引用Microsoft Excel Object library，Excel更新后，VB引用的这个核心部件版本也会变动，可能引起运行错误。
　　“Excel 2010 提供了供人们在工作簿上协同工作的简便方法，提高了人们的工作质量。首先，早期版本 Excel 中的那些方法仍可实现无缝兼容。 ”

　　'重新引用后，再试试如下代码
　　Dim xlApp As Excel.Application
　　Dim xlBook As Excel.Workbook
　　Dim xlSheet As Excel.Worksheet
　　'写文件
　　Private Sub Command1_Click()
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
　　Set xlSheet = xlBook.Worksheets(1)
　　For i = 1 To 10 '读取10行
　　For j = 1 To 10 '读取10列
　　xlSheet.Cells(i, j) = i * j
　　Next j
　　Next i
　　xlSheet.SaveAs "d:\test.xls" '按指定文件名存盘
　　xlApp.Quit '结束EXCEL对象
　　Set xlApp = Nothing '释放xlApp对象
　　End Sub
　　'读文件
　　Private Sub Command2_Click()
　　Set xlApp = CreateObject("Excel.Application")
　　Set xlBook = xlApp.Application.Workbooks.Open("d:\test.xls")
　　Set xlSheet = xlBook.Worksheets(1)
　　For i = 1 To 10 '读取10行
　　For j = 1 To 10 '读取10列
　　Text1 = Text1 & xlSheet.Cells(i, j) & Space(5)
　　Next j
　　Text1 = Text1 & vbNewLine '另起一行
　　Next i
　　xlApp.Quit '结束EXCEL对象
　　Set xlApp = Nothing '释放xlApp对象
　　End Sub

Answer 2

没式过2010，不过2007是可以的。不知出错现象是什么，是一调用就出错还是具体读写时会出错？
如果是调用不了，你以前用的是2003，很可能是excel升级了但代码中引用的库版本没有更新，只要检查下工程中引用的excel对象库版本，看是不是对应2010的，如不是要重新引用就可以了。还不行，要看具体问题了。

Answer 3

一定要用VB吗?我会用JAVA编的,你要不? excel不是有排序么 点一下就是。。。