function doGet(e) {  
  if (!e.parameters.name) { //  в запросе отсутствует параметр name
    return ContentService.createTextOutput(JSON.stringify({result: 'wrong params Name'})).setMimeType(ContentService.MimeType.JSON);
  }
  if (!e.parameters.param2) { //  в запросе отсутствует параметр shop
    return ContentService.createTextOutput(JSON.stringify({result: 'wrong params Param2'})).setMimeType(ContentService.MimeType.JSON);
  }
  
  var 
    sheetId = '1P9-G166-YHL7w0Sw0hyF0oXGtvnPpiMzFHmTYtt81-w', // id вашей таблицы
    Var1 = String(e.parameters.param2),
    ss = SpreadsheetApp.openById(sheetId); // таблица
  
  if (ss.getSheetByName(e.parameters.name)) { // лист с таким именем существует
    return ContentService.createTextOutput(JSON.stringify({result: 'sheet exists'})).setMimeType(ContentService.MimeType.JSON);
  }
  
  // создаем лист и в ячейку A1 вставляем 'Hello!'
  ss.insertSheet(String(e.parameters.name)).getRange(1, Var1).setValue('Hello!');
  return ContentService.createTextOutput(JSON.stringify({result: 'ok'})).setMimeType(ContentService.MimeType.JSON);
}

function doGet(e) {  
  if (!e.parameters.name) { //  в запросе отсутствует параметр name
    return ContentService.createTextOutput(JSON.stringify({result: 'wrong params'})).setMimeType(ContentService.MimeType.JSON);
  }
  var sheetId = '1GtWcQorfBtpa0AZRUkAHdlj2OD0XJLlAJeiyDOSc1RQ', // id вашей таблицы
      ss = SpreadsheetApp.openById(sheetId); // таблица
  
  if (ss.getSheetByName(e.parameters.name)) { // лист с таким именем существует
    return ContentService.createTextOutput(JSON.stringify({result: 'sheet exists'})).setMimeType(ContentService.MimeType.JSON);
  }
  
  // создаем лист и в ячейку A1 вставляем 'Hello!'
  ss.insertSheet(String(e.parameters.name)).getRange(1, 1).setValue('Hello!');
  return ContentService.createTextOutput(JSON.stringify({result: 'ok'})).setMimeType(ContentService.MimeType.JSON);
}

function doGet(e) {  
  if (!e.parameters.name) return; //  в запросе отсутствует параметр name
  var sheetId = '1aqFA8ylaZpgqBBObXSxQNUDPBXIzCzbFy3FYs8mXE_o', // id вашей таблицы
      ss = SpreadsheetApp.openById(sheetId); // таблица
  if (ss.getSheetByName(e.parameters.name)) return;// лист с таким именем существует
  // создаем лист и в ячейку A1 вставляем 'Hello!'
  ss.insertSheet(e.parameters.name).getRange(1, 1).setValue('Hello!');
}

Option Explicit

Dim oHttpRequest
Set oHttpRequest = CreateObject("MSXML2.XMLHTTP")

Main()

Sub Main()
    Dim SID, LSID, Auth
    
    ClientLogin "user@gmail.com", "pass", "wise", SID, LSID, Auth
    
    GetSpreadSheetsList Auth
    
    MsgBox "Data saved to C:\DATA.xml"
End Sub

Sub ClientLogin(ByVal Email, ByVal Passwd, ByVal service, ByRef SID, ByRef LSID, 

ByRef Auth)
    Dim aTextLines
    Dim sTextLine
    Dim aParams
    Dim sValue
    With oHttpRequest
        .open "POST", "https://www.google.com/accounts/ClientLogin", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send "Email=" & Email & "&Passwd=" & Passwd & "&service=" & service & 

"&source=Gulp-CalGulp-1.05"
        if .status <> 200 Then Err.Raise vbObjectError + 1, "ClientLogin", "Server 

response status " & .status & " " & .statusText 
        aTextLines = Split(.responseText,vbLf)
    End With
    For Each sTextLine in aTextLines
        aParams = Split(sTextLine,"=",2)
        If Ubound(aParams) = 1 Then
            sValue = Trim(aParams(1))
            Select Case Trim(aParams(0))
            Case "SID"
                SID = sValue
            Case "LSID"
                LSID = sValue
            Case "Auth"
                Auth = sValue
            End Select
        End if
    Next
End Sub

Sub GetSpreadSheetsList(ByVal Auth)
    Dim oXmlParser
    Set oXmlParser = CreateObject("MSXML2.DOMDocument")
    With oHttpRequest
        .open 

"GET","https://spreadsheets.google.com/feeds/spreadsheets/private/full", False
        .setRequestHeader "Content-Type","application/atom+xml"
        .setRequestHeader "Authorization", "GoogleLogin auth=" & Auth
        .send
        oXmlParser.Load .responseBody
    End With
    oXmlParser.save "C:\DATA.xml"
End Sub