[VBA ] 為什麼抓下來的CSV全都寫在同一欄?
請問
為什麼下載下來的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://www.ptt.cc/bbs/Visual_Basic/M.1482655131.A.3E1.html
→
12/28 16:15, , 1F
12/28 16:15, 1F
→
12/28 16:15, , 2F
12/28 16:15, 2F
推
12/31 07:16, , 3F
12/31 07:16, 3F
→
12/31 07:16, , 4F
12/31 07:16, 4F
推
01/24 15:51, , 5F
01/24 15:51, 5F
→
01/24 15:52, , 6F
01/24 15:52, 6F
→
12/27 05:23, , 7F
12/27 05:23, 7F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
