archivos con macros vba

Solo consultas sobre macros y código VBA 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!
Compartir en:
     

archivos con macros vba

Notapor horaciomillan » 14 Ago 2009 00:29

Buenas noches amigos.

Estoy buscando un codigo que me permita indicar una carpeta determinada y que al ejecutar la macro se abran todos los archivos de excel que existan en esa carpeta, sin necesidad de que conozca los nombres ni la cantidad.

Es decir que hoy pueden haber 5 archivos, mañana 7 o 10 y sus nombres no los conozco y que estos se puedan abrir.


Agradezco su apoyo
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
horaciomillan
Miembro Frecuente
Miembro Frecuente
 
Registrado: 11 Ago 2007 11:32

Notapor JUAN CARLOS GONZALEZ » 15 Ago 2009 16:37

Hola amigo, prueba con esta que me encontré.
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Archivos a Extraer")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Ningún archivo fue seleccionado"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open FileName:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
JUAN CARLOS GONZALEZ
Miembro Frecuente
Miembro Frecuente
 
Registrado: 09 Feb 2005 21:50
Ubicación: COSTA RICA


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 23 invitados