可以用vb直接创建excel文件吗？麻烦加一小段代码

Question

如题，想用vb制作数据报表，引出为excel对象，不知道可以在vb里直接创建excel文件吗？

Answer 1

(适用于vb6.0 excel2000)
首先导入microsoft excel 9.0 object libraryDim VBExcel As Object
Dim FileName As String
Set VBExcel = CreateObject("Excel.Application")
With VBExcel
        .Workbooks.Add
        ActiveWorkbook.SaveAs FileName
        .Workbooks.Close
        .Quit
        DoEvents
        Set VBExcel = Nothing
End With

Answer 2

Dim appExcel As New Excel.Application
    Dim sheet As Excel.Worksheet
    Dim fileName As String
    sheet = appExcel.Sheets(1)
    fileName = "c:\abc.xls"
    sheet.SaveAs fileName
    appExcel.Workbooks.Close
    Set appExcel = Nothing
这样就可产生一个空的 Excel 文件和你打开 excel 应用程序时一样.记得要关闭哦,
其实 appExcel 就是在后台打开了一个 excel 应用程序,你可以任务管理器中看到!

Answer 3

如果你的報表格式比較特殊,需要一個報表模板文件時,你也可以把做好的報表文件(Excel文件)添加到工和的資源文件中,就會和程序一起編譯,需要時再釋放出來就可以用了