跪求在VB6.0里保存EXCEL的方法

Question

怎么能在VB程序里创建一个新的EXCEL工作簿，写入一些数据，然后自动以某个文件名保存到某个文件夹里啊？整个过程后台运行，不显示。
研究了一上午加半下午也没实现，总是弹出EXCEL的另存为对话框。
我的操作系统是WIN7,office2003,VB6.0
请大神大虾们指点一下啊。

Answer 1

http://download.csdn.net/detail/veron_04/1627080

Answer 2

我已经找到问题所在了。
网上的教程似乎有点儿问题，如下
Dim excelcj As Excel.Application
Dim exbook1 As Excel.Workbook
Dim exsheet1 As Excel.Sheets
filename = "g:\vb\cj2.xls"
On Error Resume Next（这一句我不明白啊。）
Set excelcj = GetObject(, Excel.Application)
If Err.Number <> 0 Then （这个IF我也不懂）
Set excelcj = CreateObject("excel.application")
End If
Err.Clear（这一句也不明白）If Dir(filename) = "" Then '看文件是否存在，有则打开，没有则建一个
Set excelcj = CreateObject("excel.applicalion")
excelcj.SheetsInNewWorkbook = 1
'excelcj.Workbooks.Add
Set exbook1 = excelcj.Workbooks().Addexcelcj.Sheets(excelcj.Sheets.Count).Name = "cj"
excelcj.Sheets.Add , excelcj.Sheets("cj")
excelcj.Sheets(excelcj.Sheets.Count).Name = "cj2"
excelcj.DisplayAlerts = Falseexbook1.SaveAs (App.Path & "\cj2.xls")‘问题就出在这一句上，网上很多教程都写excelcj.saveas，所以总是出错。
exbook1.CloseEnd If