Gurama
20 de Enero del 2004

Hola gente, como va espero que todo bien, bueno los molesto, porque necesito realizar una exportacion de datos a excel


saludos y gracias
Gustavo

Carlos Ramirez
20 de Enero del 2004

Dim objExcel5 As Object
Dim objLibro As Object
Dim strRuta As String

Set objExcel5 = CreateObject("Excel.Application")

Set objLibro = objExcel5.WorkBooks.Open(cmnd.FileName & cmnd.InitDir)

objLibro.Application.Visible = True

Dim c As Integer

For c = 1 To 2

objExcel5.Rows(1).Insert

Next