Question

在网上寻找一些资源，认为在这里询问其他人是否可能有进一步的建议或有用的链接并不会有什么坏处。我正在尝试将Excel函数/范围编码为我正在POST到API的JSON脚本。

示例JSON需要看起来像：

{
Name: "John Doe,Jane Doe",
Date: "05/09/15 7:05:10"
}

我打算通过的方式是：

sampleBody = "{
        Name: Sheet2.Range("Names"),
        Date: NOW()
        }"

其中Names是Excel中的命名范围，如下所示：

John Doe
Jane Doe
Emily Doe

我确信这会给我一些公平的问题（为了便于阅读，我拿出了所有" & Chr(34) & "。

Answer 1

您可以执行以下操作：

Function convertRangeToList(myRange As Range, delimiter As String) As String
    Dim rngCell As Range
    Dim arrNames() As Variant

    'redim the array
    ReDim arrNames(myRange - 1)

    'Load the array
    i = 0
    For Each rngCell In myRange
        arrNames(i) = rngCell.Value
        i = i + 1
    Next

    'Join to comma seperate the array
    convertRangeToList Join(arrNames, delimiter)

End Function

这将获取您的范围并将其转换为列表。您可以像使用它一样使用它：

mylist = convertRangeToList(Range("names"), ",")

将Excel嵌入到JSON脚本中

1 个答案: