如何將表中的數據導出到電子表格中 ?
? ?
? ?
? ?
? ?
? 有很多方法都可將數據庫中某個表的數據導出到電子表格中，例如通過創建Access.Application，可以利用Access本身的導出功能實現將表中的數據導出到電子表格中。但是這種方法會占用較多的系統資源，并且缺乏通用性。如果一個數據庫沒有導出的功能怎么辦？下面的這段程序代碼利用記錄集實現導出的功能，這種做法的好處是顯而易見的：你可以控制要導出的數據，而不用將整個表的內容都導出到電子表格中。為簡單起見下面的程序代碼仍將整個表的數據導出到電子表格中。如果你有興趣的話，對下面的代碼稍加改動就可做成更為通用的一個類或是一個控件。 ? ?
? ?
? 首先在窗體上添加一個標簽控件和一個命令按鈕，然后在工程中添加對DAO引用。利用下面的程序代碼就可將表中的數據導出到電子表格中。 ?
? ?
? Option ? Explicit ?
? ?
? Private ? Sub ? Command1_Click() ?
? ? ? ? ? ? ? ? ? Dim ? tempDB ? As ? Database ?
? ? ? ? ? ? ? ? ? Dim ? i ? As ? Integer ? ? ? ? ? ? ? ? ? ? ? ' ? 循環計數器 ?
? ? ? ? ? ? ? ? ? Dim ? j ? As ? Integer ?
? ? ? ? ? ? ? ? ? Dim ? rCount ? As ? Long ? ? ? ? ? ? ? ? ? ' ? 記錄的個數 ?
? ? ? ? ? ? ? ? ? Dim ? xl ? As ? Object ? ? ? ? ? ? ? ? ? ? ? ' ? OLE自動化對象 ?
? ? ? ? ? ? ? ? ? Dim ? Sn ? As ? Recordset ?
? ? ? ? ? ? ? ? ? Screen.MousePointer ? = ? 11 ?
? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "打開數據庫..." ?
? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? Set ? tempDB ? = ? Workspaces(0).OpenDatabase("Nwind.mdb") ?
? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "創建Excel對象..." ?
? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? Set ? xl ? = ? CreateObject("Excel.Sheet.8") ?
? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "創建快照型記錄集..." ?
? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? Set ? Sn ? = ? tempDB.OpenRecordset("Customers", ? dbOpenSnapshot) ?
? ?
? ? ? ? ? ? ? ? ? ? If ? Sn.RecordCount ? > ? 0 ? Then ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "將字段名添加到電子表格中" ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? ? ? ? ? For ? i ? = ? 0 ? To ? Sn.Fields.Count ? - ? 1 ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? xl.Worksheets(1).cells(1, ? i ? + ? 1).Value ? = ? Sn(i).Name ?
? ? ? ? ? ? ? ? ? ? ? ? ? Next ?
? ? ? ? ? ? ? ? ? ? ? ? ? Sn.MoveLast ?
? ? ? ? ? ? ? ? ? ? ? ? ? Sn.MoveFirst ?
? ? ? ? ? ? ? ? ? ? ? ? ? rCount ? = ? Sn.RecordCount ?
? ? ? ? ? ? ? ? ? ? ? ? ? ' ? 在記錄中循環 ?
? ? ? ? ? ? ? ? ? ? ? ? ? i ? = ? 0 ?
? ? ? ? ? ? ? ? ? ? ? ? ? Do ? While ? Not ? Sn.EOF ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "Record:" ? & ? Str(i ? + ? 1) ? & ? " ? of" ? & ? _ ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Str(rCount) ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? For ? j ? = ? 0 ? To ? Sn.Fields.Count ? - ? 1 ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ' ? 加每個字段的值加到工作表中 ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? If ? Sn(j).Type ? < ? 11 ? Then ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? xl.Worksheets(1).cells(i ? + ? 2, ? j ? + ? 1).Value ? = ? Sn(j) ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Else ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ' ? 處理Memo和LongBinary ? 類型的字段 ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? xl.Worksheets(1).cells(i ? + ? 2, ? j ? + ? 1).Value ? = ? "Memo ? or ? Binary ? Data" ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? End ? If ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Next ? j ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Sn.MoveNext ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? i ? = ? i ? + ? 1 ?
? ? ? ? ? ? ? ? ? ? ? ? ? Loop ?
? ? ? ? ? ? ? ? ? ? ? ? ? ' ? 保存工作表 ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "保存文件..." ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? ? ? ? ? xl.SaveAs ? "c:/Customers.XLS" ?
? ? ? ? ? ? ? ? ? ? ? ? ? '從內存中刪除Excel對象 ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "退出Excel" ?
? ? ? ? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? ? ? ? ? xl.Application.Quit ?
? ? ? ? ? ? ? ? ? ? Else ?
? ? ? ? ? ? ? ? ? ? ? ? ? ' ? 沒有記錄 ?
? ? ? ? ? ? ? ? ? ? End ? If ?
? ? ? ? ? ? ? ? ? ? ' ? 清除 ?
? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "清除對象" ?
? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ? ? ? Set ? xl ? = ? Nothing ?
? ? ? ? ? ? ? ? ? ? Set ? Sn ? = ? Nothing ?
? ? ? ? ? ? ? ? ? ? Set ? tempDB ? = ? Nothing ?
? ? ? ? ? ? ? ? ? ? Screen.MousePointer ? = ? 0 ? ? ' ? 恢復鼠標指針 ?
? ? ? ? ? ? ? ? ? ? Label1.Caption ? = ? "Ready" ?
? ? ? ? ? ? ? ? ? ? Label1.Refresh ?
? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ?
? End ? Sub ?
? ?
? Private ? Sub ? Form_Load() ?
? ? ? ? ? Label1.AutoSize ? = ? True ?
? ? ? ? ? Label1.Caption ? = ? "Ready" ?
? ? ? ? ? Label1.Refresh ?
? End ? Sub ?
? 用DAO打開Excel文件 ?
? ?
? _作者:th4005@mail.intonet.net.tw ?
? ?
? ?
? >請問不用DATA元件,如何OPEN一個XLS檔? ?
? >set ? db=OpenDatabase("資料庫")只能開mdb,*.xls檔要如何開啟呢? ?
? >請教高手! ?
? ?
? Option ? Explicit ?
? Dim ? Db ? As ? Database ?
? Dim ? Rs ? As ? Recordset ?
? ?
? Private ? Sub ? Form_Load() ?
? Set ? Db ? = ? OpenDatabase("c:/temp/book1.xls", ? False, ? False, ? "Excel ? 8.0;") ?
? Set ? Rs ? = ? Db.OpenRecordset("sheet1$") ?
? End ? Sub ?
? ?
? Private ? Sub ? Form_Unload(Cancel ? As ? Integer) ?
? Rs.Close ?
? Db.Close ?
? End ? Sub ?
? ?
? 這是最簡單的辦法，詳細的使用方法及限制請參看 ? VB ? OnLineHelp ? ，資料存取物件手冊、取得外部資料、使用試算表一章。??

總結

以上是生活随笔為你收集整理的如何将表中的数据导出到电子表格中的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。