文章摘要
这篇文章介绍了如何使用Visual Basic脚本将Excel表格中的数据转换为UTF-8格式的JSON文件。脚本首先通过`Worksheets("sheet1").UsedRange`或名称范围选择数据区域，并计算该区域的总行数和总列数。接着，使用`ADODB.Stream`对象将选定的数据写入到目标文件中，确保文件编码为UTF-8，并以`.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)) ‘通过标题行的最大行最大列来选择数据
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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
