HB1.Selection.ShrinkToFit = .F. && ?? HB1.Selection.MergeCells = .T. && ??
HB1.Range(hbdygs).FormulaR1C1 = \请输入报表标题\HB1.Range(hbdygs).Characters.Font.Name = \隶书\HB1.Range(hbdygs).Characters.Font.FontStyle = \常规\
HB1.Range(hbdygs).Characters.Font.ColorIndex = 1 &&字符颜色 ***根据数据源表结构的宽度设置列的宽度******** Copy Stru Exte To temp\\term_stru Sele 0
Use temp\\term_stru Select (ctablename) For i=1 To nfieldcount cvalue=Allt(Field(i)) Select term_stru
Loca For Lower(Allt(field_name))==cvalue If Found()
columnname=Chr(i+64)+\
hb1.Columns(columnname).ColumnWidth=field_len Endif
Sele (ctablename) Endfor
Sele term_stru Use
activecellname=Chr(nfieldcount+64)+Allt(Str(nreccount+3)) *************设置数据区域的字体格式***************
HB1.Range(\宋体\HB1.Range(\HB1.Range(\hb1.Selection.BorderS(1).LineStyle = .T. hb1.Selection.BorderS(2).linestyle = .T. hb1.Selection.BorderS(3).linestyle = .T. hb1.Selection.BorderS(4).linestyle = .T. hb1.ActiveWorkbook.SaveAs(\hb1.Application.Visible=.T.
* HB1.ACTIVEWORKBOOK.SAVE &&自动保存数据 * HB1.ACTIVEWORKBOOK.CLOSE &&关闭当前工作簿 * HB1.QUIT
*!* 76．如何修改sheet工作表名： EFILENAME='D:\\TEST\\TEMPA.XLS' oExcel=Createobject(\oExcel.Workbooks.Open(\oExcel.Visible=.T.
oExcel.Worksheets(\
oExcel.Worksheets(\这里的NewSheet为新的名字。 *!* 77．复制Sheet工作表
EFILENAME='D:\\你的Excel表名.XLS' oExcel=Createobject(\oExcel.Workbooks.Open(\oExcel.Visible=.T.
oExcel.SHEETS(1).Select
oExcel.SHEETS(1).Copy(Null,oExcel.SHEETS(1)) &&&&把第1个工作表复制到第1个工作表之后
oExcel.SHEETS(2).Name='NewSheetName' &&设置第2个工作表名称
*!*oExcel.SHEETS(1).COPY(oExcel.SHEETS(1),NULL) &&&&把第1个工作表复制到第1个工作表之前