>Hi,
>I have the following program code, and I want to insert a column between D and E, and set a formula in the inserted column,
>how to code it ?
>Please advise,
>
>Thanks
>
>

>oExcel = CREATEOBJECT([Excel.Application])
>oWorkbook = oExcel.Workbooks.open("C:\WTS\MID\WTS77XLS.XLS")
>oExcel.Visible = .t.
>oExcel.activesheet.Range("A1").value = "Client Code"
>oExcel.activesheet.Range("B1").value = "Client Name"
>oExcel.activesheet.Range("C1").value = "Invoice Date"
>oExcel.activesheet.Range("D1").value = "Invoice No."
>oExcel.activesheet.Range("E1").value = "Currency"
>oExcel.activesheet.Range("F1").value = "Invoice Amount"	
>

Did you try recording a macro and then translating the code from VBA to VFP?

See also Re: Excel VBA to INSERT columns Thread #1073561 Message #1073653