Cómo utilizar la programación de FoxPro para exportar datos a una tabla de Excel e importar registros a la tabla de Excel.
Usa VFP para controlar EXCEL
1. Crear objeto Excel
eole=CREATEOBJECT(′Excel.application′)
2. Agregar nuevo libro de trabajo
eole.Workbooks.add
3. Establezca la tercera hoja de trabajo como la hoja de trabajo activa
eole.Worksheets(〃sheet3〃).Activate
4. Abra el libro de trabajo especificado
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5. Mostrar la ventana de Excel
eole.visible=.t.
6. Cambiar la barra de título de Excel
eole.Caption=〃La aplicación VFP llama a Microsoft Excel〃
7. Asignar valores a las celdas
eole.cells(1,4).value=XM (XM es el nombre del campo de la base de datos)
8. Establezca el ancho de la columna especificada (unidad: número de caracteres)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9. Establezca la altura de la fila especificada (unidad: puntos)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(Establezca la altura de la fila en 1 cm, 1 punto = 0,035 cm)
10. Inserte un salto de página antes de la fila 18
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11. Eliminar salto de página antes de la columna 4
eole.ActiveSheet.Columns(4).PageBreak=0
12. Especifique el ancho de la línea del borde (los parámetros de los bordes son los siguientes)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13 . Establezca el tipo de cuatro líneas de borde
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(Parámetro de bordes: 1-left, 2-derecha, 3-arriba, 4-abajo, 5-oblicuos, 6-oblicuos/ valores de LineStyle: 1 y 7-sólidos delgados, 2-virtuales delgados, 4-puntos virtuales, 9-líneas continuas delgadas dobles)< / p>
14. Establecer el encabezado de la página
eole.ActiveSheet.PageSetup.CenterHeader=〃Report 1〃
15. Establecer pie de página
eole.ActiveSheet.PageSetup.CenterFooter=〃Page &P〃
16. Establezca el encabezado del margen superior en 2 cm
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17. Establezca el margen inferior del pie de página en 3 cm
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18. Establezca el margen superior en 2 cm
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19. Establece el margen inferior en 4 cm
eole.ActiveSheet.PageSet
up.BottomMargin=4/0.035
20． Establece el margen izquierdo en 2 cm
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21. Establece el margen derecho en 2 cm
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22. Configure la página para que esté centrada horizontalmente
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23. Configure la página para que esté centrada verticalmente
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24. Establezca el tamaño del papel de la página (1 fila estrecha 8?5?11 39 fila ancha 14?11)
eole.ActiveSheet.PageSetup.PaperSize=1
25. Imprimir líneas de cuadrícula de celdas eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26. Copia la hoja de trabajo completa
eole.ActiveSheet.UsedRange.Copy
27. Copia el rango especificado
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28. Pegar
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29. Insertar una fila antes de la fila 2
eole.ActiveSheet.Rows(2).Insert
30. Insertar una columna antes de la columna 2
eole.ActiveSheet.Columns(2).Insert
31. Establece la fuente
eole.ActiveSheet.Cells(2,1).Font.Name=〃Hellbody〃
32. Establecer tamaño de fuente
eole.ActiveSheet.Cells(1,1).Font.Size=25
33. Establezca la fuente en cursiva
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34. Establezca la fuente de toda la columna en negrita
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35. Borrar fórmula de celda
eole.ActiveSheet.Cells(1,4).ClearContents
36. Imprimir hoja de trabajo de vista previa
eole.ActiveSheet.PrintPreview
37. Imprime la hoja de trabajo
eole.ActiveSheet.PrintOut
38. La hoja de trabajo también es
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39. Abandonar el guardado
eole.ActiveWorkbook.saved=.t.
40. Cerrar el libro
eole.Workbooks.close
41. Salir de Excel
eole.quit