楼主:
b89207040 (黃å“ç››)
2016-12-25 16:38:48请问
为什么下载下来的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
作者: niklee29 (就是爱喝茶) 2016-12-28 16:15:00
你的 destination 指向到固定位置cell(2,2) ,请跑循环或变量累加来换列