Visual Basic - Ejecutable especial

Life is soft - evento anual de software empresarial
 
Vista:

Ejecutable especial

Publicado por Guillermo (1 intervención) el 05/06/2007 19:56:54
¿Se puede generar un ejecutable que tome un archivo cualquiera (por ejemplo de extensión DAT), y lo abra en una planilla excel?

La idea es que éste ejecutable tome los datos desde un archivo y los traspase a excel en línea.

Por favor ayuda en esto, me tiene muy preocupado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ejecutable especial

Publicado por El Kylix (14 intervenciones) el 08/06/2007 21:44:53
Hola Guillermo, lo que tienes que hacer es crear una intancia de Excel (usanddo automatización) luego solo tienes que navegar en el Modelo de Objeto de Excel

Public m_objXLSApp As Object
Public m_objXLSWks As Object

' Crea instacian de objetos de Excel
Set m_objXLSApp = CreateObject("Excel.Application")
' Abre tu archivo XLS
m_objXLSApp.Workbooks.Open ("c:\tu ruta a tu file\tu file.xls")

If Val(m_objXLSApp.Application.Version) >= 8 Then
Set m_objXLSWks = m_objXLSApp.ActiveSheet
Else
Set m_objXLSWks = m_objXLSApp
End If

' Escribiendo en tu archivo XLS
Range("C6").Select
With Selection.Font
.Bold = True
.Name = "Arial"
.Size = 10
.Underline = xlUnderlineStyleSingle
End With
ActiveCell.FormulaR1C1 = "INFORME SEMANAL DE ATENCIÓN DE REQUERIMIENTOS"

' Ver el archivo XLS
m_objXLSApp.Visible = True

' Libera recursos
Set m_objXLSWks = Nothing
Set m_objXLSApp = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar