Try this out. I have done some extensive work with integration of VFP and office. Let me know if it works or not.

loExcel = CreateObject('Excel.Application')
loExcel.Workbooks.Add
loBook = loExcel.ActiveWorkBook
loSheet = loExcel.ActiveSheet
loExcel.Visible = .T.

* Populate My Sheet
B = 1
For A = 65 To 90
lcA1 = "A" + ALLTRIM(STR(B))
lc1A = CHR(A) + "1"
loExcel.Range(lc1A).Value = A
loExcel.Range(lcA1).Value = A
B = B + 1
NEXT


* Select My Range
loSheet.Range("A1:Z26").Select

* Copy My Range
loSheet.Range("A1:Z26").Copy

* Paste My Range
loExcel.Worksheets("Sheet3").Activate
loSheet3 = loExcel.ActiveSheet
loSheet3.Paste

Thanks
Darren