VFP操作Excel命令大全

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个工作表之前

>>閻忕偞娲栫槐鎴﹀礂閵婏附鐎�<<
12@gma联系客服:779662525#qq.com(#替换为@)