用于创建特定 JSON 文件的 VBA 代码答案

【问题标题】：VBA code for creating a specific JSON File用于创建特定 JSON 文件的 VBA 代码
【发布时间】：2022-11-04 23:02:07
【问题描述】：

有人为以下 json 文件创建 Excel VBA 代码吗？

   "Version": "1.1",    
    "TranDtls": {   
        "TaxSch": "GST",    
        "SupTyp": "B2B",    
        "IgstOnIntra": "N", 
        "RegRev": "N",  
        "EcmGstin": null    
    },  
    "DocDtls": {    
        "Typ": "INV",   
        "No": "1",  
        "Dt": "21/10/2022"

JSON 文件 CREATION 的 Excel VBA 代码

【问题讨论】：

Stackoverflow 不是免费的编码服务。

标签： json excel vba

【解决方案1】：

我们需要更多信息来帮助您找到正确答案。您是要读取/导入此 json 字符串还是要让 Excel 创建这样的字符串以进行导出？

您可以使用来自 github 的 VBA-JSON 模块。创建字符串的一种简单方法是将其复制粘贴到字符串变量中并使用 Replace 函数；

sTemp = "...      "TaxSch": "[TaxSch]",....  
sJson = Replace(sTemp,"[TaxSch]", Yourvalue)

或者您可以使用串联，但使用所有引号会更加困难。

【讨论】：

我使用了这段代码 - Set objectProperties = CreateObject("Scripting.Dictionary") For Each c In ActiveSheet.ListObjects(1).HeaderRowRange.Cells objectProperties.Add c.Column, c.Value Next Dim collectionToJson As New Collection For Each r In ActiveSheet.ListObjects(1).ListRows Set jsonObject = CreateObject("Scripting.Dictionary") For Each c In r.Range.Cells jsonObject.Add objectProperties(c.Column), c.Value Next collectionToJson.Add jsonObject Next fileSaveName = Application .GetSaveAsFilename(fileFilter:="JSON 文件(*.json),*json")