如何用VB代码动态创建想要的EXCEL文件???(在线等待,非常急)

Question

现有一程序使用MSSQL数据库和VB6.0编写,所有数据都存放在数据库中,现在需要将表中的数据经过处理后导出为EXCEL文件,要求用户可以自己选择XLS文件的存放目录和文件名,然后由程序将内容导入创建好的XLS文件的一个工作表中,应该怎么实现上面的整个过程阿?请高手不吝赐教,谢谢!!!!##希望能给出主要部分的源代码##我会在线等待...

Answer 1

Dim fso
 Set fso = server.createobject("scripting.filesystemobject")
 Dim objFile
 Set objFile = fso.createtextfile("c:\\test.xsl", True, True)
 
 1﹑Excel文件的標題
 objFile.WriteLine "column1" & chr(9) & "column2"&chr(9)
 ' 2﹑Excel文件（的主體內容
objFile.WriteLine "test"&chr(9) & "test1"&chr(9)用数据库循环处理写入数据就可以了
      
 

Answer 2

这两篇文章是将SQL SERVER数据导出到EXCELhttp://www.csdn.net/develop/read_article.asp?id=14952
http://www.csdn.net/develop/read_article.asp?id=18623

Answer 3

junguo(junguo)谢谢你的解答,在使用fso时是否要引用什么东西啊!
运行后显示实时错误"424"
要求对象

Answer 4

单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。

Answer 5

lihonggen0(李洪根,用.NET，标准答案来了) 
我已经引用了,带还是出现同样的错误
并且错误停留在 
Set fso = server.CreateObject("scripting.filesystemobject")
这句上

Answer 6

Dim fsoTest As New FileSystemObject, fil1 As File
Set fil1 = fsoTest.CreateTextFile("c:\testfile.xls", True)

Answer 7

我建议你用以下方式导出到EXCELhttp://www.csdn.net/develop/read_article.asp?id=14952
http://www.csdn.net/develop/read_article.asp?id=18623

Answer 8

是，建议直接调用 Excel 对象