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

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

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

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

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