参考URL:

 

 

 

GAS

function doGet() {

  // シートを設定

  let sh = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("シート1");

  // 配列としてA1セルからA3セルの値を取得します

 

  let values = sh.getRange("A1:A50").getValues();

 

  // joinメソッドを使用して配列の要素を指定した区切り文字で結合

  let response = values.join(",");

 

  // 完成した文字列をテキスト文字列として返す

  return ContentService.createTextOutput(response);

 

}

 

 

参考:2次元配列対応版

 

 

 

VBA

Public Sub sample()
'HTTP
Dim httpRequest As New WinHttp.WinHttpRequest

With httpRequest

    .Open "GET", "https://script.google.com/macros/s/ ID /exec", False
    
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    '設定した内容をリクエストで送信
    .Send
    
    'Sprit関数をしようしてカンマで分割して配列にする
    Dim myary As Variant
    myary = Split(httpRequest.ResponseText, ",")
    
    '1次元から2次元にしてサイズを合わせてセルに入れる
    Range("A1").Resize(UBound(myary) - LBound(myary) + 1, 1).Value = Application.Transpose(myary)
    
    
End With

End Sub