討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
Access如何匯出至Excel
更改我的閱讀文章字型大小
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/16 上午 09:36:29
我利用程式產生了一串sql,並在一個List裡做了Requery的動作,現在我想把這個list裡的資料用一個按鈕作出匯出的動作,請問我該怎麼做呢?謝謝~~
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人sampang註記此篇回應為很有道理 2005/3/16 下午 04:04:52
assume your list name is 再查,而年度是一個 combobox
keypress combobox 之後再 excel 內寫入 data
Private Sub 年度_AfterUpdate()
Dim st As Variant
Dim ps3 As Object
Dim x1app As Excel.Application
Set x1app = Nothing
Set x1app = CreateObject("Excel.Application")
Dim rs As Recordset
Me.再查.Requery
Set rs = Me.再查.Recordset

st = "d:\重要資料\" & "92data.xls"
x1app.Workbooks.Open st
x1app.Visible = True
Set ps3 = GetObject(, "Excel.Application")
Set ps3 = GetObject(st)
ps3.Application.Sheets("A").Select
j = 1
Do While rs.EOF <> True


ps3.Application.Sheets("A").Cells(j, 1) = rs![收文文號]
Debug.Print rs![收文文號]
j = j + 1
rs.MoveNext
Loop
rs.close
ps3.Application.Quit
Set ps3 = Nothing
Set x1app = Nothing
'Me.查詢後筆數.Caption = Me.再查.ListCount & "筆"
End Sub
記得要設定一些引用項目 GOOD LUCK
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 03:22:11
....恕刪
>ps3.Application.Sheets('A').Cells(j, 1) = rs![收文文號]
>Debug.Print rs![收文文號]

非常感謝您的回答~~
再請問一下,這個rs![收文文號]代表的是什麼意思啊~~
作者 : davidlai(David) 貼文超過200則
[ 貼文 284 | 人氣 78 | 評價 1680 | 評價/貼文 5.92 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人sampang註記此篇回應為很有道理 2005/3/18 下午 03:31:40
如果Rudy看到這篇文章請不要生氣, 假如寫錯的話也請不吝指正. 就個人看, Rudy所提的

rs

應該是Recordset, 而[收文文號]應該是資料欄位Field的名字
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 03:33:12
還有,您說的引用項目,指的是像java裡的import嗎?
我程式只會java,對vb是一竅不通,所以不知您所指的為何
我按您寫的程式,放入access裡,結果在
Dim x1app As Excel.Application
這行出現"使用者自訂型態尚未訂義"
我猜應該要做點什麼才對,但是我完全不知如何著手耶
請再指點,謝謝!
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 04:10:06
thanks David
rs 在
dim rs as recordset 中己說明這是 recordset 資料
至於 [收文文號]是 list中的其中一個 field
另請在 工具 -----巨集 ---------visual basic 編輯器中
進入 vbe 後再 工具-----設定引用項目
if you need code ,post your mail ,,,,GOOD LUCK
  
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 04:29:49
不得不說一句,您真是個大好人啊~~
我的mail是allen@mobilewiz.com.tw

我另一個問題是,在
 Set rs = Me.再查.Recordset
這裡出現了"型態不符合"的錯誤
我仔細看了一下,您之前是用combobox,而我所產生的是一個List
(我的再查是一個經過其它button所組成的sql而成的List)
會不會是這個原因??
感激啊!!!!

作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1455 | 人氣 1891 | 評價 8600 | 評價/貼文 5.91 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/18 下午 11:54:14
Set rs = Me.再查.RecordsetClone
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人sampang註記此篇回應為最佳解答 2005/3/21 上午 07:50:58

file already sent ,GOOD LUCK
對了請看mail 說明,若要打開 file VBA password is "CREEK"
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/21 下午 03:10:21
太感謝您了,經過反覆的研究,終於搞出來了.....真是感動的想哭啊~~~
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/21 下午 03:42:13
對了!我發現好像要匯出都要先有該檔才能匯
那如果我想要每次匯出的檔名是隨著時間改變的話
像是data_20050321.xls
這樣有辦法做到嗎?
不好意思,又要麻煩您
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/22 上午 09:00:55
首先回應 data無法 update 的回信,之前寫的很亂,內容有些變動最重要的是 rs.movefirst
Private Sub 年度_AfterUpdate()
Dim st As Variant
Dim myxl As Object
Dim ps3 As Object
Set ps3 = Nothing
Dim x1app As Excel.Application
Set x1app = Nothing
Set x1app = CreateObject("Excel.Application")


Dim rs As Recordset
Set rs = Nothing
Me.再查.Requery

Set rs = Me.再查.Recordset
rs.MoveFirst
Debug.Print rs.RecordCount
st = "d:\重要資料\" & "92data.xls"
Set ps3 = GetObject(st)
Debug.Print ps3.Name
ps3.Sheets("A").Select
j = 1
Do While rs.EOF <> True
ps3.Sheets("A").Cells(j, 1) = rs![收文文號]
Debug.Print rs![收文文號]
j = j + 1
rs.MoveNext
Loop
Set rs = Nothing
ps3.Close
Set ps3 = Nothing
x1app.Quit
Set x1app = Nothing
End Sub
但我不瞭解的是去開啟 excel file 必須在 windows中 取消 conceal window 不然看不到資料
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/22 上午 09:15:26
st = InputBox("Please enter your existing excel file folder and name with extension ..")
即可變動 excel file ----- GOOD LUCK allen
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人sampang註記此篇回應為最佳解答 2005/3/22 上午 09:52:47
sorry 有看沒看清楚,file name change by day,重要部份
x1app.workbooks.add 及 year(date),month(date),day(date)等

Private Sub 月份_AfterUpdate()
Dim st As Variant
Dim books As Excel.Workbook

Set books = Nothing
Dim x1app As Excel.Application
Set x1app = Nothing
Set x1app = CreateObject("Excel.Application")
Set books = x1app.Workbooks.Add

Dim rs As Recordset
Set rs = Nothing
Me.再查.Requery

Set rs = Me.再查.Recordset

Debug.Print rs.RecordCount
books.Sheets("sheet1").Select
j = 1
rs.MoveFirst
Do While rs.EOF <> True



books.Sheets("sheet1").Cells(j, 1) = rs![收文文號]
Debug.Print rs![收文文號]
j = j + 1
rs.MoveNext
Loop

books.SaveAs "c:\data" & year(Date) & Month(Date) & Day(Date)

Set rs = Nothing


Set books = Nothing
x1app.Quit
Set x1app = Nothing
End Sub
good LUCK allen
作者 : survey(rudy) Access卓越專家貼文超過200則
[ 貼文 201 | 人氣 297 | 評價 1740 | 評價/貼文 8.66 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/22 下午 02:17:25
有關上上文提到 excel 隱藏情形,請於上上文 loop 後加入
 Windows("92data").Visible = True
GOOD LUCK
作者 : sampang(allen)
[ 貼文 20 | 人氣 4572 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/3/22 下午 03:27:36
真的非常感謝~~
我的問題已經解決了
您真是熱心公益啊
感謝感謝再感謝!!
作者 : rocke123(rocke123)
[ 貼文 31 | 人氣 2568 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/13 下午 02:08:02
可給我一份您的樣本嗎?
我的mail:rroo.tw@yahoo.com.tw
謝謝
作者 : d120405541(Timothy)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/8/30 下午 05:04:42
可以麻煩您也給我一份樣本好嗎? Thanks a lot.
email: timothyai@giga.net.tw
作者 : skyei(Josh)
[ 貼文 38 | 人氣 6294 | 評價 0 | 評價/貼文 0 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/8/31 上午 08:37:17
可以也給我一份嗎??
謝謝~~~
skyei.huang@gmail.com
作者 : resamond(燕子) 人氣指數超過10000點
[ 貼文 33 | 人氣 12516 | 評價 0 | 評價/貼文 0 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/4 下午 08:14:01
嗚~~~我也想要一份code
最近為了設定將aceess裡的資料匯到excel的格式大傷腦筋呀
參考參考
我的mail:resamond@gmail.com
thx
作者 : 561126(louis)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/4 下午 08:14:26
是否也可提供此範例讓我參考,目前我想作到輸出資料成特定EXCEL套表.
supingwa@hotmail.com
謝謝!
作者 : 561126(louis)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/9/4 下午 08:14:41
是否也可提供此範例讓我參考,目前我想作到輸出資料成特定EXCEL套表.
supingwa@hotmail.com
謝謝!
作者 : ryanhwlee(Ryan)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/2 下午 04:35:30
不好意思,麻煩了!
找了好久才找到這篇好文章,
因為最近需要將Access所產生的list輸出成Excel file,
可否寄一份source code讓我參考一下...
感謝萬分!
作者 : ryanhwlee(Ryan)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/2 下午 04:36:08
不好意思,麻煩了!
找了好久才找到這篇好文章,
因為最近需要將Access所產生的list輸出成Excel file,
可否寄一份source code讓我參考一下...
感謝萬分!

不好意思,我的mail為 ryanhwlee@gmail.com
謝謝!
作者 : ryanhwlee(Ryan)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/2 下午 04:36:18
不好意思,麻煩了!
找了好久才找到這篇好文章,
因為最近需要將Access所產生的list輸出成Excel file,
可否寄一份source code讓我參考一下...
感謝萬分!

不好意思,我的mail為 ryanhwlee@gmail.com
謝謝!
作者 : heyyou2171(flower)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2014/8/22 下午 04:25:04
終於找到有幫助的文章了!!
可以麻煩版主能寄一份程式碼借我參考嗎??
heyyou2117@gmail.com
謝謝你><
 板主 : 徵求中
 > Access - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Access - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Access
1 史努比 4480 
2 坤哥 3600 
3 rudy 1700 
4 tiger 1300 
5 EC2002 910 
6 阿呆紅 730 
7 hwangtw 550 
8 jkych 530 
9 小老頭 190 
10 阿酷 180 
Access
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.15625