Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

ayuda codigo visual basic 6

Estas en el tema de ayuda codigo visual basic 6 en el foro de Visual Basic clásico en Foros del Web. hola tengo este simple codigo para insertar una fila en una excel ************************ Dim Appl2 As Excel.Application 'Declaracion de la aplicacion en excel Dim Libro2 ...
  #1 (permalink)  
Antiguo 05/05/2010, 09:47
Avatar de kakashi20  
Fecha de Ingreso: septiembre-2009
Mensajes: 616
Antigüedad: 14 años, 7 meses
Puntos: 15
Exclamación ayuda codigo visual basic 6

hola tengo este simple codigo para insertar una fila en una excel

************************
Dim Appl2 As Excel.Application 'Declaracion de la aplicacion en excel
Dim Libro2 As Excel.Workbook 'Declaracion del libro de excel
Dim Hoja2 As Excel.Worksheet 'Declaracion de la hoja de excel
Set Appl2 = New Excel.Application
Set Libro2 = Appl2.Workbooks.Open(App.Path & "\formato - BIANUAL.xls")

Appl2.DisplayAlerts = False

Set Hoja2 = Libro2.Worksheets(1)




Hoja2.Activate



Hoja2.Rows(1).Select 'pone fila blanco
Selection.EntireRow.Insert




Libro2.SaveAs FileName:= _
App.Path & "\CCT_Bianual.xls", FileFormat:= _
xlText, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Libro2.Close



MsgBox "Se ha generado el CCT Bianual"


**********************

pero no me inserta la fila, solo la inserta cuando reemplazo el codigo de

Libro2.SaveAs FileName:= _
App.Path & "\CCT_Bianual.xls", FileFormat:= _
xlText, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

por el de

Libro2.save

***************************

no se que pasa, si alguien me pudiese ayudar se lo agradeceria

Etiquetas: basic, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:04.