Jump to content

ABRIR LIBRO CON MACROS DESDE SHAREPOINT


CHEWACA

Recommended Posts

Buenos dias.

Trabajo en una Fundación y estoy preparando un excel con macros. Utilizamos como intranet el Sharepoint de Microsoft, y tenemos contratado el Office 365, aunque cada usuario tiene instalado tambien el Office en su ordenador. 

El problema lo tengo en que un excel con macros no se puede abrir desde Offcie 365 porque no soporta macros. En el sharepont ya he cambiado que la forma de abrir el archivo escel sea siempre desde la aplicación del escritorio, es decir, desde el excel instalado en el ordenador local. Pero solo funciona con el navegador Internet Explorer, hay muchos usuarios que utilizan el Chrome. 

Se me ocurren dos posibles soluciones (para las cuales no tengo ni idea del codigo a utilizar 😞😞

  1. Al abrir el excel utilice la aplicacion excel del ordenador local para abrirlo.
  2. Al abrir el excel detectar que no lo abre con la aplicacion excel del ordenador local y dar un mensaje al usuario y cerrar el libro.

No sé si esto es posilbe. O si a alguien se le ocurre otra forma, bienvenida sea 🙂 

Gracias por vuestra ayuda.

Saludos.

Link to comment
Share on other sites

Hola

Bajo ninguna circunstancia Excel Online (o sea, cuando se abre en el navegador) permite la ejecución de macros, por lo que no existe forma de generar algún tipo de código que detecte y avise que el archivo ha sido abierto  desde Excel Online.

Saludos

Link to comment
Share on other sites

Hace 21 horas, avalencia dijo:

Hola

Bajo ninguna circunstancia Excel Online (o sea, cuando se abre en el navegador) permite la ejecución de macros, por lo que no existe forma de generar algún tipo de código que detecte y avise que el archivo ha sido abierto  desde Excel Online.

Saludos

😞

Gracias

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Primero estabas haciendo referencia a  listboxpalau el cual no existe porque el tuyo se llama ListBox1 y segundo estabas utilizando  RemoveItem que cuando cargas el listbox con RowSource no aplica.
    • @Sergio primeramente pido disculpas por usar este hilo, pero tengo la siguiente consulta porque ya no se me permite adjuntar archivos en el foro?
    • Hola @ffernando, A la espera de que te pueda ayudar alguien con mas conocimientos que yo, a ver si te sirve. Primero de todo, debes tener los 2 archivos excel en una misma carpeta.  Uno con las macros y otro con la "Base de datos" En el archivo con macros debes crear 2 procesos: Function IsFileOpen(FileName As String) Dim iFilenum As Long Dim iErr As Long On Error Resume Next iFilenum = FreeFile() Open FileName For Input Lock Read As #iFilenum Close iFilenum iErr = Err On Error GoTo 0 Select Case iErr Case 0: IsFileOpen = False Case 70: IsFileOpen = True Case Else: Error iErr End Select End Function y este otro  Sub LiberarBarra() Application.StatusBar = False End Sub estos 2 procesos los debe tener en un modulo. Por último debes poner el siguiente código en el botón que hayas asignado para realizar la entrada de datos. Dim objExcel As Application Dim RutaArchivo As String Dim Texto As String Dim Fila As Integer Dim Final As Integer Texto = "Guardando los datos" Application.StatusBar = Texto Set objExcel = CreateObject("Excel.Application") With objExcel RutaArchivo = ThisWorkbook.Path & "\NOMBRE DEL LIBRO QUE ALMACENARA LOS DATOS.xlsx" If IsFileOpen(RutaArchivo) Then MsgBox "El libro debe estar cerrado para proceder." Exit Sub Else With .Workbooks.Open(RutaArchivo) For Fila = 2 To 1000 If .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Fila, 1) = "" Then Final = Fila Exit For End If Next COPIA ESTA LINEAS PARA CADA UNO DE TUS BOX PARA REALIZAR LA ENTRADA DE DATOS .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Final, 1) = ME.TXT_NOMBRE DE TU BOX .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Final, 2) = ME.TXT_NOMBRE DE TU BOX COPIA ESTA LINEAS PARA CADA UNO DE TUS BOX PARA REALIZAR LA ENTRADA DE DATOS ME.TXT_NOMBRE DE TU BOX.Value = Empty .Close SaveChanges:=True End With End If End With Call LiberarBarra MsgBox "Datos guardados correctamente!" End Sub Con esto debería de funcionarte. De todos modos, si compartes el archivo será mucho mejor. Saludos,
    • Hola tod@s!!! me gustaría saber como puedo capturar los datos de un formulario a un otro libro (que no sea el libro que contiene la macro con el form). La idea es que varias personas puedan ir criando datos desde formularios "personales" y que estos datos generados por todos sean grabados  una única hoja. ahora mismo tengo el formulario funcionando, pero cada usuario guarda en "su archivo" la información. :( les agradezco de antemano toda la ayuda!!!
    • Hola sagamoal Ser miembro de paga, te da algunas ventajas, como subir archivos. Prueba esta formula, deberás adecuar a tus rangos =SI(INDICE(MES(Hoja1!$D$5:$D$9)=7,COINCIDIR(B6,Hoja1!$B$5:$B$9,)),INDICE((Hoja1!$D$5:$D$9,Hoja1!$E$5:$E$9),COINCIDIR(B6,Hoja1!$B$5:$B$9,),,SI(Hoja2!C6="i",1,2)),"") B6 es el código, y lo busca en la hoja 1 en la columna que corresponda. te adjunto imágenes para que te guíes. hoja1 Espero te sea de utilidad Saludos, Silvia   Hoja2    
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy