Abrir archivos de excel

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
1

1 respuesta

1
Respuesta de
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
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje

Más respuestas relacionadas

¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Visual Basic o hacer tu propia pregunta: