如题，这是我的代码：
  _CLIPTEXT=''
  KEYBOARD '{Ctrl+C}' CLEAR
  KEYBOARD '{Ctrl+F4}'
  cFieldName = aFldList[54, 1]  
  IF !EMPTY(&cFieldName)
    MODIFY GENERAL &cFieldName
    oExcel.ActiveSheet.Columns("F:IV").Select
    *oExcel.Selection.EntireColumn.Hidden = False
    oExcel.ActiveSheet.Cells(nn, 4).Select
    oExcel.Selection.RowHeight = 108
    oExcel.ActiveSheet.Paste  &&这句不行，出错
  ELSE
    oExcel.ActiveSheet.Cells(nn, 4).RowHeight = 14.25
  ENDIF

[ 本帖最后由 iamhyf 于 2010-1-7 11:39 编辑 ]

请各位老师帮帮忙，很急，在线等.....

自己解决：
oExcel.ActiveSheet.PasteSpecial("图片(增强型图元文件)",.F.,.F.)

跟着学习了