作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] access汇入excel（急用）！
时间Mon May 29 12:56:24 2006
※ 引述《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