拋磚引玉：Access跟Web交互

fan0217

這里只提供了Http的Get方法，只拋磚引玉，更多方法，就自己摸索了。

直接上代碼，示例為轉(zhuǎn)換人民幣大寫：

1. Public Function HttpGet(url As String) As String
   
2.      Dim xmlHttp As Object
   
3.      Set xmlHttp = CreateObject("Msxml2.XMLHTTP.3.0")
   
4.      If Not IsObject(xmlHttp) Then
   
5.          Set xmlHttp = CreateObject("Msxml2.XMLHTTP.3.0")
   
6.          If Not IsObject(xmlHttp) Then Exit Function
   
7.      End If
   
8.      xmlHttp.Open "GET", url, False
   
9.      xmlHttp.setRequestHeader "CONTENT-TYPE", "application/text;charset=UTF-8"
   
10.      xmlHttp.send
    
11. 
    
12.      Do While xmlHttp.ReadyState <> 4
    
13.          DoEvents
    
14.      Loop
    
15.   
    
16.         Dim ret As String
    
17.        ret = xmlHttp.responseText
    
18.        HttpGet = ret
    
19. End Function
    
20. 
    
21. Public Function CapitalRMB(num As Double) As String
    
22.         Dim apiuri As String
    
23.         apiuri = "https://e.skyerp.cn/laimf/RMB.ashx?Num=" & num
    
24.         Dim ret As String
    
25.         ret = HttpGet(apiuri)
    
26.          CapitalRMB = ret
    
27. End Function

復(fù)制代碼

測試：

1. Sub TestRMB() '轉(zhuǎn)換RMB
   
2.     Debug.Print CapitalRMB(1234567.89)
   
3. End Sub

復(fù)制代碼

返回：壹佰貳拾叁萬肆仟伍佰陸拾柒元捌角玖分


附例子：

tmtony

fan.net好點子
來自: 微社區(qū)

zpy2

牛，這個api你自己寫的吧？
來自: 微社區(qū)

zpy2

zpy2 發(fā)表于 2017-4-1 10:03
牛，這個api你自己寫的吧？

utf-8在  vba 里要轉(zhuǎn)碼成 unicode吧
來自: 微社區(qū)

fan0217

zpy2 發(fā)表于 2017-4-1 10:03
牛，這個api你自己寫的吧？

其實代碼很簡單，附Web端代碼，請到1樓下載。

風中漫步

webservices,bucuo

laimf

一定要贊一個。感謝fans.Net這兩天的幫助。