如何将Excel函数/区域编码为API POST请求的JSON脚本？

我来帮你解决这个Excel转JSON的问题，你的思路方向是对的，但确实在字符串拼接、区域内容处理和格式匹配上需要调整，下面是具体的解决方案：

先拆解你遇到的几个核心问题：

• 命名区域Names是多行单元格，直接引用会得到数组，需要转成逗号分隔的字符串
• NOW()的默认格式和目标JSON里的日期格式不匹配，需要手动格式化
• VBA里拼接带双引号的字符串时，必须用两个双引号来转义，否则会触发语法报错

步骤1：处理命名区域的多行内容 #

把Names区域的多行单元格值合并成逗号分隔的字符串，这里可以用Join函数，但要先把区域值转成一维数组：

Dim namesStr As String
' 转成一维数组后用逗号拼接
namesStr = Join(Application.Transpose(Sheet2.Range("Names").Value), ", ")

步骤2：格式化日期为目标格式 #

把当前时间转换成示例中的MM/DD/YY HH:MM:SS格式，用Format函数就能轻松实现：

Dim dateStr As String
dateStr = Format(Now(), "MM/DD/YY HH:MM:SS")

步骤3：拼接标准JSON字符串 #

注意标准JSON要求键和字符串值都用双引号，所以在VBA里要把双引号写成两个（转义规则），最终拼接代码如下：

Dim sampleBody As String
sampleBody = "{""Name"": """ & namesStr & """, ""Date"": """ & dateStr & """}"

完整可运行的VBA代码 #

把上面的步骤整合起来，完整代码示例：

Sub GenerateJSONForAPI()
    Dim namesStr As String
    Dim dateStr As String
    Dim sampleBody As String
    
    ' 处理命名区域，转成逗号分隔的字符串
    namesStr = Join(Application.Transpose(Sheet2.Range("Names").Value), ", ")
    
    ' 格式化日期为目标格式
    dateStr = Format(Now(), "MM/DD/YY HH:MM:SS")
    
    ' 拼接JSON字符串（注意双引号转义）
    sampleBody = "{""Name"": """ & namesStr & """, ""Date"": """ & dateStr & """}"
    
    ' 输出结果到立即窗口查看，或者直接用于POST请求
    Debug.Print sampleBody
End Sub

测试结果 #

运行这段代码后，sampleBody的内容会是：

{"Name": "John Doe, Jane Doe, Emily Doe", "Date": "05/09/24 14:30:25"}

完全匹配你给出的目标格式要求。

额外优化提示 #

如果你的Names区域可能存在空单元格，可以先过滤掉空值，避免出现多余的逗号：

Dim cell As Range
Dim tempArr As Variant
ReDim tempArr(1 To Sheet2.Range("Names").Cells.Count)
Dim i As Integer
i = 1

For Each cell In Sheet2.Range("Names")
    If cell.Value <> "" Then
        tempArr(i) = cell.Value
        i = i + 1
    End If
Next cell

ReDim Preserve tempArr(1 To i - 1)
namesStr = Join(tempArr, ", ")

这样就能得到干净的逗号分隔字符串啦！

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