Igual pregunto un imposible pero hay alguna manera de abrir mas de un libro de escel ala vez desde una macro usando una sola sentencia?
Muchas gracias...
Abrir mas de un libro de excel
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Abrir mas de un libro de excel
por kokeguti » 13 Jun 2006 05:26
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
kokeguti - Miembro Nuevo
- Registrado: 08 May 2006 04:42
Re: Abrir mas de un libro de excel
por ST » 13 Jun 2006 12:42
un ejemplo puede ser
- Código: Seleccionar todo
Private Sub Workbook_Open()
Workbooks.Open "E:\Execeluciones\Mis pruebas\CREDITOS.xls"
Workbooks.Open "E:\Execeluciones\Mis pruebas\boton transparente.xls"
Workbooks.Open "E:\Execeluciones\Mis pruebas\MsgBox.xls"
Workbooks.Open "E:\Execeluciones\Mis pruebas\TXT.xls"
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
ST - Miembro Frecuente
- Registrado: 06 Jun 2005 17:56
- Ubicación: Acapulco
Re: Abrir mas de un libro de excel
por Adrian » 15 Jun 2006 11:32
Hola!
Es mi paresiación del problema. Una ayudita.
Ojo falla si los libros estan abiertos, pero es otro tema.
Sub AbrirElRestoDeLibros()
Dim DirActual, NombreLibro, Libros As String, i As Integer, Fs
NombreLibro = ActiveWorkbook.Name
DirActual = ActiveWorkbook.Path
ChDir DirActual
Set Fs = Application.FileSearch
With Fs
.LookIn = DirActual
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Libros = .FoundFiles(i)
Libros = Mid(Libros, InStrRev(Libros, "\") + 1)
If Libros <> NombreLibro Then
Workbooks.Open Libros
End If
Next i
Else
MsgBox "Existe solo este archivo (el activo)"
End If
End With
End Sub
Atte.
Es mi paresiación del problema. Una ayudita.
Ojo falla si los libros estan abiertos, pero es otro tema.
Sub AbrirElRestoDeLibros()
Dim DirActual, NombreLibro, Libros As String, i As Integer, Fs
NombreLibro = ActiveWorkbook.Name
DirActual = ActiveWorkbook.Path
ChDir DirActual
Set Fs = Application.FileSearch
With Fs
.LookIn = DirActual
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Libros = .FoundFiles(i)
Libros = Mid(Libros, InStrRev(Libros, "\") + 1)
If Libros <> NombreLibro Then
Workbooks.Open Libros
End If
Next i
Else
MsgBox "Existe solo este archivo (el activo)"
End If
End With
End Sub
Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Adrian - Moderator
- Registrado: 13 Jun 2004 17:24
- Ubicación: Chamical La Rioja ARG
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: Google [Bot] y 13 invitados
