*为答谢CBl518、MOZ等老师和众多高手的指教，我将“用VF指令给Excel文档加边框和标题”的代码帖出来，供初学者参考，请老师和高手们指点完美代码。

DO editExcel with "Excel文档标题内容",GETFILE()   &&或直接指定路径代替GETFILE()  

 
PROCEDURE editExcel
 PARAMETERS jcd1,jcd2
  myeole=CREATEOBJECT("Excel.application")
  myeole.Workbooks.Open(jcd2) &&打开指定路径下的工作簿
  Ln="A1:"+STRTRAN(myeole.cells(myeole.activesheet.UsedRange.COLUMNS.COUNT).address(,.F.),"$") 
  myeole.ActiveSheet.UsedRange.Cells.select  &&选择数据区域
  myeole.selection.borders.lineStyle=9       &&外框选择双线
  myeole.Selection.Borders(11).LineStyle =1  &&选择表内横线型
  myeole.Selection.Borders(11).Weight = 2    &&线号
  myeole.Selection.Borders(12).LineStyle =1  &&选择表内竖线型
  myeole.Selection.Borders(12).Weight = 2    &&线号
  myeole.ActiveSheet.Rows(1).Insert          &&插入一行
  myeole.Rows("1:1").Select                  &&选择第一行第一列
  myeole.activesheet.range(ln).Merge    &&合并列
  myeole.ActiveCell.FormulaR1C1=JCD1         &&写入标题
  myeole.ActiveWindow.DisplayZeros = .F.     &&数据为零时不显示
 WITH myeole.ActiveCell.Font                 &&标题字体参数
      .FontStyle="粗体"
     .Name="黑体"
      .Size = 17
  ENDWITH 
  WITH myeole.activesheet.range(ln)
      .HorizontalAlignment = -4108           &&标题垂直具中
      .VerticalAlignment = -4108             &&标题水平具中
  ENDWITH
   myeole.ActiveWorkbook.close(.t.)           &&保存数据后关闭Excel
ENDPROC