Modificar Excel ya existente desde FOX
Alonso, que tal nuevamente solicitando tu ayuda, queria saber si es posible modificar el formato de algunas filas o columnas de un archivo de excel ya existente desde fox, como por ejemplo poner la primera fila en negrita o cambiar el tipo y tamaño de font. De antemano gracias por tu ayuda.
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Si, es posible estas son algunas de las configuraciones de ejemplo:
MsExcel = Createobject("Excel.Application")
If Type("MsExcel") = "O" Then
MsExcel.Visible = .T.
MsExcel.Workbooks.Add()
MsExcel.Worksheets(1).Name = "Visual FoxPro"
WkpGxtab = MsExcel.ActiveSheet
WkpGxtab = MsExcel.ActiveSheet
With WkpGxtab.Range(WkpGxtab.Cells(3,1), WkpGxtab.Cells(3,4))
.Borders.LineStyle = 7
.Borders(1).Weight = 3
.Borders(2).Weight = 3
.Borders(3).Weight = 3
.Borders(4).Weight = 3
.Font.Name = "Arial"
.Font.Size = 8
.Font.Bold = .T.
.Font.ColorIndex = 5
.Interior.ColorIndex = 4
.HorizontalAlignment = 3
.VerticalAlignment = 2
Endwith
Endif
Esto puede servirte de ayuda.
MsExcel = Createobject("Excel.Application")
If Type("MsExcel") = "O" Then
MsExcel.Visible = .T.
MsExcel.Workbooks.Add()
MsExcel.Worksheets(1).Name = "Visual FoxPro"
WkpGxtab = MsExcel.ActiveSheet
WkpGxtab = MsExcel.ActiveSheet
With WkpGxtab.Range(WkpGxtab.Cells(3,1), WkpGxtab.Cells(3,4))
.Borders.LineStyle = 7
.Borders(1).Weight = 3
.Borders(2).Weight = 3
.Borders(3).Weight = 3
.Borders(4).Weight = 3
.Font.Name = "Arial"
.Font.Size = 8
.Font.Bold = .T.
.Font.ColorIndex = 5
.Interior.ColorIndex = 4
.HorizontalAlignment = 3
.VerticalAlignment = 2
Endwith
Endif
Esto puede servirte de ayuda.
