設為首頁收藏本站Access中國
Office中國(www.cefren.live),專業Office論壇

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

掃一掃,訪問微社區

返回列表 發新帖
查看: 230|回復: 2
打印 上一主題 下一主題

[窗體] 如何導出列表框里面的值到excel

[復制鏈接]
跳轉到指定樓層
1#
發表于 2019-10-8 14:58:22 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
請問各位老師如果在窗體中導出列表框里面的值到excel
附件中的例子,如何導出窗體中的list(列表框),謝謝

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友 微信微信
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
發表于 2019-10-9 14:29:26 | 只看該作者
一般來說,如果綁定了數據源,直接將數據源轉換為一個查詢,再導出就好了。
  1. Private Sub Command4_Click()
  2.     Dim qry As DAO.QueryDef
  3.     Dim strSQL As String
  4.     strSQL = Me.List0.RowSource
  5.     '創建一個查詢
  6.     Set qry = CurrentDb.CreateQueryDef("qry1", strSQL)
  7.     DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry1", CurrentProject.Path & "\list0.xlsx", True
  8.     '導出后再刪除這個查詢
  9.     CurrentDb.QueryDefs.Delete "qry1"
  10. End Sub
復制代碼
如果沒綁定數據源,則麻煩一些,需要創建Excel文件再寫入:
  1. Private Sub Command5_Click()
  2.     Dim exl As New Excel.Application
  3.     Dim wk As Workbook
  4.     Dim ws As Worksheet
  5.     Dim strSource As String
  6.     Dim i As Long
  7.     Dim strData() As String
  8.     Set wk = exl.Workbooks.Add
  9.     Set ws = wk.ActiveSheet
  10.     strSource = Me.List2.RowSource
  11.     strData = Split(strSource, ";")
  12.     For i = 0 To UBound(strData)
  13.         ws.Cells(i + 1, 1) = strData(i)
  14.     Next
  15.     wk.SaveAs CurrentProject.Path & "\list1.xlsx"
  16.     wk.Close
  17.     exl.Quit
  18. End Sub
復制代碼
本來打算在你的例子上做的,結果似乎引用了別的外部數據,所以重新寫了一個例子,供參考(2007-2016版本)。如果沒有對應的版本,請自行參考上面的代碼。

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
3#
 樓主| 發表于 2019-10-10 07:26:02 | 只看該作者
roych 發表于 2019-10-9 14:29
一般來說,如果綁定了數據源,直接將數據源轉換為一個查詢,再導出就好了。
如果沒綁定數據源,則麻煩一些 ...

感謝老師的幫助1!
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規則

關閉

站長推薦上一條 /5 下一條

QQ|站長郵箱|小黑屋|手機版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2020-7-12 13:14 , Processed in 0.104628 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表
黑龙江p62开奖公告l