VBA将excel数据表生成JSON文件（vba能生成exe文件吗）快来看

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

这篇文章描述了一个使用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