抛砖引玉：Access跟Web交互

fan0217

这里只提供了Http的Get方法，只抛砖引玉，更多方法，就自己摸索了。

直接上代码，示例为转换人民币大写：

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

复制代码

测试：

1. Sub TestRMB() '转换RMB
   
2.     Debug.Print CapitalRMB(1234567.89)
   
3. End Sub

复制代码

返回：壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分


附例子：

laimf

一定要赞一个。感谢fans.Net这两天的帮助。

风中漫步

webservices,bucuo

fan0217

zpy2 发表于 2017-4-1 10:03
牛，这个api你自己写的吧？

其实代码很简单，附Web端代码，请到1楼下载。

zpy2

zpy2 发表于 2017-4-1 10:03
牛，这个api你自己写的吧？

utf-8在  vba 里要转码成 unicode吧
来自: 微社区

zpy2

牛，这个api你自己写的吧？
来自: 微社区

tmtony

fan.net好点子
来自: 微社区