怎么把数据库中的数据写到EXCEL中？

Question

请高手举个详细的例子。

Answer 1

'Access的例子Private Sub Command1_Click()
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\药品.mdb" & ";Persist Security Info=False"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("药品", , adCmdTable)   'Create a new workbook in Excel   Set myExcle = CreateObject("Excel.Application")
   Set myBook = myExcle.Workbooks.Add
   Set mySheet = myBook.Worksheets(1)
   
   'Transfer the data to Excel
   mySheet.Range("A1").CopyFromRecordset rs   mySheet.Columns(1).ColumnWidth = 15
   mySheet.Columns(2).ColumnWidth = 15
   mySheet.Columns(3).ColumnWidth = 15
   mySheet.Columns(4).ColumnWidth = 15
   
   '设置整列样式
   mySheet.Columns(1).NumberFormatLocal = "00"   '整数
   mySheet.Columns(2).NumberFormatLocal = "@"    '文本
   mySheet.Columns(1).NumberFormatLocal = "0.0"  '小数
   mySheet.Columns(4).NumberFormatLocal = "yyyy年mm月dd日"   '日期
   
   mySheet.Rows(1).Insert (1)
   mySheet.Cells.HorizontalAlignment = xlCenter
   mySheet.Cells.VerticalAlignment = xlCenter
   mySheet.Cells(1, 1) = "自动ID"
   mySheet.Cells(1, 2) = "名称"
   mySheet.Cells(1, 3) = "数量"
   mySheet.Cells(1, 4) = "日期"   'Save the Workbook and Quit Excel
   myBook.SaveAs App.Path & "\Book1.xls"
   myExcle.Quit   'Close the connection
   rs.Close
   conn.CloseEnd Sub