Mac Excel用VBA自动导出Json 策划程序的最爱

最新推荐文章于 2023-04-22 11:42:34 发布

置顶

程序员历险记

最新推荐文章于 2023-04-22 11:42:34 发布

阅读量1.2k

点赞数 3

分类专栏： Excel 文章标签： Excel VBA Json

本文链接：https://blog.csdn.net/weixin_44997252/article/details/89683152

版权

本文介绍在Mac系统中利用Excel的VBA功能自动导出Json文件的方法，适用于游戏配置文件的创建。虽然Mac Excel的VBA兼容性有限，但VBA脚本因其小巧且可灵活修改的优点，成为解决此问题的一个便捷选择。注意，该脚本仅支持单表结构的简单Json转换。

摘要由CSDN通过智能技术生成

ExcelToJson

为什么需要Excel导出Json

为什么需要Excel导出Json

在游戏制作中，免不了要使用各种配置文件，而常用的配置文件格式有csv、xml、json、lua等，本人习惯使用json格式，原因很简单，配置清晰可读性强，其他优点不一而述。
本文主要介绍如何在Mac系统上使用excel的VBA自动导出json文件，当然Windows下也完美使用。
（PS：Mac的excel VBA的兼容性不好，导致有些库无法使用）

上脚本

Sub All()

    SheetToJson ("HeroesConfig")
    SheetToJson ("MonstersConfig")
    SheetToJson ("WeaponsConfig")
    
End Sub

Function SheetToJson(ByVal name As String)
    Dim savename As String
    Dim wkb As Workbook, wks As Worksheet
    Set wkb = ThisWorkbook
    Set wks = wkb.Sheets(name)
    savename = name & ".json"
    Dim icolumn As Integer, irow As Integer
    lcolumn = wks.Cells(1, Columns.Count).End(xlToLeft).Column
    lrow = wks.Cells(Rows.Count, "A").End(xlUp).Row
    Dim titles() As String
    ReDim ti