>I just need a small code sample to do the following from VFP program: To create an Excel
>file with a single sheet, fill cells with some data from my dbf, apply colors and fonts
>to cells. Other features of Excel (like setting formulas) are not required. I do not
>want to use the command COPY TO .. TYPE XLS. Can anybody help me? Thanks in advance.
Hmm still it means a lot of versions of excel samples. Anyway this is a starter:
lcXLS = FullPath("formattest.csv")
USE customer
Copy To (m.lcXLS) type csv
oExcel = CreateObject("Excel.Application")
With oExcel
.Workbooks.Open(m.lcXLS)
.Visible = .T.
With .ActiveWorkbook.ActiveSheet.UsedRange
.Font.Size = 14
.Columns.Autofit
.Columns(1).Interior.ColorIndex = 15
endwith
endwithCetin
