Re: [VBA ] access匯入excel（急用）！
※ 引述《lc324 (要有蟑螂般的毅力)》之銘言：
: 前陣子我好不容易將excel VBA摸索完畢，
: 可是沒有想到後來要跑的資料竟然是存在我超不熟悉的access中。
: 我嘗試了好久，
: 想要將access匯入excel中，
: 但是都因為資料量過大（10萬多筆），
: 所以都無功而返。
: 因為我僅需要access中一列的資料，
只要一列
: 不知道大家有沒有什麼好方法可以幫幫我....
: 我剛剛還一直在一段段的複製貼上，
怎麼又複製貼上一大堆@@
: 可是效率太慢了....而且很容易混亂。
: 拜託拜託！！！
Set cn = CreateObject("ADODB.Connection")
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
cnStr = cnStr & "Data Source=xxx.mdb"
cn.connectionString = cnStr
cn.Open
Set rs = cn.Execute("Select top 1 * From [table]") '只取出第一列資料
Set rs = cn.Execute("Select [column] From [table]") '只取出第一欄資料
如果資料量一定會超過 excel 的限制的話，只能告訴你，沒有可能匯入 excel
除非你拆成多個 excel 檔案...
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.248.175.60
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 4 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
