[VBA ] 為什麼抓下來的CSV全都寫在同一欄?

[b89207040 (黃卓盛)]

請問
為什麼下載下來的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
→ niklee29: 你的 destination 指向到固定位置cell(2,2) ，請跑迴圈
→ niklee29: 或變數累加來換列
推 johnpage: 樓主可能想要問excel有無提供自動分割程式，而不是自己
→ johnpage: 處理
推 boyen3: 指定與來源相同大小的Cell貼上即可
→ boyen3: 打錯是Range才對
→ vincent0926: 搜尋關鍵字：資料剖析