可轉換公司債 下載SO EASY PART1

以下單純教學分享，不作為投資理財依據，以及請善用網路資源，若有轉載請註明出處。

有大大留言問，問了一個問題。

簡單整理當分享，如下：

圖1.

小編發現有一個下載ㄝ，懶人的我實在不想一次少少的資料，最好是一次搞定。

所以決定用抓"下載"檔案方式作EASY DO EASY GO

Sub test()

'https://m.tdcc.com.tw/tcdata/sm/bimon92.txt

Set book1 = Sheets(1)

                

Set bookshow = book1.QueryTables.Add(Connection:="TEXT;https://m.tdcc.com.tw/tcdata/sm/bimon92.txt", Destination:=book1.Range("A1"))

    With bookshow

    

        .TextFileParseType = xlDelimited

        

        .TextFileCommaDelimiter = True

        

        .Refresh

    

    End With

End Sub

在EXCEL VBA編輯模式中，貼上以上程式碼，然後F5按下去.....GO

圖2.有亂碼 XD

有點美中不足....就亂碼以及版面有點亂

下一篇排版+亂碼待續