如何让程序生成excel文件？

[leiyry18]

如题
谢谢

[liberte]

dim exapp as excel.application
set exapp = new excel.application
exapp.visible= true

[Cooly]

Private Sub Form_Load()
Dim I, J As Long
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.Open

rst.CursorLocation = adUseClient

rst.Open "select * from tableabc", conn, adOpenDynamic, adLockOptimistic


Dim MyApp As Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("Excel.Application")
MyApp.Visible = False
Set MyBook = MyApp.Workbooks.Add()
Set MySheet = MyBook.Worksheets(1)

J = 1
Do Until rst.EOF
For I = 1 To rst.Fields.Count
MySheet.Cells(J, I) = rst.Fields(I - 1)
Next
rst.MoveNext
J = J + 1
Loop

MyBook.SaveAs "C:\11.xls"

MyApp.Quit

Set MyApp = Nothing

rst.Close

Set rst = Nothing
Set conn = Nothing
End Sub

[vivific]

如果只是简单的生成EXCEL檔的话,就无须 Cooly(烦) 所写那么复杂啦.只要生成一宏,然后用Docmd.RunMacro(“宏”)就可以啦.