黑松山资源网 Design By www.paidiu.com
ADODB.Stream创建UTF-8+BOM编码的文本文件。
然后遍历数据区,格式化数据,输出即可。
小数据还行,大数据没测试。
另,使用fso创建的文本文件编码为ANSI,ajax解析json时出现乱码无法正常解析。
Sub ToJson() '创建UTF8文本文件 myrange = Worksheets("sheet1").UsedRange '通过有效数据区来选择数据 'myrange = ActiveWorkbook.Names("schoolinfo").RefersToRange '通过定义的名称来选择数据 'myrange = Range(Worksheets("sheet1").Range("a1").End(xlDown), Worksheets("sheet1").Range("a1").End(xlToRight)) '通过标题行的最大行最大列来选择数据 Total = UBound(myrange, 1) '获取行数 Fields = UBound(myrange, 2) '获取列数 Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") With objStream .Type = 2 .Charset = "UTF-8" .Open .WriteText "{""total"":" & Total & ",""contents"":[" For i = 2 To Total .WriteText "{" For j = 1 To Fields .WriteText """" & myrange(1, j) & """:""" & Replace(myrange(i, j), """", "\""") & """" If j <> Fields Then .WriteText "," End If Next If i = Total Then .WriteText "}" Else .WriteText "}," End If Next .WriteText "]}" .SaveToFile ActiveWorkbook.FullName & ".json", 2 End With Set objStream = Nothing End Sub
最近在写一网站网页,需要从后台ASP网页查询到的MYSQL记录集返回给前台ASP网页,我们知道AJAX是无力从后台返回数据库记录集给前台网页的.
查阅大量资料,就目前而言记录集转换成JSON格式流,再由前台VBA导入WEBoffice控件的excel是个不错的选择.经过些思考,现将function过程代码奉献给大家.
Function GetJSON(Rs) Dim JSON dim returnStr dim i dim oneRecord if Rs.eof=false and Rs.Bof=false then returnStr="{ "&chr(34)&"records"&chr(34)&":[" while Rs.eof=false for i=0 to Rs.Fields.Count -1 oneRecord=oneRecord & chr(34) & Rs.Fields(i).Name & chr(34) &":" oneRecord=oneRecord & chr(34) & Rs.Fields(i).Value & chr(34) &"," Next oneRecord=left(oneRecord,InStrRev(oneRecord,",")-1) oneRecord=oneRecord & "}," returnStr=returnStr & oneRecord Rs.MoveNext Wend returnStr=left(returnStr,InStrRev(returnStr,",")-1) returnStr=returnStr & "]}" end if GetJSON=returnStr End Function
黑松山资源网 Design By www.paidiu.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
黑松山资源网 Design By www.paidiu.com
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年10月10日
2024年10月10日
- 炉石传说移动端商店打不开怎么办 移动端商店打不开解决方法分享
- 王菲《我的世界2》日本唱片志限量编号10CD[WAV+CUE]
- 乌兰托娅《爱从草原来HQII》头版限量编号[低速原抓WAV+CUE]
- 魏妙如.2017-《伟大的旅行》[WAV分轨]
- 科乐美送短跑冠军牌佬豪华礼包:顶罕卡片、决斗盘等
- 重大进展!PS4模拟器运行《重力眩晕:重制版》演示
- 南半球爱好者的福利 日本御姐级樱花妹高挑性感
- 玩家热议:哪些游戏通关后才算正式开始?
- 知名博主称赞《影之刃零》:有望成为现代最强之一?
- 泳衣快兜不住了!《莱莎工房》莱莎琳新手版开放预订
- 5.1版本「绘想游迹」全新游迹特效展示
- 原神纳塔篇OST&四周年分享H5正式上线
- 《原神》「星路拾忆」网页活动壁纸展示
- 群星.2024-祝你幸福!电影原声带【阿里巴巴】【FLAC分轨】
- 于台烟.2004-执着【乾坤唱片】【WAV+CUE】