從Access中匯出Excel檔案的巨集

最近需要從access中抽出一些資料，手工操作太麻煩，所以寫了巨集來幫忙。

作用：將制定table中的資料，作為檢索條件，分別抽出資料並匯出到excel檔案中。

option compare database

private sub export()
on error goto error_handler
dim daodb as database
dim strac as string
dim varxls as variant
dim rserrset as recordset
dim strkey as string
'　準備環境
set daodb = dbengine.workspaces(0).databases(0)
'　取得需要處理的資料
set rserrset = daodb.openrecordset("errlog", dbopenforwardonly, dbreadonly)
do until rserrset.eof
debug.print rserrset!errcode & " " & rserrset!key
' 生成匯出excel的sheet名
strac = rserrset!id & "資料"
if rserrset!key <> "" then
' 特殊文字替換
strkey = replace(rserrset!key, "[", "*")
strkey = replace(strkey, "]", "")
' 做成檢索
daodb.createquerydef strac, _
"select [list].* from list where [list].errcode like '*" & right(rserrset!errcode, 8) & _
"' and [list].msg like '*" & strkey & "*';"
else
'クエリーの新規作成
daodb.createquerydef strac, _
"select [list].* from list where [list].errcode like '*" & right(rserrset!errcode, 8) & "';"
end if
' 設定匯出檔名
varxls = currentproject.path & "\data.xls"
' 匯出
docmd.transferspreadsheet acexport, acspreadsheettypeexcel9, strac, varxls, true
' 刪除檢索
daodb.querydefs.delete strac
rserrset.movenext
loop
' 關閉
daodb.close
msgbox "成功！"
exit sub
error_handler:
debug.print err.description
msgbox vbcrlf & err.description, vbcritical
end sub

Silverlight中匯出Excel檔案

可匯出csv格式檔案，用excel開啟 csv格式化 資料 格式化資料 private static string formatcsvfield string data data.replace replace n replace r 獲取datagrid資料，返回stringbuilder型別資料...

C 中匯出Excel總結

方法一 將頁面中的所有元素都匯出到excel中 response.clear response.buffer true content disposition attachment filename datetime.now.tostring yyyymmddhhmmss server.urlenc...

NPOI從資料庫中匯出到Excel

一，如何把資料庫的資料匯入到excel？1 可以使用多種方式，但是較好的一種是使用npoi。2 npoi的缺陷 只能在office2003中使用，office2007無法使用npoi，同時對於wps也不能使用。3 使用是要引入npoi的dll外部檔案，下面的 使用了簡單三層的思想。二，把資料庫中的資...