Cómo abrir un archivo de excel desde un form??
Hola!
Mi preguntas es esta:
Tengo un form en el que puse un botón que al pularlo debe abrir un archivo que se llama Formato de Pedidos y que está en excel, pero cómo lo hago?? Cuál es el código que tengo que poner en el botón?? Tengo que habilitar algunas herramientas??
Porfa me urge!! Gracias :)
Mi preguntas es esta:
Tengo un form en el que puse un botón que al pularlo debe abrir un archivo que se llama Formato de Pedidos y que está en excel, pero cómo lo hago?? Cuál es el código que tengo que poner en el botón?? Tengo que habilitar algunas herramientas??
Porfa me urge!! Gracias :)
Cariño espero y te sirva esto
'Set objWB = Nothing
Set loExcel = CreateObject("Excel.Application")
' Añadimos un libro ...
Set libro = loExcel.Workbooks.Open(App.Path & "modelovar1.xls")
' No permito que se vea Excel...
loExcel.Visible = True 'loExcel.Visible = False para que no
se vea
Esto te vá a funcionar chao!
'Set objWB = Nothing
Set loExcel = CreateObject("Excel.Application")
' Añadimos un libro ...
Set libro = loExcel.Workbooks.Open(App.Path & "modelovar1.xls")
' No permito que se vea Excel...
loExcel.Visible = True 'loExcel.Visible = False para que no
se vea
Esto te vá a funcionar chao!
Dim xlapp As Excel.Application
Dim xlbk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbk = xlapp.Workbooks.Open("C:\nombreDeDocumento.xls")
Set xlsht = xlbk.Worksheets(1)
Set rs = Adodc2.Recordset
rs.MoveFirst
mLinea = 5 \'esta el # de tu linea en Excel
Do While Not xlsht.Cells(mLinea, 2) = "" \'esto es tu linea excel y tu columna 2
NumEmp = xlsht.Cells(mrow, 2)
mLinea= mLinea + 1
loop
MsgBox "Press Cancel en el mensaje MS Excel", , "Por Favor."
xlsht.Application.Quit
Set xlsht = Nothing
Set xlbk = Nothing
Set xlapp = Nothing
MsgBox "Empleados tranferidos al systema VB"
Tienes que agragar una libreria " Microsoft Excel Library"
ciao
Dim xlbk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbk = xlapp.Workbooks.Open("C:\nombreDeDocumento.xls")
Set xlsht = xlbk.Worksheets(1)
Set rs = Adodc2.Recordset
rs.MoveFirst
mLinea = 5 \'esta el # de tu linea en Excel
Do While Not xlsht.Cells(mLinea, 2) = "" \'esto es tu linea excel y tu columna 2
NumEmp = xlsht.Cells(mrow, 2)
mLinea= mLinea + 1
loop
MsgBox "Press Cancel en el mensaje MS Excel", , "Por Favor."
xlsht.Application.Quit
Set xlsht = Nothing
Set xlbk = Nothing
Set xlapp = Nothing
MsgBox "Empleados tranferidos al systema VB"
Tienes que agragar una libreria " Microsoft Excel Library"
ciao