Abrir archivos de excel

Respuesta de
a
Usuario
Que tal estimado Experto, no tengo mucha experiencia en programación de visual, más bien trabajo con toda la ofimática, mi duda es que si me pueden pasar el código para abrir varios archivos de excel al mismo tiempo, espero no pedir demasiado,
Gracias por la atención (Yo no soy de los desagradecidos...)
Desde Mexico City
Armin Canto
Experto
Hola acá te paso algo que te pregunta que nombre de archivo quieres abrir.
Solo tendrías que retocar el código poniéndoles el nombre para que los abra directamente.

solo hace falta un boton en el form

esto va en el option explicit

Dim HojaExcel As Excel.Worksheet
' Private HojaExcel As Excel.Worksheet
Dim LibroExcel As New Workbook

esto va en el boton

Dim NombreHoja As String
On Error GoTo RutinaError

NombreHoja:
NombreHoja = InputBox("Nombre de la Hoja")
If NombreHoja = "" Then Exit Sub ' Se pulso CANCELAR

' Buscamos la hoja en el directorio de la aplicacion
Set HojaExcel = GetObject(App.Path & "\" & NombreHoja)
HojaExcel.Application.Visible = True
' Activar la ventana que contiene la hoja de calculo
HojaExcel.Application.Windows(NombreHoja).Activate
Exit Sub

RutinaError:
MsgBox Err.Description
If Err = 432 Then Resume NombreHoja


Saludos leandro
Usuario
Te agradezco por la rapidez de la respuesta