文章摘要
这篇文章描述了一个使用VBA语言将Excel工作表中的数据转换为JSON格式的代码示例。代码通过以下步骤实现功能：
1. 通过`Worksheets("sheet1").UsedRange`或名称引用选择数据范围。
2. 获取数据范围的行数（`UBound(myrange, 1)`）和列数（`UBound(myrange, 2)`）。
3. 使用ADODB.Stream对象将数据写入UTF-8编码的文本文件，并命名为原始Excel文件名加上“.json”后缀。
4. 最后释放对象资源。
代码的核心目的是将Excel中的结构化数据以JSON格式导出，适用于数据迁移或API接口开发等场景。
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 “”
.SaveToFile ActiveWorkbook.FullName & “.json”, 2
End With
Set objStream=Nothing
End Sub