#DEFINE xlShiftDown -4121
#DEFINE xlShiftToLeft -4159
#DEFINE xlShiftToRight -4161
#DEFINE xlShiftUp -4162

*** >Q.A to remove column "D"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .t.
oBook = oExcel.WorkBooks.Open("d:\Book1.xls")
oBook.ActiveSheet.Columns("D:D").Select
oExcel.Selection.Delete(xlShiftToLeft)

*** >Q.B to remove column "X" TO "AB"
*** In this case from Column C to Column AB
oBook.ActiveSheet.Columns("C:AB").Select
oExcel.Selection.Delete(xlShiftToLeft)
oExcel.Quit()
oExcel = NULL