以下这段VFP代码只能打开OFFICE2003,请更改能打开OFFICE2007版本或以上版本,谢谢!
oExcel=CREATEOBJECT("Excel.application") && 打开Excel,产生OLE对象
oExcel.Visible=.f. && 置Excel可见
oExcel.Worksheets(oExcel.Sheets(1).name).Activate &&激活工作表
oExcel.Cells(1,1).Select &&选中第一个单元格
oExcel.Selection.AutoFilter &&关闭(如果无则打开)自动筛选
oExcel.ActiveSheet.Rows(2).Insert &&在第2行之前插入一行
oExcel.ActiveSheet.range("A2:AV2").Value="AAAAAAAAAAAA"
R=oExcel.SHEETS(1).UsedRange.Rows.Count &&有数据的总行数
C=oExcel.SHEETS(1).UsedRange.Columns.Count &&有数据的总列数
oExcel.Cells(R,C).Select &&选中数据
oExcel.Columns.AutoFit &&让所有的列宽都自动调整
oExcel.ActiveSheet.Columns(6).ColumnWidth=80
oExcel.ActiveSheet.Columns(25).ColumnWidth=120
oExcel.ActiveSheet.Columns(28).ColumnWidth=160
oExcel.ActiveSheet.Columns(30).ColumnWidth=120
oExcel.Cells.Select &&选择整张表
oExcel.Selection.Font.Size = 9 &&设置整表默认字体大小为9
oExcel.Selection.Font.Name="宋体"
oExcel.DisplayAlerts =.f. &&不显示提示框
AHS="A1:AV"+ALLTRIM(STR(R)) &&选中的列数
oExcel.ActiveSheet.range(AHS).select
oExcel.ActiveWorkbook.SaveAs("&LJM"+"&WJM"+".DBF",8) &&另存为DBF
oExcel.ActiveWorkbook.saved=.t. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量