La tarea no es fácil, vamos a generar un CSV en VB6 y de ahí consumir una componente .NET y de ahí pasar a GoogleSpreadSheets. Esto es porque investigando, pasar desde VB6 a GoogleSpreadSheets directamente es medio complicado, por lo que usaremos .NET como "puente".
Usaremos:
Visual Studio 2013
.Net Framework 2.0.
Visual Basic 6
Configuración en la cuenta Google
En la cuenta de correo que usará Google Spreadsheets:
Crear un proyecto en: https://console.developers.google.com Y activar la API Drive API.
Activar aplicaciones no seguras: https://www.google.com/settings/security/lesssecureapps, esto porque no usaremos OAuth 2.0, sino un acceso directo del código con el correo/clave.
Codificar la componente .Net
Instala Google_Data_API_Setup_*.msi, en mi caso bajé Google_Data_API_Setup_2.2.0.0.msi.
Las dll quedarán en por defecto en:
C:\Program Files (x86)\Google\Google Data API SDK\Redist\
Fuente:
https://developers.google.com/google-apps/spreadsheets/.
Usaremos .Net Framework 2.0, así que en Visual Studio 2013 crear un proyecto tipo Librería de Clases usando esta versión del Framework.
Referencia a las DLL:
Google.GData.Client
Google.GData.Documents
Google.GData.Extension
Google.GData.Spreadsheets
Como dije, sácalas de: C:\Program Files (x86)\Google\Google Data API SDK\Redist\
Configura el proyecto
En el archivo
AssemblyInfo.cs configura:
[assembly: ClassInterface(ClassInterfaceType.None)]
[assembly: AssemblyKeyFileAttribute("C:\\TFS\Google.snk")] // C#
[assembly: Guid("837f7063-8219-4f83-abe5-aa4240c7ac4e")] //en c# automático
En las propiedades del proyecto:
Build: Registrar la interoperabilidad COM
Aplicación -> Información del ensamblado -> Crear ensamblado visible a travéz de COM
Crea una interfaz (para este ejemplo es útil solo si estás consumiendo desde VB6):
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
using System.Text;
namespace GoogleSpread
{
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)]
public interface IFunciones
{
int SendCVSToGoogle(string ruta, string file);
}
}
Crea la clase Funciones:
using System;
using System.Collections;
using System.Collections.Generic;
using System.IO;
using System.Runtime.InteropServices;
using System.Text;
using Google.GData.Spreadsheets;
using Google.GData.Client;
using Google.GData.Documents;
using System.Configuration;
using Google.GData.Client.ResumableUpload;
namespace GoogleSpread
{
[ComSourceInterfaces("GoogleSpread.IFunciones")]
public class Funciones : IFunciones
{
public Funciones()
{
}
public int SendCVSToGoogle(string ruta, string archivoCVS)
{
try
{
//logging...
DocumentsService service = new DocumentsService("MyDocumentsListIntegration-v1");
string user = ConfigurationManager.AppSettings["correo"];
string pass = ConfigurationManager.AppSettings["pass"];
service.setUserCredentials(user, pass);
if (user == null || user == String.Empty || pass == null || pass == String.Empty)
{
throw new Exception("Usuario o clave incorrecta");
}
//logging hasta aquí ok...
Authenticator authenticator = new ClientLoginAuthenticator("TestApi", Google.GData.Client.ServiceNames.Documents, service.Credentials);
// Instantiate a DocumentEntry object to be inserted.
DocumentEntry entry = new DocumentEntry();
// Set the document title
entry.Title.Text = archivoCVS;
entry.IsSpreadsheet = true;
string rutaFull = ruta + "\\" + archivoCVS;
if (!File.Exists(rutaFull))
throw new Exception("Archivo ["+ rutaFull +"] no existe.");
entry.MediaSource = new MediaFileSource(rutaFull, "text/csv");
Uri createUploadUrl = new Uri("https://docs.google.com/feeds/upload/create-session/default/private/full");
AtomLink link = new AtomLink(createUploadUrl.AbsoluteUri);
link.Rel = ResumableUploader.CreateMediaRelation;
entry.Links.Add(link);
entry.Service = service;
ResumableUploader uploader = new ResumableUploader();
//logging archivo se subirá...
// Set the handlers for the completion and progress events
uploader.AsyncOperationCompleted += new AsyncOperationCompletedEventHandler(OnDone);
uploader.AsyncOperationProgress += new AsyncOperationProgressEventHandler(OnProgress);
// Start the upload process
uploader.InsertAsync(authenticator, entry, new object());
return 1;
}
catch (Exception ex)
{
//logging error
return -1;
}
}
static void OnDone(object sender, AsyncOperationCompletedEventArgs e)
{
DocumentEntry entry = e.Entry as DocumentEntry;
//logging subido ok
}
static void OnProgress(object sender, AsyncOperationProgressEventArgs e)
{
int percentage = e.ProgressPercentage;
//logging subido un tanto %
}
}
}
Crea un proyecto Test, por ejemplo un winForm con un botón.
Agrega un archivo de configuración App.config con el correo gmail y la clave:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="correo" value="correo@gmail.com"/>
<add key="pass" value="clave"/>
</appSettings>
</configuration>
Agrega el código para que hacer clic sobre el botón invoque a la componente .Net y testearla más facilmente. Recuerde referenciar primero el proyecto:
private void button1_Click(object sender, EventArgs e)
{
FuncionesGoogle f = new FuncionesGoogle();
f.SendCVSToGoogle("c:\\test", textbox2.text);
}
Prueba la componente, ejecutando el proyecto Test:
Revisa el Log, si lo implementaste, si se guardó que se subió ok, ve a ver a
http://spreadsheet.google.com y ve si se subió:
Si abres el archivo de prueba se verá el contenido:
Llamado desde VB6
NOTA: Asumo que es otro PC.
Crea una carpeta con permiso de escritura, por ejemplo C:\temp.
Adentro deja los archivos:
GoogleSpread.dll y GoogleSpread.tlb
Además las DLL:
Newtonsoft.Json.dll, Google.GData.AccessControl.dll, Google.GData.Client.dll, Google.GData.Extensions.dll, Google.GData.Spreadsheets.dll, Google.GData.Documents.dll.
Nota: Estas 6 dll se obtienen al instalar Google_Data_API_Setup_2.2.0.0.msi obtenido de: https://code.google.com/p/google-gdata/downloads/list y que por defecto quedan en: C:\Program Files (x86)\Google\Google Data API SDK\Redist.
Además se debe copiar el archivo .config generado que luego lo configuraremos.
Referencia al tlb
Referencia al archivo tlb:
Seleccionar el archivo
.tlb y luego presionar Aceptar.
Llamar a la función de .Net entregandole una carpeta y un archivo csv:
Set objNET = New GoogleSpread.FuncionesGoogle
objNET.SendCVSToGoogle "C:\", "test.csv"
Genera el .exe de salida, llamalo "testvb.exe" y dejalo en C:\temp.
En la carpeta C:\temp entonces tenemos las 6 dll, el assembly .dll y el .tlb, el archivo tesvb.exe y el .config (con la configuración del correo) que lo debes llamar test.exe.config para que el assembly .Net lo lea correctamente.
Ahora ejecuta el testvb.exe y cruza los dedos.
Bueno, espero les sirva.
