Встраивание Excel в скрипт JSON

Question

Ища некоторые ресурсы онлайн, подумал, что не мешало бы спросить, есть ли у кого-то еще здесь дополнительные советы или полезные ссылки. Я пытаюсь закодировать функцию / диапазон Excel в сценарий JSON, который я помещаю в API.

Пример JSON, который необходимо пройти, выглядит следующим образом:

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

Способ, которым я собирался это описать, был:

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

Где Имена - это именованный диапазон из 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"), ",")