VFP控制EXCEL的方法Word格式.docx
《VFP控制EXCEL的方法Word格式.docx》由会员分享，可在线阅读，更多相关《VFP控制EXCEL的方法Word格式.docx（15页珍藏版）》请在冰豆网上搜索。
oExl.ActiveSheet.PageSetup.LeftHeader="
9东莞市广众商贸有限公司表格"
oExl.ActiveSheet.PageSetup.CenterHeader="
"
oExl.ActiveSheet.PageSetup.RightHeader="
9"
oExl.ActiveSheet.PageSetup.LeftFooter="
oExl.ActiveSheet.PageSetup.CenterFooter="
9第&
P页,共&
N页"
oExl.ActiveSheet.PageSetup.RightFooter="
9制表人:
'
+cUser+'
制表时间:
+TTOC（DATETIME（））
整体格式设置
oExl.ActiveSheet.Rows.Font.Size=9
oExl.ActiveSheet.Rows.Font.Name='
宋体'
oExl.ActiveSheet.Rows.RowHeight=0.5/0.035
oExl.ActiveSheet.Rows.NumberFormatLocal="
0.00_;
[红色]-0.00"
oExl.ActiveSheet.Rows.VerticalAlignment=2&
单元格内容垂直居中
获取最大行号和最大列号
LocalnMaxRow,nMaxCol
nMaxRow=oExl.ActiveSheet.UsedRange.Rows.Count
nMaxCol=oExl.ActiveSheet.UsedRange.Columns.Count
表头格式设置
oExl.ActiveSheet.Rows
（1）.Font.Size=16
oExl.ActiveSheet.Rows
（1）.Font.Bold=.T.
oExl.ActiveSheet.Rows
（1）.RowHeight=1/0.035
oExl.ActiveSheet.Rows
（1）.HorizontalAlignment=3
oExl.ActiveSheet.Rows
（2）.HorizontalAlignment=3
oExl.ActiveSheet.Rows（3）.HorizontalAlignment=3
oExl.ActiveSheet.Rows（3）.Font.Bold=.T.
oExl.ActiveSheet.Range（'
A1:
+CHR（96+nMaxCol）+'
1'
）.Merge
A2:
2'
条件格式隐藏0值
oExl.ActiveSheet.UsedRange.FormatConditions.Delete
oExl.ActiveSheet.UsedRange.FormatConditions.Add（1,3,'
0'
oExl.ActiveSheet.UsedRange.FormatConditions
（1）.Font.ColorIndex=2&
文字白色
B1'
）.Interior.ColorIndex=6&
单元格底纹黄色
oExl.ActiveSheet.Columns.AutoFit&
自动列宽
oExl.ActiveSheet.Range（"
A3:
+CHR（96+nMaxCol）+ALLTRIM（STR（nMaxRow）））.Borders.Weight=2&
边框线
自动筛选
IF!
oExl.ActiveSheet.AutoFilterMode&
判断是否存在自动筛选
oExl.ActiveSheet.Rows（3）.Autofilter&
如果不存在自动筛选,则添加自动筛选
ENDIF
*------------------------------------------------------*
冻结窗格
D4'
）.Select
oExl.ActiveWindow.FreezePanes=.T.
分类汇总
LocalArry
（1）,nMaxRow,nMaxCol
Arry
（1）=5
+chr（96+nMaxCol）+alltrim（str（nMaxRow）））.Subtotal（2,-4157,@Arry,.T.,.F.,.T.）&
按第2列分类汇总数组Arry保存的列
1、对象的创建与关闭
*******************************
） &
创建Excel对象
oExl.SheetsInNewWorkbook=1&
新建工作簿默认包含工作表个数
oExl.Workbooks.Add &
新建工作簿,工作表个数由SheetsInNewWorkBooks属性指定
oExl.Workbooks.Open（cXLS,3,.T.） &
打开指定工作簿（更新链接/只读打开）
oExl.Workbooks.Open（cXLS,[UpdateLinks],[ReadOnly],[Format],[Password],[WriteResPassword],[IgnoreReadOnlyRecommended],[Origin],[Delimiter],[Editable],[Notify],[Converter],[AddToMru],[Local],[CorruptLoad]）
oExl.Worksheets（cSheet）.Activate &
激活工作表Sheet3
oExl.Worksheets（3）.Activate&
激活（从左到右）第3个工作表
oExl.WorkSheets.Count&
工作簿中工作表数
oExl.DefaultSaveFormat=39&
默认格式Excel5.0
oExl.DisplayAlerts=.F.&
不显示警告信息
oExl.Visible=.T. &
显示Excel窗口
oExl.Visible=.F. &
不显示Excel窗口
oExl.Caption="
Excel标题栏"
&
更改Excel标题栏
oExl.WorkSheet（"
Sheet2"
）.Range（"
A1"
）.PasteSpecial &
粘贴
oExl.Quit &
退出Excel
oExl.DisplayRecentFiles=.T.&
是否显示最近打开文档
oExl.RecentFiles.Maximum=4&
历史最大纪录数
oExl.UserName="
刘军"
&
用户名
oExl.StandardFont="
宋体"
&
标准字体
oExl.StandardFontSize="
12"
标准字体大小
oExl.DefaultFilePath="
D:
\Personal\"
&
默认工作目录
oExl.EnableSound=False&
声音反馈
oExl.RollZoom=False&
智能鼠标缩放
oExl.TransitionMenuKey="
/"
MicrosoftOfficeExcel菜单键
oExl.ActiveWorkbook.Password="
123"
oExl.ActiveWorkbook.WritePassword="
456"
oExl.ActiveWorkbook.ReadOnlyRecommended=False
oExl.ActiveWorkbook.SetPasswordEncryptionOptionsPasswordEncryptionProvider:
="
_
PasswordEncryptionAlgorithm:
OfficeStandard"
PasswordEncryptionKeyLength:
=40_
PasswordEncryptionFileProperties:
=False
IFoExl.ActiveWorkbook.FileFormat==39&
格式为Excel5.0工作簿
oExl.ActiveWorkBook.SaveAs（FileName,FileFormat,PassWord,WriteResPassWord,ReadOnlyRecommended,CreateBackup）
&
另存为
参数说明
FileName字符型,指定文件名
FileFormat数值型,文件格式
-4143MicrosoftOfficeExcel
11DBF4
39MicrosoftExcel5.0/95
43MicrosoftExcel97-Excel2003&
5.0/95
44网页Html文件
-4158文本文件（制表符分隔）
PassWord字符型,只读密码
WriteResPassWord字符型,写密码
ReadOnlyRecommended逻辑型,建议只读
CreateBackup逻辑型,自动备份
例如:
oExl.ActiveWorkBook.SaveAs（"
d:
\1.xls"
39）
oExl.ActiveWorkbook.saved=.T. &
放弃存盘
oExl.ActiveWorkbook.Save &
存盘（自动存盘不提问）
oExl.Workbooks.close &
关闭工作簿
3、单元格的设置
***********************************
条件格式设定
H18'
）.FormatConditions.Add（Type,Operator,Formula1,Formula2）
Type类型（1单元格数值,2公式）
Operator操作符（1介于,2不介于,3等于,4不等于,5大于,6小于,7大于等于,8小于等于）
Formula1表达式1
Formula2表达式2,操作符为1介于或2不介于才有效
条件格式例句:
数值为0者,文字颜色白色
编辑
oExl.ActiveSheet.UsedRange.Copy &
拷贝整个工作表
E2"
）.Copy &
拷贝指定区域
oExl.ActiveSheet.Columns（"
D"
）.Delete &
删除列
A:
B"
删除列
oExl.ActiveSheet.Rows
（1）.Insert &
在第1行之前插入一行
oExl.ActiveSheet.Columns
（2）.Insert &
在第2列之前插入一列
oExl.ActiveSheet.Cells（1,2）.Value="
ABTMC"
&
给单元格赋值
oExl.ActiveSheet.Cells（2,2）.Value="
BBBB"
oExl.ActiveSheet.Cells（1,4）.ClearContents &
清除单元格公式
oExl.ActiveSheet.Rows（18）.PageBreak=1 &
在第18行之前插入分页符
oExl.ActiveSheet.Columns（4）.PageBreak=0 &
在第4列之前删除分页符
oExl.ActiveSheet.Rows（3）.AutoFilter&
oExl.ActiveSheet.Cells（1,1）.Delete（-4159）&
删除单元格
-4159右边单元格左移
-4162下边单元格上移
oExl.Selection.EntireRow.Delete&
所在行整行删除
oExl.Selection.EntireColumn.Delete&
所在列整列删除
oExl.ActiveSheet.Cells（1,1）.Insert（-4142）&
插入单元格
-4142活动单元格下移
-4161活动单元格右移
oExl.ActiveSheet.Selection.EntireRow.Insert&
插入行
oExl.ActiveSheet.Selection.EntireColumn.Insert&
插入列
选择性粘贴
oExl.ActiveSheet.Selection.PasteSpecialPaste:
=xlPasteValues,Operation:
=xlNone,SkipBlanks:
=False,Transpose:
Paste粘贴数据:
8列宽,11公式和数值格式,12数值与数值格式,-4104全部,-4123公式,-4163数值,-4122格式,
Operation运算符:
-4142无,2加,3减,4乘,5除
SkipBlanks跳过空白单元:
逻辑型
Transpose转置:
--------------------------------------------------
排序
成功例句:
+CHR（96+nMaxCol）+ALLTRIM（STR（nMaxRow）））.Sort（oExl.ActiveSheet.Range（CHR（96+ASCAN（Arry,'
原币金额'
））+'
）,2,,,,,,1）
按"
原币金额"
所在列降序排列,有标题
oExl.ActiveSheet.Rows（'
1:
28'
）.Sort
Key1:
=Range（"
A2"
）,Order1:
=xlDescending,
Key2:
B2"
）,Order2:
=xlAscending,
Key3:
C2"
）,Order3:
Header:
=xlYes,
OrderCustom:
=6,
MatchCase:
=True,
Orientation:
=xlTopToBottom,
SortMethod:
=xlStroke,
DataOption1:
=xlSortNormal,
DataOption2:
DataOption3:
=xlSortNormal
参数说明:
2xlDescending降序
1xlAscenging升序
标题行:
0xlGuess
1xlYes,
2xlNo
1xlTopToBottom
排序方法:
1xlPinYin,
2xlStroke
0xlSortNormal
Key1排序字段:
取值类型是范围oExl.ActiveSheet.Range（'
B2'
Order1升序降序:
xlAscending=1升序,xlDescending=2降序
Header有无标题:
xlGuess=0自动判断,xlYes=1有,xlNo=2无
orderCustom排序顺序:
1普通,6日一二三
MatchCase是否区分大小写:
T区分,F不区分
Orientation1从头到底,2从左到右
SortMethod排序方法:
xlPinYin=1拼音,xlStroke=2字母
DataOption1xlSortNormal=0正常
DataOption2
DateOption3
LOCALArray
（1）
Array
（1）=5
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汇总结果显示在数据下方:
汇总结果表间切换
oExl.ActiveSheet.Outline.ShowLevelsRowLevels:
=2
=1
=3
数值格式设置
A"
）.NumberFormatLocal="
0.00"
&
指定区域内的数字显示格式
对齐设置
）.HorizontalAlignment=3 &
水平方向 2左对齐，3居中，4右对齐
oExl.ActiveSheet.UsedRange.VerticalAlignment=2 &
垂直方向 1靠上，2居中，3靠下
）.WrapText=.T.&
自动换行
）.Orientation=-4166&
文字方向
-4166垂直向下
）.AddIndent=False&
缩进
）.IndentLevel=2&
缩进2字符
oExl.Active
升级会员 