Abrir una libro de google Drive desde vba
Publicado por Carolina (5 intervenciones) el 22/05/2024 19:19:01
Hola amigos!! Tengo una consulta, yo tengo un cotizador hecho en excel 2010.Quiero que, el archivo que contiene los precios de costo y venta, estén en un archivo aparte pero que esté en google drive y que todos los vendedores que tengan permiso de acceso a ese excel lo puedan abrir minimizado y de solo lectura, hasta ahora lo hice con un archivo que esté en el mismo directorio o en otro pero de la pc donde se ejecuta el cotizador, intenté abrirlo desde la pagina web pero me da error, comparto lo que tengo en el script:
Private Sub Workbook_Open()
Dim varchivo_datos As String
Dim vlibro_activo
Dim Nulo as integer
vlibro_activo = ActiveWorkbook.Name
'varchivo_datos = ActiveSheet.Range("A1") & "\ABITADATOS.xlsm"
' If Dir(varchivo_datos) <> "" Then
' Workbooks.Open varchivo_datos
' Else
' MsgBox "ATENCION: NO EXISTE EL ARCHIVO QUE CONTIENE LOS VALORES PARA COTIZAR, EL
SISTEMA NO VA A ARROJAR NINGUN VALOR, COMUMIQUESE CON QUIEN CORRESPONDA"
'End If
varchivo_datos = ActiveSheet.Range("A1")
Shell ("C:\Archivos de Programa\Google\Chrome\Application\Chrome.exe ~url=" & varchivo_datos)
Workbooks(vlibro_activo).Activate
Sheets("PEDIDOS").Select
ActiveSheet.Range("N6").Value = Now
ActiveSheet.Range("B6").Select
End Sub
La celda A1 tiene escrita esta direccion: https://docs.google.com/spreadsheets/d/15BvKXDroTJWPl92slP_943njClNxrxjs/edit#gid=1071509257
Yo la copie directamente desde mi acceso directo, al cual con un click abro la pagina que tengo que abrir pero bno puedo hacerlo desde vba.
Cualquier ayuda será MUY BIEN VENIDAAAAA
UN MILLON DE GRACIAS!!!!!
Private Sub Workbook_Open()
Dim varchivo_datos As String
Dim vlibro_activo
Dim Nulo as integer
vlibro_activo = ActiveWorkbook.Name
'varchivo_datos = ActiveSheet.Range("A1") & "\ABITADATOS.xlsm"
' If Dir(varchivo_datos) <> "" Then
' Workbooks.Open varchivo_datos
' Else
' MsgBox "ATENCION: NO EXISTE EL ARCHIVO QUE CONTIENE LOS VALORES PARA COTIZAR, EL
SISTEMA NO VA A ARROJAR NINGUN VALOR, COMUMIQUESE CON QUIEN CORRESPONDA"
'End If
varchivo_datos = ActiveSheet.Range("A1")
Shell ("C:\Archivos de Programa\Google\Chrome\Application\Chrome.exe ~url=" & varchivo_datos)
Workbooks(vlibro_activo).Activate
Sheets("PEDIDOS").Select
ActiveSheet.Range("N6").Value = Now
ActiveSheet.Range("B6").Select
End Sub
La celda A1 tiene escrita esta direccion: https://docs.google.com/spreadsheets/d/15BvKXDroTJWPl92slP_943njClNxrxjs/edit#gid=1071509257
Yo la copie directamente desde mi acceso directo, al cual con un click abro la pagina que tengo que abrir pero bno puedo hacerlo desde vba.
Cualquier ayuda será MUY BIEN VENIDAAAAA
UN MILLON DE GRACIAS!!!!!
Valora esta pregunta


0