Excel将单元格中的json本文格式化

打开Excel文件并按下ALT + F11打开Visual Basic for Applications(VBA)编辑器。

输入下面的代码

vbnet 复制代码
Sub FormatJSONCells()
    Dim cell As Range
    Dim jsonString As String
    Dim json As Object
    Dim formattedJSON As String

    ' 循环遍历选定的单元格范围
    For Each cell In Selection
        jsonString = cell.Value
        ' 检查单元格中的内容是否为JSON数据
        If IsValidJSON(jsonString) Then
            ' 使用VBA内置JSON解析功能将JSON数据解析为对象
            Set json = JsonConverter.ParseJson(jsonString)
            ' 将JSON数据重新格式化为易于阅读的形式
            formattedJSON = JsonConverter.ConvertToJson(json, Whitespace:=2)
            ' 将格式化后的JSON数据写回到单元格中
            cell.Value = formattedJSON
        End If
    Next cell
End Sub

Function IsValidJSON(ByVal strJSON As String) As Boolean
    On Error Resume Next
    Dim json As Object
    Set json = JsonConverter.ParseJson(strJSON)
    IsValidJSON = (Err.Number = 0)
    On Error GoTo 0
End Function

进入https://github.com/VBA-tools/VBA-JSON,下载release的最新代码

VBA编辑器,"文件"->"导入", 导入文件 JsonConverter.bas

点击VBA编辑器的菜单栏上的"工具"。

选择"引用",然后在弹出的对话框中找到并勾选"Microsoft Scripting Runtime",以及"Microsoft XML 6.0"。

点击"确定"保存更改。

保存并关闭VBA编辑器。

相关推荐
VBAMatrix1 小时前
数据重构!按一级科目拆分序时账,批量生成明细账
excel·财务·审计·会计师事务所·tb工具箱·明细账
缺点内向2 小时前
Java 使用 Spire.XLS 库合并 Excel 文件实践
java·开发语言·excel
焚 城2 小时前
EXCEL(带图)转html【uni版】
前端·html·excel
木辰風2 小时前
如何在MySQL中搜索JSON数据,并去除引号
数据库·mysql·json
**蓝桉**2 小时前
EXCEL 函数
excel
海外住宅ip供应商-luck5 小时前
Smartproxy API 代理 IP 提取指南——JSON-first 架构与参数化最佳实践
tcp/ip·架构·json
21号 16 小时前
C++ 从零实现Json-Rpc 框架
网络协议·rpc·json
工业甲酰苯胺8 小时前
Excel高性能异步导出完整方案!
excel
asdfsdgss9 小时前
PostgreSQL 教程:json 与 jsonb 的数据验证机制差异及实战选择
数据库·postgresql·json
消失的旧时光-19431 天前
TCP 流通信中的 EOFException 与 JSON 半包问题解析
android·json·tcp·数据