Bir bax :

oExl = CreateObject("Excel.Application")

WITH oExl
.WorkBooks.add
.DisplayAlerts =.F.
.DisplayFormulaBar = .T.
.ActiveWindow.DisplayGridLines =.F.

lSheets = .Sheets.Count

FOR lCount = 1 TO lSheets -1
.Sheets(1).Delete
ENDFOR

*WITH .Sheets(1)
* .Select
* .Name ="FA2"
ENDWITH

WITH oExl.parent

.Workbooks.Open(FULLPATH("C:\FA2.xls"))
*.Columns("A:P").AutoFit

*.range("A1").value="AAA"
*.range("B1").value="SSS "
*.range("C1").value ="DDD"
*.range("D1").value ="FFF"
*.range("E1").value ="GGG"
*.range("F1").value ="HHH"


*.Range("A1:P1").Interior.Color = RGB(243,254,199)
ENDWITH


* oExl.Range(oExl.Cells(1,7),oExl.Cells(1,16)).AutoFit=.T. && G1:L12
*oExl.Range(oExl.Cells(1,1),oExl.Cells(1,16)).HorizontalAlignment = 3
*oExl.Range(oExl.Cells(1,1),oExl.Cells(1,16)).VerticalAlignment = 2



#DEFINE xlThin 2
#DEFINE xlDiagonalDown 5
#DEFINE xlDiagonalUp 6
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeTop 8
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlInsideVertical 11
#DEFINE xlInsideHorizontal 12

LOCAL lRange
lRange = m.oExl.Range(m.oExl.Cells(7,7).Address+":"+m.oExl.Cells(50,18).Address)
lRange.Borders(xlEdgeLeft).Weight = xlThin
lRange.Borders(xlEdgeTop).Weight = xlThin
lRange.Borders(xlEdgeBottom).Weight = xlThin
lRange.Borders(xlEdgeRight).Weight = xlThin
lRange.Borders(xlInsideVertical).Weight = xlThin
lRange.Borders(xlInsideHorizontal).Weight = xlThin


WITH oExl.Cells()
.Font.Name = 'Times Latin'
.Font.Size = 10
.Font.Bold = .F.
.Font.Italic = .F.

ENDWITH


With oExl.ActiveSheet.PageSetup
.Orientation = 2
ENDWITH

oExl.Range(oExl.Cells(1,1),oExl.Cells(3,8)).HorizontalAlignment = 3
oExl.Range(oExl.Cells(1,1),oExl.Cells(3,8)).FONT.SIZE = 14
oExl.Range(oExl.Cells(1,1),oExl.Cells(3,8)).FONT.BOLD = .T.



SELECT FA2Exl
GO TOP
lRow =8
SCAN
oExl.Cells(lRow,1)= FA2Exl.AD
oExl.Cells(lRow,2)= FA2Exl.SAY
oExl.Cells(lRow,3)= FA2Exl.SAY_AKT
oExl.Cells(lRow,4)= FA2Exl.SAY_PAS
oExl.Cells(lRow,5)= FA2Exl.CEMI

lRow =lRow + 1
ENDSCAN



*DEFINE xlMinimized -4140
#DEFINE xlMaximized -4137
*#DEFINE xlNormal -4143
*oExl.WindowState = xlMinimized
*oExl.WindowState = xlNormal
oExl.WindowState = xlMaximized
*oExl.DisplayAlerts =.F.
*oExl.DisplayFormulaBar = .T.
*oExl.Version
*oExl.Cells(1,11).interior.Color = RGB(128,255,255)
*oExl.ActiveCell.Interior.ColorIndex = 56

*oExl.Visible = .T.
oExl.ActiveWorkBook.SaveAS ("C:\FA2")
oExl.Quit

E_mail -i ve ya ICQ-nin N-sini yaz.Burada oz dilimizde danishmaq yaxshi alinmaz.