由網頁取得的資料，不知道要如何同步編碼成正確之中文碼回傳 - Excel程式區

[發問] 由網頁取得的資料，不知道要如何同步編碼成正確之中文碼回傳

　暱稱: joey0415

1^# 跳轉到 »

發表於 2016-6-16 08:59 | 顯示全部帖子

回復 5# c_c_lai

賴大試試，我只會拿以前的來改

Sub 證交所()
Dim strText As String
Dim i As Integer
Dim j As Integer
Dim nRow As Integer
Dim xRow As Integer
Dim nCol As Byte
Dim TR As Object
Dim TD As Object
Dim Arr()
Cells.Clear
With CreateObject("winhttp.winhttprequest.5.1")
.Open "POST", "http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php", False
.setrequestheader "Referer", "http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php"
.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
.Send "input_date=105%2F06%2F15&select2=21&login_btn=+%ACd%B8%DF+"
strText = BinToStr(.ResponseBody, "BIG5") '要注意網頁編碼
End With
With CreateObject("htmlfile")
.Write strText
Set hTable = .all.tags("table")(8)
tt = hTable.Rows.Length
With ActiveSheet
For i = 0 To hTable.Rows.Length - 1
For j = 0 To hTable.Rows(i).Cells.Length - 1
.Cells(i + 1, j + 1) = hTable.Rows(i).Cells(j).innertext
Next
Next
End With
End With
End Sub
Function BinToStr(arrBin, strChrs)
With CreateObject("ADODB.Stream")
.Type = 2
.Open
.Writetext arrBin
.Position = 0
.Charset = strChrs
.Position = 2
BinToStr = .ReadText
.Close
End With
End Function

複製代碼

　暱稱: joey0415

2^#

發表於 2016-6-16 12:20 | 顯示全部帖子

回復 7# c_c_lai

賴大以前幫助小弟很多，小弟只把以前抄的東西修改一下讓賴大試試

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。