Office中國論壇/Access中國論壇

標(biāo)題: 拋磚引玉：Access跟Web交互 [打印本頁]
作者: fan0217    時間: 2017-4-1 08:44
標(biāo)題: 拋磚引玉：Access跟Web交互
本帖最后由 fan0217 于 2017-4-1 10:55 編輯

這里只提供了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

  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

  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    時間: 2017-4-1 09:36
fan.net好點子
作者: zpy2    時間: 2017-4-1 10:03
牛，這個api你自己寫的吧？
作者: zpy2    時間: 2017-4-1 10:05
zpy2 發(fā)表于 2017-4-1 10:03
牛，這個api你自己寫的吧？

utf-8在  vba 里要轉(zhuǎn)碼成 unicode吧
作者: fan0217    時間: 2017-4-1 10:54
zpy2 發(fā)表于 2017-4-1 10:03
牛，這個api你自己寫的吧？

其實代碼很簡單，附Web端代碼，請到1樓下載。
作者: 風(fēng)中漫步    時間: 2017-4-1 13:38
webservices,bucuo
作者: laimf    時間: 2017-4-1 23:05
一定要贊一個。感謝fans.Net這兩天的幫助。



歡迎光臨 Office中國論壇/Access中國論壇 (http://www.mzhfr.cn/) Powered by Discuz! X3.3