DataOption3:=xlSortNormal
参数说明:
2 xlDescending降序 1 xlAscenging升序 标题行: 0 xlGuess 1 xlYes, 2 xlNo
1 xlTopToBottom 排序方法: 1 xlPinYin, 2 xlStroke
0 xlSortNormal Key1 Order1 Header orderCustom MatchCase Orientation SortMethod DataOption1 DataOption2 DateOption3
排序字段:取值类型是范围oExl.ActiveSheet.Range('B2') 升序降序:xlAscending=1升序,xlDescending=2降序 有无标题:xlGuess=0自动判断,xlYes=1有,xlNo=2无 排序顺序:1普通,6日一二三 是否区分大小写:T区分,F不区分 1从头到底,2从左到右 排序方法:xlPinYin=1拼音,xlStroke=2字母 xlSortNormal=0正常
&&分类汇总
LOCAL Array(1) Array(1)=5
oExl.ActiveSheet.Range('A1:G28').Subtotal(2,-4157,@Array,.T.,.F.,.T.) 参数列表:
GroupBy:=2, Function:=xlSum, TotalList:=Array(3), Replace:=True, PageBreaks:=False, SummaryBelowData:=True 参数说明: GroupBy 分组字段序号 Function 汇总方式:-4157求和,-4112计数 TotalList 汇总数据项:保存汇总列序号的数组引用 Replace 替换当前分类汇总:逻辑型,默认T PageBreaks 每组数据分页:逻辑型,默认F SummaryBelowData 汇总结果显示在数据下方:逻辑型,默认T &&汇总结果表间切换
oExl.ActiveSheet.Outline.ShowLevels RowLevels:=2 oExl.ActiveSheet.Outline.ShowLevels RowLevels:=1 oExl.ActiveSheet.Outline.ShowLevels RowLevels:=3 &&数值格式设置
oExl.ActiveSheet.Range(\ &&指定区域内的数字显示
格式
&&对齐设置
oExl.ActiveSheet.Range('A1:B1').HorizontalAlignment=3 &&水平方向 2左对齐，3居中，4右对齐
oExl.ActiveSheet.UsedRange.VerticalAlignment=2 &&垂直方向 1靠上，2居中，3靠下
oExl.ActiveSheet.Range('A1:B1').WrapText=.T. &&自动换行 oExl.ActiveSheet.Range('A1:B1').Orientation = -4166 &&文字方向 -4166 垂直向下
oExl.ActiveSheet.Range('A1:B1').AddIndent = False &&缩进 oExl.ActiveSheet.Range('A1:B1').IndentLevel = 2 &&缩进2字符 oExl.ActiveSheet.Range('A1:B1').ShrinkToFit = .T. &&缩小以填充 oExl.ActiveSheet.Range('A1:B1').ReadingOrder = -5002 &&文字阅读方向 -5002 根据内容 -5003 从左到右
oExl.selection.MergeCells=.T. &&合并单元
oExl.selection.HorizontalAlignment=2 &&水平方向 2左对齐，3居中，4右对齐
oExl.selection.VerticalAlignment=2 &&垂直方向 1靠上 ，2居中，3靠下 &&字体设置
oExl.ActiveSheet.ROWS(1).Font.Name=\黑体\ &&设置字体 oExl.ActiveSheet.ROWS(1).Font.FontStyle=\常规\
oExl.ActiveSheet.ROWS(1).Font.Size=14 &&设置字体大小 oExl.ActiveSheet.ROWS(1).Font.Bold=.T. &&设置整行字体为粗体 oExl.ActiveSheet.ROWS(1).Font.StrikeThrough=.T. &&删除线
oExl.ActiveSheet.Cells(1,1).Font.Italic=.T. &&设置字体为斜体 oExl.ActiveSheet.ROWS(1).Font.Superscript = .T. &&上标 oExl.ActiveSheet.ROWS(1).Font.Subscript = .T. &&下标 oExl.ActiveSheet.ROWS(1).Font.OutlineFont = False oExl.ActiveSheet.ROWS(1).Font.Shadow = False oExl.ActiveSheet.ROWS(1).Font.Underline = -4142 &&下划线 oExl.ActiveSheet.ROWS(1).Font.ColorIndex = -4105 &&字体颜色自动设置 oExl.ActiveSheet.ROWS(1).Font.Underline = 2 &&下划线类型 下划线类型 2 单下划线 &&边框设置
oExl.ActiveSheet.Range(\ &&指定边框线宽度 其中Borders参数：1－左、2－右、3－顶、4－底、5－斜\\、6－斜/；不带参数表示默认上下左右四个边框
LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
oExl.ActiveSheet.Range(\设置四个边框线条的类型 oExl.ActiveSheet.Range(\设置四个边框线条的类型 oExl.ActiveSheet.Range(\设置四个边框线条的类型
oExl.ActiveSheet.Range(\设置四个边框线条的类型 &&1 xlContinuous &&2 xlThin
&&5 xlDiagonalDown &&6 xlDiagonalUp &&10 xlEdgeRight
&&12 xlInsideHorizontal &&行列设置
oExl.ActiveSheet.Columns(1).ColumnWidth=20 &&列的宽度(单位：字符个数)
oExl.ActiveSheet.Columns(2).ColumnWidth=30
oExl.ActiveSheet.Columns(\
oExl.ActiveSheet.Columns.AutoFit &&最适合的列宽
oExl.ActiveSheet.Rows(1).RowHeight=1/0.035 &&设置指定行的高度(单位：磅)(行高为1厘米，1磅=0.035厘米)
oExl.ActiveSheet.Range('A1:B1').Interior.ColorIndex=nColorIndex &&设置底纹 常用颜色值ColorIndex 1 黑色 2 白色 3 红色 4 鲜绿 5 蓝色 6 黄色 7 粉红 8 青绿 9 深红 10 绿色 13 紫罗兰 15 灰-25% 34 浅青绿 36 浅黄 38 玫瑰红 39 淡紫 40 茶色 42 水绿 46 橙色 53 褐色 54 梅兰
oExl.ActiveSheet.Range('P3:P4').Orientation=-4166 &&文字方向垂直
&&同一工作簿中复制工作表副本
oExl.WorkSheets(1).Copy(oExl.ActiveWorkBook.Sheets(1))
&&不同工作簿
oExl.Sheets(1).copy(oExl.Workbooks(\
3、页面设置
***********************************************
oExl.ActiveSheet.PageSetup.TopMargin=2/0.035 &&设置顶边距 oExl.ActiveSheet.PageSetup.BottomMargin=1.5/0.035 &&设置底边距 oExl.ActiveSheet.PageSetup.LeftMargin=0 &&设置左边距 oExl.ActiveSheet.PageSetup.RightMargin=0 &&设置右边距 &&页眉页脚
oExl.ActiveSheet.PageSetup.HeaderMargin=1.5/0.035 &&设置页眉边距 oExl.ActiveSheet.PageSetup.FooterMargin=0.8/0.035 &&设置页脚边距 oExl.ActiveSheet.PageSetup.LeftHeader=\oExl.ActiveSheet.PageSetup.CenterHeader=\oExl.ActiveSheet.PageSetup.RightHeader=\oExl.ActiveSheet.PageSetup.LeftFooter=\
oExl.ActiveSheet.PageSetup.CenterFooter=\第&P页,共&N页\oExl.ActiveSheet.PageSetup.RightFooter=\制表人:xxx \&P页序号 &N页总数
&D日期,&T时间 &S删除线 &Y下标 &Z路径 &F文件 &A标签 &G图片 &X上标
&\隶属,倾斜\&9九号字体 &U下划线 &B粗体
&&左页眉图片设定
oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Filename=\oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Height = 45 oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Width = 11.25 oExl.ActiveSheet.PageSetup.LeftHeaderPicture.Brightness = 0.51
oExl.ActiveSheet.PageSetup.LeftHeaderPicture.ColorType = msoPictureGrayscale oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropBottom = 28.35 oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropLeft = 28.35 oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropRight = 28.35 oExl.ActiveSheet.PageSetup.LeftHeaderPicture.CropTop = 28.35
oExl.ActiveSheet.PageSetup.CenterHorizontally=.T. &&设置页面水平居中 oExl.ActiveSheet.PageSetup.CenterVertically=.T. &&设置页面垂直居中
&&设置页面纸张大小
oExl.ActiveSheet.PageSetup.Orientation=2 &&页面方向2表示横向 oExl.ActiveSheet.PageSetup.PaperSize=11 纸张大小: 9 A4 11 A5 70 A6
oExl.ActiveSheet.PageSetup.Draft=.T.
oExl.ActiveSheet.PageSetup.FirstPageNumber=1 oExl.ActiveSheet.PageSetup.Order=1
&&单色打印
oExl.ActiveSheet.PageSetup.BlackAndWhite=.T. oExl.ActiveSheet.PageSetup.PrintComments=-4142 oExl.ActiveSheet.PageSetup.Zoom=100 oExl.ActiveSheet.PageSetup.Zoom=.F. oExl.ActiveSheet.PageSetup.FitToPagesWide=1 oExl.ActiveSheet.PageSetup.FitToPagesTall=1 oExl.ActiveSheet.PageSetup.PrintHeadings=.T. oExl.ActiveSheet.PageSetup.PrintGridLines=.T. oExl.ActiveSheet.PageSetup.PrintErrors=
&&缩放100% &&禁用缩放 &&调整为一页宽 &&调整为一页高
oExl.ActiveSheet.PageSetup.PrintQuality=600 &&打印质量
oExl.ActiveSheet.PageSetup.PrintTitleRows=\ &&固定标题行 oExl.ActiveSheet.PageSetup.PrintTitleColumns=\ &&固定标题列 oExl.ActiveSheet.PageSetup.PrintGridlines=.T. &&打印单元格网线 ********************************************************* &&打印
oExl.ActiveSheet.PrintPreview &&打印预览工作表 oExl.ActiveSheet.PageSetup.PrintArea=\ &&设置打印区域 ActiveSheet.PageSetup.PrintArea = \ &&取消打印区域 ActiveWorkbook.WebPagePreview &&网页预览
oExl.ActiveSheet.PrintOut &&打印输出工作表
5、VFP下直接调用EXCEL、WORD文件
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING, STRING,INTEGER operate=\
ShellExecute(0,operate,\ &&EXCEL文件 ShellExecute(0,operate,\ &&WORD文件