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

 
Vista:

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....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

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

Publicado por Fidel José (643 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:
1
2
3
4
5
6
7
8
9
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:
1
2
3
4
5
6
7
8
9
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
1
2
3
4
5
6
7
8
9
10
11
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar