Hola. Ayuda con macro
Necesito abrir un archivo execel pero el archivo puede tener cualquier nombre como puedo hacer eso
Sub Macro1()
Dim strRutaArchivo As String
Dim p As String
Workbooks.Open Filename:= _
"C:\Documents and Settings\AMATAMALA\Escritorio\MACRO\jperez91 20090508_2 0.xlsEJ.xls"
'On Error GoTo 9
strRutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls")
If strRutaArchivo = "Falso" Then
Exit Sub
End If
'9:
Range("A15").Select
Windows(aca es donde debo abrir el archivo pero no se el nombre).Activate
Sheets("Req. Planificados").Select
Range("A15:T15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("BIT200905JGonzalez_v2.xls EJ.xls").Activate
Sheets("Req. Planificados").Select
Range("A15").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Windows("jperez91 20090508_2 0.xlsEJ.xls").Activate
Sheets("Contingencias").Select
Range("A15:R15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("BIT200905JGonzalez_v2.xls EJ.xls").Activate
Sheets("Contingencias").Select
Range("A15").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End Sub
Sub Macro1()
Dim strRutaArchivo As String
Dim p As String
Workbooks.Open Filename:= _
"C:\Documents and Settings\AMATAMALA\Escritorio\MACRO\jperez91 20090508_2 0.xlsEJ.xls"
'On Error GoTo 9
strRutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls")
If strRutaArchivo = "Falso" Then
Exit Sub
End If
'9:
Range("A15").Select
Windows(aca es donde debo abrir el archivo pero no se el nombre).Activate
Sheets("Req. Planificados").Select
Range("A15:T15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("BIT200905JGonzalez_v2.xls EJ.xls").Activate
Sheets("Req. Planificados").Select
Range("A15").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Windows("jperez91 20090508_2 0.xlsEJ.xls").Activate
Sheets("Contingencias").Select
Range("A15:R15").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("BIT200905JGonzalez_v2.xls EJ.xls").Activate
Sheets("Contingencias").Select
Range("A15").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Parece la misma rutina, por lo que va la misma explicación. Si el tema queda resuelto no olvides finalizar esta consulta también.
Te explico sobre la misma rutina:
Sub Macro1()
Dim strRutaArchivo As String
Dim p As String
'la sgte línea no la necesitas, porque aún no sabes que libro abrir. Le coloqué comillas delante para inhabilitarla
'Workbooks.Open Filename:= _
"C:\Documents and Settings\AMATAMALA\Escritorio\MACRO\jperez91 20090508_2 0.xlsEJ.xls"
'On Error GoTo 9
'a continuación se abrirá la ventana del menu Archivo, Abrir para que selecciones el libro
strRutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls")
'si se canceló la ventana la variable quedará en falso y por lo tanto se cancelará el proceso con el Exit sub
If strRutaArchivo = "Falso" Then
Exit Sub
End If
'9:
Range("A15").Select 'atención que aún estás en el libro original
'aquí es dónde debes abrir el libro elegido
workbooks.open strRutaArchivo
'el libro abierto pasa a ser el activo, no necesitas activarlo nuevamente.
'Windows(aca es donde debo abrir el archivo pero no se el nombre).Activate
Sheets(... sigue tu rutina)
Si todo quedó claro, no olvides finalizar la consulta
Te explico sobre la misma rutina:
Sub Macro1()
Dim strRutaArchivo As String
Dim p As String
'la sgte línea no la necesitas, porque aún no sabes que libro abrir. Le coloqué comillas delante para inhabilitarla
'Workbooks.Open Filename:= _
"C:\Documents and Settings\AMATAMALA\Escritorio\MACRO\jperez91 20090508_2 0.xlsEJ.xls"
'On Error GoTo 9
'a continuación se abrirá la ventana del menu Archivo, Abrir para que selecciones el libro
strRutaArchivo = Application.GetOpenFilename("Libro de Microsoft Excel (*.xls), *.xls")
'si se canceló la ventana la variable quedará en falso y por lo tanto se cancelará el proceso con el Exit sub
If strRutaArchivo = "Falso" Then
Exit Sub
End If
'9:
Range("A15").Select 'atención que aún estás en el libro original
'aquí es dónde debes abrir el libro elegido
workbooks.open strRutaArchivo
'el libro abierto pasa a ser el activo, no necesitas activarlo nuevamente.
'Windows(aca es donde debo abrir el archivo pero no se el nombre).Activate
Sheets(... sigue tu rutina)
Si todo quedó claro, no olvides finalizar la consulta
