利用VBA将excel数据表生成JSON文件(utf8)
来源:互联网 发布:libevent源码深度剖析 编辑:程序博客网 时间:2024/05/29 15:09
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
- 利用VBA将excel数据表生成JSON文件(utf8)
- 利用VBA将excel数据表生成JSON文件(utf8)
- excel中如何利用VBA批量生成XML文件
- 利用POI将数据表导入Excel
- 利用Python将excel表格转换为json文件
- 利用 VBA 批量合并 EXCEL 文件
- 利用VBA来编辑Excel文件
- 将excel 文件导入access数据表
- 将mysql数据表导出为excel文件
- 上传excel文件生成json
- 将EXCEL文件转换成utf8编码的csv文件
- 利用exceljs将excel转化为json
- 利用jxl生成excel文件
- 利用JSP生成EXCEL文件
- 利用JSP生成EXCEL文件
- JXLS 利用excel模板生成excel文件
- 利用Excel VBA SQL做特殊文件浏览器
- 使用VBA将Excel工作表分割成多个文件
- 【jQuery】使用slideUp()和slideDown()方法的滑动效果
- 【jQuery】使用slideToggle()方法实现图片“变脸”效果
- 51Nod 1163 最高的奖励(贪心+优先队列 & 并差集)
- 【jQuery】使用fadeIn()与fadeOut()方法实现淡入淡出效果
- Excel2Unity
- 利用VBA将excel数据表生成JSON文件(utf8)
- 【jQuery】使用fadeTo()方法设置淡入淡出效果的不透明度
- Vba Json
- VBA处理JSON文件的类模块
- 【jQuery】调用animate()方法制作简单的动画效果
- 【jQuery】调用animate()方法制作移动位置的动画
- 【jQuery】调用stop()方法停止当前所有动画效果
- [leetcode] 30. Substring with Concatenation of All Words 解题报告
- 【jQuery】调用delay()方法延时执行动画效果