设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2711|回复: 6

[模块/函数] 抛砖引玉:Access跟Web交互

[复制链接]
发表于 2017-4-1 08:44:17 | 显示全部楼层 |阅读模式
本帖最后由 fan0217 于 2017-4-1 10:55 编辑

这里只提供了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.      Do While xmlHttp.ReadyState <> 4
  12.          DoEvents
  13.      Loop
  14.   
  15.         Dim ret As String
  16.        ret = xmlHttp.responseText
  17.        HttpGet = ret
  18. End Function

  19. Public Function CapitalRMB(num As Double) As String
  20.         Dim apiuri As String
  21.         apiuri = "https://e.skyerp.cn/laimf/RMB.ashx?Num=" & num
  22.         Dim ret As String
  23.         ret = HttpGet(apiuri)
  24.          CapitalRMB = ret
  25. End Function
复制代码


测试:
  1. Sub TestRMB() '转换RMB
  2.     Debug.Print CapitalRMB(1234567.89)
  3. End Sub
复制代码


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


附例子:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1经验 +15 收起 理由
zpy2 + 15 可以在这里输入分享原因或详细内容

查看全部评分

点击这里给我发消息

发表于 2017-4-1 09:36:28 来自手机 | 显示全部楼层
fan.net好点子
来自: 微社区

点击这里给我发消息

发表于 2017-4-1 10:03:14 来自手机 | 显示全部楼层
牛,这个api你自己写的吧?
来自: 微社区

点击这里给我发消息

发表于 2017-4-1 10:05:51 来自手机 | 显示全部楼层
zpy2 发表于 2017-4-1 10:03
牛,这个api你自己写的吧?

utf-8在  vba 里要转码成 unicode吧
来自: 微社区
 楼主| 发表于 2017-4-1 10:54:04 | 显示全部楼层
zpy2 发表于 2017-4-1 10:03
牛,这个api你自己写的吧?

其实代码很简单,附Web端代码,请到1楼下载。
发表于 2017-4-1 13:38:43 | 显示全部楼层
webservices,bucuo

点击这里给我发消息

发表于 2017-4-1 23:05:36 | 显示全部楼层
一定要赞一个。感谢fans.Net这两天的帮助。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 19:36 , Processed in 0.133620 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表