Abrir 2 Archivos de Excel con el Macro

3 envíos / 0 nuevos
Último envío
nane
Imagen de nane
Offline
última acción: Hace 7 meses 2 semanas
alta: 28/12/2020 - 17:38
Puntos: 35
Abrir 2 Archivos de Excel con el Macro

Buen Dia,

tengo la siguente comando que ma ayuda a abrir un archivos y ejecutar otros comando en el excel que se abre. pero necesito abrir 2 archivos a la vez para luego hacer una formula de SI para que si el valor es X lo busque en el archivo XX y si el valor es Z lo busque en el Archivo ZZ.

comando que tengo para abrir un solo archivo.

strArchivo = Application.GetOpenFilename
If strArchivo = False Then Exit Sub
Workbooks.OpenText Filename:=strArchivo

UserForm1.Hide

    Worksheets(1).Select
    'ActiveSheet.Name = "Vehiculos SAEF"
    ThisWorkbook.Activate

 

saludos cordiales y espero haberme explicado correctamente.

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 15 horas 11 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10985
Bastaría con repetir el

Bastaría con repetir el comando para abrir un segundo archivo, es decir, primero abres un archivo y luego abres otro

Cuando abres un archivo se convierte en el libro activo. Así que es recomendable asociarlos a una variable de objeto tipo Libro para luego poderte referir a uno o a otro según lo vayas necesitando

Dim miLibro1 as WorkBook, miLibro2 as WorkBook

Set miLibro1=Workbooks.OpenText Filename:=strArchivo

'y luego repites lo anterior con el libro 2

Set miLibro2=Workbooks.OpenText Filename:=strArchivo2

 

------
Ya sé Excel, pero necesito más.

nane
Imagen de nane
Offline
última acción: Hace 7 meses 2 semanas
alta: 28/12/2020 - 17:38
Puntos: 35
Muchas Gracias

Muchas Gracias hice lo que me dijo segun entendi, al hacerlo asi me marca error

Dim miLibro1 As Workbook, miLibro2 As Workbook

strArchivo = Application.GetOpenFilename
If strArchivo = False Then Exit Sub
miLibro1.OpenText Filename:=strArchivo

strArchivo = Application.GetOpenFilename
If strArchivo = False Then Exit Sub
miLibro2.OpenText Filename:=strArchivo2

cuando agrego Set miLibro1=Workbooks.OpenText Filename:=strArchivo

tambien me da error creo que no le comprendi bien. si me lo podria aclarar se lo agradeceria mucho.

saludos.