How do I insert new sheet in Existing google spreadsheet using vb.net?

Question

I am manage to create spreadsheet on google drive using following code. Now I want to add new sheets in that created spreadsheet.

When I Create new spreadsheet , it contains default sheet having name Sheet1 but I want to rename that sheet or insert more than one sheets in Spreadsheet

Public Function Create(ByVal FileName As String) As String
        Try

            Dim service = GetGoogleAPPDriveService()


            Dim fileMetadata = New Google.Apis.Drive.v3.Data.File()
            fileMetadata.Name = FileName
            fileMetadata.MimeType = "application/vnd.google-apps.spreadsheet"

            Dim request As FilesResource.CreateRequest = service.Files.Create(fileMetadata)

            request.SupportsTeamDrives = True
            request.Fields = "id"
            System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf AcceptAllcertification)
            Dim file = request.Execute

            Return file.Id

        Catch ex As Exception
            Throw ex
        End Try
    End Function 

Private Function GetGoogleAPPDriveService() As DriveService
        Try
            Dim Scopes1 As String() = {DriveService.Scope.Drive, DriveService.Scope.DriveFile}
            Dim ClientId As String = ""
            Dim ClientSecret As String = ""
            Dim UserCredentials As UserCredential

            Dim stream = New FileStream("credentials.json", FileMode.Open, FileAccess.Read)
            ClientId = GoogleClientSecrets.Load(stream).Secrets.ClientId

            Dim stream1 = New FileStream("credentials.json", FileMode.Open, FileAccess.Read)
            ClientSecret = GoogleClientSecrets.Load(stream1).Secrets.ClientSecret

            Dim cs = New ClientSecrets()
            cs.ClientId = ClientId
            cs.ClientSecret = ClientSecret

            UserCredentials = GoogleWebAuthorizationBroker.AuthorizeAsync(cs, Scopes1, Environment.UserName,
                                                                         CancellationToken.None, New FileDataStore("MyAppsToken", True)).Result


            Dim service = New DriveService(New BaseClientService.Initializer() With {
   .HttpClientInitializer = UserCredentials,
   .ApplicationName = ApplicationName})

            Return service


        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Function AcceptAllcertification(ByVal sender As Object, ByVal Certification As X509Certificate, ByVal Chain As X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function

Answer 1

You need to use the Sheets API for that. Have a look at the AddSheetRequest

Answer 2

Its hard to identify which request has to be used in .net from json file . I succeed to add sheet in existing Spread sheet . Here I am put vb.net code if any one needed

Public Function Addsheet(ByVal FileId As String, ByVal sheetName As String) As String
        Try

            Dim serv = GetGoogleAPPSheetService() 

            Dim updatesheet = New BatchUpdateSpreadsheetRequest
            Dim Req_Request As Request = New Request
            Dim Req_AddSheet As New AddSheetRequest
            Dim prop As New SheetProperties

            prop.Title = sheetName

            Req_AddSheet.Properties = prop

            Req_Request.AddSheet = Req_AddSheet

            Dim IList_req As IList(Of Request)

            Dim List_req1 = New List(Of Request)

            List_req1.Add(Req_Request)

            IList_req = List_req1.ToList
            updatesheet.Requests = IList_req
            Dim req = serv.Spreadsheets.BatchUpdate(updatesheet, FileId)
            Dim response = req.Execute

        Catch ex As Exception
            Throw ex
        End Try

    End Function

Private Function GetGoogleAPPSheetService() As SheetsService
        Try
            Dim UserCredentials As UserCredential

            Using stream = New FileStream("credentials.json", FileMode.Open, FileAccess.Read)
                Dim credPath As String = "token.json" 'System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)
                'credPath = Path.Combine(credPath, ".credentials/sheets.googleapis.com-dotnet-quickstart.json")
                UserCredentials = GoogleWebAuthorizationBroker.AuthorizeAsync(
                    GoogleClientSecrets.Load(stream).Secrets, Scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result
            End Using

            Dim service = New SheetsService(New BaseClientService.Initializer() With {
   .HttpClientInitializer = UserCredentials,
   .ApplicationName = ApplicationName})

            Return service

        Catch ex As Exception
            Throw ex
        End Try
    End Function