Carlos Faddul carlosfaddul

carlosfaddul / Excel_Sheets_To_JSON.vb

Last active January 10, 2023 11:21

Converte a Tabela ativa do excel para um aquivo JSON

	Public Sub SheetsToJSON()
	Dim fso As Object
	Set fso = CreateObject("Scripting.FileSystemObject")
	jsonFilename = fso.GetBaseName(ActiveWorkbook.Name) & ".json" 'Aqui será salvo o nome do arquivo JSON baseado na sua tabela ativa do Excel'
	fullFilePath = Application.ActiveWorkbook.Path & "\" & jsonFilename 'Aqui definirá o caminho que será salvo o arquivo JSON gerado'

	Dim fileStream As Object
	Set fileStream = CreateObject("ADODB.Stream")
	fileStream.Type = 2
	fileStream.Charset = "utf-8" 'Define o formato do charset que será exportado o arquivo'

carlosfaddul / Script-DataConsolidation.bat

Created January 5, 2019 12:08

Script for Data Consolidation on CSV files using BAT

	// Create a file, copy and save the next line in format .bat.
	copy *.csv ArquivoConsolidado.csv

carlosfaddul / Drive2Sheet.gs

Last active November 21, 2024 17:10

	function Drive2Sheet() {

	// variável que contém o nome de sua pasta de arquivos,
	// TROQUE O CONTEÚDO presente nas aspas simples para o nome da pasta que você deseja listar o conteúdo.
	var foldername = 'Certificados de Cursos';
	// variável que irá nomear o arquivo do google sheets
	var folderlist = 'Lista de arquivos do ' + foldername;

	// Variável que irá acessar sua pasta
	var folders = DriveApp.getFoldersByName(foldername);