VB如何导出 EXCEL

我想弄个EXCEL形式的库存汇总表，我现在分别有个入库和出库信息表，如何实现，刚学VB，所以最好有代码示例。 --------------------编程问答-------------------- --------------------编程问答-------------------- 2楼，我可能表述的不清楚，我在ACCESS里面有2张表，分别保存着入库和出库的信息，我现在想从这两张表里面提取部分我需要的信息导出EXCEL里 --------------------编程问答-------------------- 可以呀，你把入库出库信息查出来，按商品名排一下，再统计一下然后导出到EXCEL文件中就是 --------------------编程问答-------------------- Dim AccAPP As New Access.Application
AccAPP.DoCmd.OutputTo acOutputTable, "Tab2", acSpreadsheetTypeExcel9, PathStr & "2003.xls"

ACCESS导出到EXCEL, 只要这么两句, PathStr为包含路径的excel文件名, tab2为要导出的表名. --------------------编程问答-------------------- 思路：把数据库里的表读出msflexGrid，之后把msflexGrid的内容导出到EXCEL，我现在正在写一个进销存软件，正用到此功能。 --------------------编程问答-------------------- Jet Engine 将把 Excel 当作外部数据库的。因此，只需 SQL 语句即可实现：

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\你的Excel文件名.xls; Extended Properties=""Excel 8.0;"""
cn.Execute "INSERT INTO [Sheet1$] SELECT * FROM 你的表名 IN ""你的Access文件名.mdb"" WHERE 你的条件 ORDER BY 你的排序字段" --------------------编程问答--------------------



Dim cn As New ADODB.Connection

Dim rs1 As New ADODB.Recordset

Dim sq1 As String



Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet



Sub 输出打印Listview()

    cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb"

    sq1 = "select * form 表"

    rs1.Open sq1, cn, adOpenKeyset, adLockOptimistic

    

    GetFileName = App.Path & "/模板/" & "打印模板.xls"   '要导出Excel文件的路径

    

    Set xlApp = CreateObject("Excel.Application")   '创建Excel文件

    Set xlApp = New Excel.Application

    xlApp.SheetsInNewWorkbook = 1                   '将新建的工作薄数量设为1

    Set xlBook = xlApp.Workbooks.Add

    Set xlSheet = xlBook.Worksheets(1)              '第1张工作表



            

    xlSheet.Cells(1, 1) = "用户名"  '向Excel里输入数据

    xlSheet.Cells(1, 2) = "密  码"

    

    xlSheet.Cells(2, 1).CopyFromRecordset cn.Execute(sq1)       '粘贴数据

    

    xlApp.ActiveWorkbook.SaveAs GetFileName         '保存Excel文件

    

    xlSheet.PrintOut  '执行打印

    

'    xlApp.ActiveWorkbook.Close True     '关闭工作簿并保存

    

    xlApp.Quit

    Set xlSheet = Nothing

    Set xlBook = Nothing

    Set xlApp = Nothing

    

    rs1.Close

    cn.Close

    Set rs1 = Nothing

    Set cn = Nothing



'    Kill GetFileName

    

    MsgBox "导出完成"

End Sub

补充：VB ,  数据库(包含打印，安装，报表)