1 Message

Digest #3548

Re: Simplified Chinese Character by wongkayau

Message

1a

Re: Simplified Chinese Character

Fri Oct 30, 2015 5:41 am (PDT) . Posted by:

wongkayau

Hi Randy,

Morning. I finally find the way to download GB2312. I have written (copy from other website and modify) a small macro to download data. It works.

Sub simplified()
Dim strRespText$, tt$, i&, DW$
Dim URL
URL = "http://money.finance.sina.com.cn/corp/go.php/vFD_FootNotes/stockid/002202.phtml"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", URL, False
.Send
tt = StrConv(.ResponseBody, vbUnicode)
tt = Replace(tt, vbCrLf, "")

End With
Cells(33, 4).Value = tt

End Sub

I want to change it as a function to facilitate the download, but it doesn't work.

Function simplified()
Dim strRespText$, tt$, i&, DW$
Dim URL
URL = "http://money.finance.sina.com.cn/corp/go.php/vFD_FootNotes/stockid/002202.phtml"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", URL, False
.Send
tt = StrConv(.ResponseBody, vbUnicode)
tt = Replace(tt, vbCrLf, "")

End With
simplified = tt

End Function

I type "=simplified()" in a blank cell which shows "#VALUE!". Could you please tell me what's wrong? Sorry, I am elementary on excel VB.

Thank you very much for your help.

Cheers,
Laurent