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
Gracias por la atención (Yo no soy de los desagradecidos...)
Desde Mexico City
Armin Canto
1 respuesta
Respuesta de emperador20
1
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
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
