oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .T.
oWorkBookT = oExcel.WorkBooks.Open("C:\AdminErrorCheck\Templates\family_headers.xls")
oRangeT = oExcel.ActiveSheet.Range("A1:DG1").Select
oExcel.Selection.Copy
*Activate and copy to the final report
oWorkBookF = oExcel.WorkBooks.Open("c:\marketing_target_ALL_customers.xls")
oExcel.Visible = .T.
oRangeF = oExcel.ActiveSheet.Range("A1:DG1").Select
oExcel.ActiveSheet.Past
|