FoxPro/Visual FoxPro - Como pegar una tabla de Excel a un libro de Excel desde VFP

Como pegar una tabla de Excel a un libro de Excel desde VFP

Publicado por Cinthia_Candy (1 intervención) el 03/07/2017 19:34:14

Hola a todos, la verdad es que soy nueva programando pero tengo un trabajo de automatizar un reporte, en el cual tengo este problemita, requiero copiar y pegar una tabla de excel de un libro a otro libro en la celda (5,9), pero no se como escribir la sentencia del paste...

Por favor, si alguien en el grupo pudiera apoyarme....

oExcel1 = CreateObject("Excel.Application")

oExcel1.Visible = .T.

oExcel1.DisplayAlerts = .F.

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

oExcel1.workbooks.open("D:\TMP\ant6_2016")

oExcel1.workbooks.open("D:\TMP\ant5_2016")

oExcel1.workbooks(2).activate

oExcel1.ActiveSheet.Range("A1:E104").select

oExcel1.ActiveSheet.Range("A1:E104").cells.select

oExcel1.selection.copy

oExcel1.workbooks(1).activate

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

*** DESEO PEGAR EL CUADRO DE ANT5_2016 EN ANT6_2016 EN LA CELDA (5,9)

oExcel1.ActiveSheet("W1").paste

Espero que se entienda...
Muchas gracias de antemano,

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

Como pegar una tabla de Excel a un libro de Excel desde VFP

Publicado por Fidel José (657 intervenciones) el 03/07/2017 23:04:30

Puedes ir probando en la ventana de comandos.
Un ejemplo para copiar un grupo de celdas a otra hoja del mismo libro:

lcFile = "c:\Users\Fidel\Documents\EET_LS_201706_liq.xlsx"

loExcel = NEWOBJECT("Excel.Application")

lobook = loExcel.Workbooks.Open(lcfile)

loSheet = loExcel.ActiveSheet

lRange = loSheet.Range("A4:Q94").Copy

loSheet2 = lobook.Sheets(2)

loSheet2.Range("A4").PasteSpecial(-4104)

loExcel.Visible = .t.

Para copiar de una hoja de un libro a la hoja de un libro nuevo:

lcFile = "c:\Users\Fidel\Documents\EET_LS_201706_liq.xlsx"

loExcel = NEWOBJECT("Excel.Application")

lobook = loExcel.Workbooks.Open(lcfile)

loSheet = loExcel.ActiveSheet

lRange = loSheet.Range("A4:Q94").Copy

loBook_new = loExcel.Workbooks.Add()

losheet_New = loBook_new.ActiveSheet

loSheet_New.Range("a4").PasteSpecial(-4104)

loExcel.Visible = .t.

Para copiar entre dos libros existentes

lcFile = "c:\Users\Fidel\Documents\EET_LS_201706_liq.xlsx"

lcFile2 = "c:\Users\Fidel\Documents\gex__4YB0WWUKX.xlsx"

loExcel = NEWOBJECT("Excel.Application")

loBook1 = loExcel.Workbooks.Open(lcfile)

loBook2 = loExcel.Workbooks.Open(lcfile2)

loSheet1 = loBook1.Sheets(1)

losheet1.Range("A4:Q94").Copy

losheet2 = loBook2.Sheets(2)

loSheet2.Range("A4").PasteSpecial(-4104)

loExcel.Visible = .t.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar