求助：使用VBA将Excel表格转JSON时日期列格式异常

原代码使用Value2获取单元格值时，日期类型会被转换为Excel内部的序列化数值（如45130），要保留日期的可读格式，需要在处理单元格值时增加日期判断与格式化逻辑。

修改后的完整代码如下：

Public Function ExcelToJSON(rng As Range) As String
    ' 检查区域至少包含2列
    If rng.Columns.Count < 2 Then
        ExcelToJSON = CVErr(xlErrNA)
        Exit Function
    End If
    
    Dim dataLoop As Long, headerLoop As Long
    ' 获取表头行
    Dim headerRange As Range: Set headerRange = rng.Rows(1)
    Dim colCount As Long: colCount = headerRange.Columns.Count
    Dim JSON As String: JSON = " ""ItemList"":[   "
    
    For dataLoop = 1 To rng.Rows.Count
        ' 跳过表头行
        If dataLoop > 1 Then
            Dim jsonData As String: jsonData = "{"
            For headerLoop = 1 To colCount
                Dim cellValue As Variant
                cellValue = rng.Cells(dataLoop, headerLoop).Value
                
                ' 拼接表头
                jsonData = jsonData & """" & headerRange.Value2(1, headerLoop) & """" & ":"
                
                ' 判断是否为日期并格式化
                If IsDate(cellValue) Then
                    ' 可自定义日期格式，示例为"yyyy-mm-dd"，也可改为单元格原格式如rng.Cells(dataLoop, headerLoop).NumberFormat
                    jsonData = jsonData & """" & Format(cellValue, "yyyy-mm-dd") & """" & ","
                Else
                    ' 非日期值直接使用
                    jsonData = jsonData & """" & cellValue & """" & ","
                End If
            Next headerLoop
            
            ' 移除最后一个逗号
            jsonData = Left(jsonData, Len(jsonData) - 1)
            JSON = JSON & jsonData & "},"
        End If
    Next
    
    ' 移除最后一行的逗号并闭合JSON
    JSON = Left(JSON, Len(JSON) - 1)
    JSON = JSON & "]"
    ExcelToJSON = JSON
End Function

关键修改说明： #

• 修正原代码变量声明的不严谨问题：将Dim dataLoop, headerLoop As Long改为Dim dataLoop As Long, headerLoop As Long，确保两个变量均为长整型
• 替换直接读取rng.Value2的逻辑，改为读取单元格Value并通过IsDate判断是否为日期类型
• 若为日期，使用Format函数将其转换为可读的字符串格式（示例用yyyy-mm-dd，可根据需求修改为mm/dd/yyyy等，或用rng.Cells(dataLoop, headerLoop).NumberFormat匹配单元格原显示格式）
• 简化表头区域的获取逻辑，将Range(rng.Rows(1).Address)改为rng.Rows(1)，提升代码效率

内容的提问来源于stack exchange，提问作者lachg258