作者b89207040 (黄卓盛)
看板Visual_Basic
标题[VBA ] 为什麽抓下来的CSV全都写在同一栏?
时间Sun Dec 25 16:38:48 2016
请问
为什麽下载下来的CSV贴在excel上会全部贴到同一栏?
没有依照逗号分隔换成其他栏位?
要如何修正才能每遇到一个逗号写在下一栏?
谢谢
Sub 查交易行情表()
Worksheets("工作表1").Cells.Clear
Application.ScreenUpdating = False
With Worksheets("工作表1")
With
.QueryTables.Add(Connection:="URL;
http://www.tpex.org.tw/web/bond/bonds_info/daily_trade/dl.php?f=CBBIGW_1051219.csv",
Destination:=Worksheets("工作表1").Cells(2, 2))
QueryTable_Name = .Name
.Refresh BackgroundQuery:=False
End With
.Names(QueryTable_Name).Delete
End With
Application.ScreenUpdating = True
Worksheets("工作表1").Select
End Sub
--
阴阳中道 教化以正
大地龙蛇 卓然兴盛
好人独占世间福 手执干戈如破竹
黄蓝黑白悉显明 东北西南谷全熟
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.171.156.122
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1482655131.A.3E1.html
1F：→ niklee29: 你的 destination 指向到固定位置cell(2,2) ，请跑回圈 12/28 16:15
2F：→ niklee29: 或变数累加来换列 12/28 16:15
3F：推 johnpage: 楼主可能想要问excel有无提供自动分割程式，而不是自己 12/31 07:16
4F：→ johnpage: 处理 12/31 07:16
5F：推 boyen3: 指定与来源相同大小的Cell贴上即可 01/24 15:51
6F：→ boyen3: 打错是Range才对 01/24 15:52
7F：→ vincent0926: 搜寻关键字：资料剖析 12/27 05:23