B4A Library GSheet Library (integrate google sheets into your B4X apps easily)

fernando1987 · Mar 6, 2022

Gsheet

Author: Fernando Arevalo
Version: 1.0

Functions:

Process_Globals As String

B4A, B4I

Initialize (ClientId As String)

B4J

Initialize(ClientId As String,ClientSecret As String)

B4X

SpreadsheetsId As String
The ID of your document. This is the big long aplha-numeric code in the middle of the document's URL.
Sheets_name As String
Name of the sheet we are going to work on
Sub delete(id As Int)
id: row number to delete
Updatesheet(id As String, l As List)
id: row number to Update and l: list of new items
UpdateSheet_range(range As String, value As String)
range: position of the value to be updated example: "A2". value: new value
insert_list(l As List)
l: list of new items, these items will be added in the next empty row( if a list is created with the total or partial elements of a database it will be added as a single query immediately to your sheet)

Gsheetplus

Author: Fernando Arevalo
Version: 1.0

Functions:

Process_Globals As String

B4A, B4I

Initialize (ClientId As String)

B4J

Initialize(ClientId As String,ClientSecret As String)

B4X

SpreadsheetsId As String
The ID of your document. This is the big long aplha-numeric code in the middle of the document's URL.
Sheets_name As String
Name of the sheet we are going to work on
Sub delete(id As Int)
id: row number to delete
Updatesheet(id As String, l As List)
id: row number to Update and l: list of new items
UpdateSheet_range(range As String, value As String)
range: position of the value to be updated example: "A2". value: new value
insert_list(l As List)
l: list of new items, these items will be added in the next empty row( if a list is created with the total or partial elements of a database it will be added as a single query immediately to your sheet)
copytodrive(title As String,sheetcopy As String)
creates a copy in the drive of the account with which you enter a selected sheet you must define the name of the new spreadsheet (title) and the name of the sheet to copy (sheetcopy)
createtitle( l As List, sheetsname As String, fontsize As Int,bold As Boolean)
l: list of titles, sheetsname: name of the sheet where the titles will be inserted
create_spreadsheets(title1 As String)
title: name of the new spreadsheet
create_sheets(name_sheets As String,SpreadsheetId As String)
name_sheets: name of the new sheet, SpreadsheetId:The ID of your document
deletesheet(sheetsname As String )
name_sheets: name of the sheet for delete into spreadsheet
newspreadsheetsid As String
allows to retrieve the id after creating a new spreadsheet or after backing up one in drive to save it in a database or variable it is recommended to put a wait of 2s before calling the value of this variable
newnamesheet As String
allows you to retrieve the name of the new sheet created to save it in a database or variable it is recommended to wait for 2s before calling the value of this variable

NOTE:

This library is not free, because, it took a lot of time and gray hair to create all the methods and learn how the api works.
Please write GSheets or GSheetplus in the order description, thanks.

Thanks for your understanding.

This library depends the Google OAuth2 class:

[class][B4X] Google OAuth2

GoogleOAuth2 class is compatible with B4A, B4i and B4J (new). It is no longer possible to use WebView to implement Google's OAuth2 authentication. The solution is to open the default browser and set the redirection uri in such a way that the browser will redirect the response back to our app...

www.b4x.com

follow the tutorial in this topic to create your project in google console developer, enable google dive and google sheets apis, make sure to add your package name to your project, and create an oauth screen.

Add this in your manifest:

manifest:

AddActivityText(Main,
  <intent-filter>
  <action android:name="android.intent.action.VIEW" />
  <category android:name="android.intent.category.DEFAULT" />
  <category android:name="android.intent.category.BROWSABLE" />
  <data android:scheme="$PACKAGE$" />
  </intent-filter>
   )

Read example for v4 api:

Read sheets:

Sub GetSheet
table1.ClearAll
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://sheets.googleapis.com/v4/spreadsheets/17YACjfqxKHDCXM_N7Jnq9BC_KzzkEgXLKzHDwaIM5Zs/values/Example!A2:Z?key=xxxxxxxxxxxxxxxxxxxxxxxxx")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim parser As JSONParser
        parser.Initialize(j.GetString.Trim)
        Dim root As Map = parser.NextObject
        'Dim majorDimension As String = root.Get("majorDimension")
        Dim values As List = root.Get("values")
 
        For Each colvalues As List In values
 
  Dim id1 As Int = colvalues.Get("4")
            Dim create As String = colvalues.Get("3")
            Dim Telephone1 As Int = colvalues.Get("0")
            Dim Age1 As Int = colvalues.Get("2")
            Dim Name1 As String = colvalues.Get("1")
            If colvalues.Size > 0 Then
             table1.AddRow(Array As String(id1,Telephone1,Name1,Age1,create))
            End If
 
        Next
        Dim range As String = root.Get("range")
        Log(range)
    End If

 

    j.Release
End Sub

Read example with Gsheets

ReadGsheet Gsheets::

Sub GetSheet

 
    Table1..ClearAll
    s.GetSheet(Me)
    Wait For get_result(x As List)
 
    For Each col As Map In x
 
        Table1.AddRow(Array As String(col.Get("1"),col.Get("Téléphone"),col.Get("Name"),col.Get("Age"),col.Get("created")))
 
    Next
 
End Sub

Example connect:

#Region  Activity Attributes
    #FullScreen: false
    #IncludeTitle: FALSE
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim s As GSheets
    Private conect1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    s.Initialize("xxxxxxxxxxxxxxxx.apps.googleusercontent.com")'your Clientid google developers console, activate google drive api and google sheets api
    s.Sheets_name = "Example"
    s.SpreadsheetsId = "1FHx-a_a4afTQ3L5hXJIOttCVaJNngO3113E-qqFOjbk"
    Activity.LoadLayout("sheets1")
 
End Sub

'Connect
Sub connect1_Click
    s.connect
End Sub

Sub Activity_Resume

s.oauth2.CallFromResume(Activity.GetStartingIntent)
 
End Sub

Advantages:

It is not linked to paying an external api
the google sheet api is totally free
You can integrate multiple apps into a single project in the google console
Easy to use and integrate

Download page:

Download Gsheetsplus:

https://b4xapp.com/item/gsheetplus-

Download Gsheets:

https://b4xapp.com/item/gsheets-

gsheets2json.xyz

Example B4A:

Important in the verification screen of your project in google cloud activate this permission:

Important when generating a key for android activate this:

Example google sheet:
Example api

fernando1987 · May 7, 2025

Version 9.6 Now Available!

We're constantly improving! The new Version 9.6 of GsheetsPlus introduces two powerful methods in the GDrive class to make working with Google Drive files and folders even easier.

What’s New in This Version (GsheetsPlus only):

FindFolderIDByName(FolderName As String)
Easily retrieve the ID of a Google Drive folder by its name.

FindFileIDByName(FileName As String)
Quickly locate the ID of any file by its name.

Both methods handle access tokens automatically and trigger custom events with the results, making them perfect for asynchronous integrations.

Example: Uploading PDF Files from Local Folders to Google Drive with Automatic Folder Handling for B4A:

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim gd As GDrive
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    
    gd.Initialize(Me,"gd","xxxxxxxxxxxxxxxx.apps.googleusercontent.com")
    
End Sub


Sub UploadPdf
    Dim n As Int = 0
    ProgressDialogShow2("Uploading PDF files", False)

    ' Find the root folder ID in Google Drive
    gd.FindFolderIDByName("myfolder")
    Wait For gd_FindFolderIDByName(success As Boolean, FolderIdRoot As String)
    If success = False Then
        Log("Root folder not found")
        Return
    Else
        ' Local root folder path
        Dim localRootFolder As String = File.Combine(File.DirRootExternal, "myfolder")
        If File.IsDirectory(localRootFolder, "") = False Then
            Log("Local folder does not exist: " & localRootFolder)
            Return
        End If

        ' List subfolders in the local root folder
        Dim content As List = File.ListFiles(localRootFolder)
        For Each item As String In content
            Dim fullSubPath As String = File.Combine(localRootFolder, item)
            If File.IsDirectory(fullSubPath, "") Then
                Log("Processing folder: " & item)

                ' Try to find the corresponding folder in Google Drive
                gd.FindFolderIDByName(item)
                Wait For gd_FindFolderIDByName(success As Boolean, Id As String)
                If success Then
                    ' Upload files to the existing Drive folder
                    Dim localFolder As String = File.Combine(File.DirRootExternal, "myfolder/" & item)
                    If File.IsDirectory(localFolder, "") = False Then
                        Log("Local folder not found: " & localFolder)
                        Return
                    End If

                    Dim files As List = File.ListFiles(localFolder)
                    For Each fileName As String In files
                        n = n + 1
                        ProgressDialogShow2("Uploading PDF files " & n & "/" & files.Size, False)
                        gd.UploadFile(fileName, localFolder, fileName, Id, "")
                        Wait For gd_FileUploaded(Success As Boolean, FileID As String)
                        If Success Then
                            File.Delete(localFolder, fileName)
                            Sleep(2000)
                        End If
                    Next
                Else
                    ' If folder doesn't exist in Drive, create it
                    gd.CreateFolder(item, FolderIdRoot)
                    Wait For gd_FolderCreated_success(FolderName As String, Id As String)

                    Dim localFolder As String = File.Combine(File.DirRootExternal, "myfolder/" & FolderName)
                    If File.IsDirectory(localFolder, "") = False Then
                        Log("Local folder not found: " & localFolder)
                        Return
                    End If

                    Dim files As List = File.ListFiles(localFolder)
                    For Each fileName As String In files
                        n = n + 1
                        ProgressDialogShow2("Uploading PDF files " & n & "/" & files.Size, False)
                        gd.UploadFile(fileName, localFolder, fileName, Id, "")
                        Wait For gd_FileUploaded(Success As Boolean, FileID As String)
                        If Success Then
                            File.Delete(localFolder, fileName)
                            Sleep(2000)
                        End If
                    Next
                End If
            End If
        Next
    End If

    ' Clean up: remove empty folders
    DeleteEmptyFolders(File.DirRootExternal & "/myfolder")
    ProgressDialogHide
End Sub

' Recursively delete empty folders
Sub DeleteEmptyFolders(Folder As String)
    Dim files As List = File.ListFiles(Folder)
    For Each name As String In files
        Dim fullPath As String = File.Combine(Folder, name)
        If File.IsDirectory(Folder, name) Then
            ' Recurse into subfolder
            DeleteEmptyFolders(fullPath)
            ' Check again after deleting subfolders
            Dim innerFiles As List = File.ListFiles(fullPath)
            If innerFiles.IsInitialized And innerFiles.Size = 0 Then
                File.Delete(Folder, name)
                Log("Folder deleted: " & fullPath)
            End If
        End If
    Next
End Sub

How to Get the Update:

If you’ve previously purchased GsheetsPlus, just:

Log in to your user panel at b4xapp.com
Go to the "Recent Orders" section
Download the latest version at no additional cost

It’s that simple!

B4A Library GSheet Library (integrate google sheets into your B4X apps easily)

[class][B4X] Google OAuth2

Attachments

fernando1987

Active Member

Version 9.6 Now Available!

What’s New in This Version (GsheetsPlus only):

How to Get the Update:

Similar Threads

B4A Library GSheet Library (integrate google sheets into your B4X apps easily)

[class][B4X] Google OAuth2

Attachments

fernando1987

Active Member

Version 9.6 Now Available!​

What’s New in This Version (GsheetsPlus only):​

How to Get the Update:​

Similar Threads

Privacy & Transparency

Privacy & Transparency

Version 9.6 Now Available!

What’s New in This Version (GsheetsPlus only):

How to Get the Update: