请教一个导出数据到excel的问题

Question

用VB做了一个计算的软件，我想把计算的结果比如A，B，C，D，E五个数据导出到excel，共五列，还有以前使用list控件输出数据，现在想改为导出到excel，请教如何实现

Answer 1

http://zhidao.baidu.com/question/8995087.html

Answer 2

http://dev.csdn.net/article/69/69681.shtm

Answer 3

首先要在工程中引用EXCEL对象.
引用好之后,定义对象:
Dim XApp As New Excel.Application '就是EXCEL程序
Dim XBook As New Excel.Workbook '就是EXCEL中打开的一个工作薄
Dim XSheet As New Excel.Worksheet '工作薄中的一页
Dim XFileName As String 'EXCEL文件名,如果要保存的话
Set XApp = New Excel.Application '打开EXCEL程序
Set XBook = XApp.Workbooks.Add '添加工作薄
Set XSheet = XBook.Worksheets(1) '选择工作薄的第一页到现在为止,我们已经打开EXCEL并且选中了SHEET页,下面开始写数据:XSheet.Cells(X,Y)= "ABC" 'x,y是坐标,就是在X列Y行处写入字符串"ABC"
简单吧,你就可以用程序控制EXCEL在不同的地方写你的数据了.如果要保存EXCEL文件的话:
commondialog1.showsave '打开保存对话框
XFileName=commondialog1.filename '选择保存路径的文件名
if trim(XFileName)<>"" then XBook.SaveAs XFileName  '如果不是空就保存最后,关闭EXCEL:
XBook.Close
Set XSheet = Nothing
Set XBook = Nothing
Set XApp = Nothing
用完就关闭对象,这是个好习惯,否则的话,随着你程序的不断进行,你可以在任务管理器的进程栏里看到越来越多的EXCEL在后台运行.EXCEL最最最基本的操作就是这些了,套路而已,用熟了就习惯了

Answer 4

请问ABC可以用变量名代替吗？比如XSheet.Cells(X,Y)= str
因为计算的结果在变化，还有怎么给分，我刚来，不知道怎么给