回复 30楼 hu9jj
VFP6.0
oExcel = CreateObject("excel.application") &&创建 EXCEL 实例对象 With oExcel .Workbooks.Add && 增加一个工作薄 .Sheets("Sheet1").Select .Sheets("Sheet1").Name = "sample" && 改变SHEET名称 .Cells.Select && 全选工作簿 With .Selection.Font .Name = "宋体" .Size = 10 EndWith ENDWITH SELECT * FROM GZ INTO CURSOR TMP JLS=TRANSFORM(RECCOUNT()+1) oExcel.ActiveSheet.Rows(1).RowHeight=24 &&设置第1行至最后一行的高度 oExcel.ActiveSheet.Rows('2:&JLS').RowHeight=20 FOR I=1 TO FCOUNT() MFIELD=FIELD(I) OEXCEL.ActiveSheet.Columns(I).ColumnWidth=FSIZE(FIELD(I)) && 列的宽度(单位:字符个数) OEXCEL.Cells(1,I).Value=FIELD(I) && 设置单元格的值(可以是字符串变量,表字段名) OEXCEL.selection.HorizontalAlignment=3 FOR J=1 TO RECCOUNT() GO J OEXCEL.Cells(J+1,I).Value=&MFIELD ENDFOR ENDFOR OEXCEL.visible = .T. && 可见VFP导入EXCEL:这段代码虽然不怎么精练,也有一定的缺限,但不受打开的EXCEL影响,运行正常。