最着急的问题

Question

1.SaveAs
2.通过数据生成Excel

Answer 1

这是个例子Private Sub Form_Load()
Dim I, J As Long
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetSet 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.Openrst.CursorLocation = adUseClientrst.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
LoopMyBook.SaveAs "C:\11.xls"MyApp.QuitSet MyApp = Nothingrst.CloseSet rst = Nothing
Set conn = Nothing
End Sub

Answer 2

直接用文件……》导出……》选择excel格式即可