利用VBA将excel数据表生成JSON文件（utf8）

最新推荐文章于 2025-07-02 22:06:02 发布

转载最新推荐文章于 2025-07-02 22:06:02 发布 · 2.3k 阅读

excel 专栏收录该内容

22 篇文章

订阅专栏

本文介绍如何利用ADODB.Stream创建UTF-8+BOM编码的文本文件，通过遍历数据区域进行格式化输出JSON。适用于小数据集，但未测试大容量数据。同时指出Fso创建的文本文件编码为ANSI，导致Ajax解析JSON时出现乱码。提供了一个名为SubToJson()的子程序实现此功能。

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