VFP全面控制EXCELWord格式文档下载.docx
《VFP全面控制EXCELWord格式文档下载.docx》由会员分享，可在线阅读，更多相关《VFP全面控制EXCELWord格式文档下载.docx（10页珍藏版）》请在冰点文库上搜索。
ActiveSheet.UsedRange。
Copy
拷贝整个工作表
ActiveSheet。
Range（"
A1：
E2”）。
＆拷贝指定区域
eole.WorkSheet（"
Sheet2”）。
Range（”A1"
）.PasteSpecial
＆粘贴
ActiveWorkbook.Save
存盘（自动存盘不提问）
Workbooks.close
＆＆关闭工作簿
quit
退出Excel
2、单元格的设置
*＊**＊*＊**＊*＊*＊＊***＊*＊*＊＊**＊＊*****＊*
eole.ActiveSheet。
Columns（”D：
D"
）.Delete
＆删除列
eole.ActiveSheet.Columns（”A：
B”）.Delete
＆删除列
eole.ActiveSheet.Columns
（1）。
ColumnWidth=20
列的宽度（单位：
字符个数）
Columns
（2）。
ColumnWidth=30
Columns（"
C：
BE"
）.ColumnWidth=9.5
Columns.AutoFit
最适合的列宽
Range（”b3:
d3”）。
Borders
（2）.Weight=3
指定边框线宽度
（其中Borders参数：
1－左、2－右、3－顶、4－底、5－斜、6－斜/；
LineStyle值：
1与7－细实、2－细虚、4－点虚、9－双细实线）
ActiveSheet.Range（"
BE29"
）.Borders
（1）.LineStyle=1＆&
设置四个边框线条的类型
Range（”A1:
）。
Borders
（2）。
LineStyle=1＆＆设置四个边框线条的类型
eole.ActiveSheet.Range（”A1：
）.Borders（3）。
LineStyle=1＆&
BE29”）.Borders（4）。
eole.ActiveSheet.Rows
（1）.Insert
＆在第1行之前插入一行
Columns
（2）.Insert
＆＆在第2列之前插入一列
eole.cells（1，2）。
value="
ABTMC"
＆给单元格赋值
cells（2，2）。
value=”＆BBBB"
＆＆给单元格赋值
eole.ActiveSheet.Cells（1,4）。
ClearContents
清除单元格公式
ActiveSheet.Rows
（1）。
RowHeight=1/0。
035
＆设置指定行的高度（单位：
磅）
*（行高为1厘米，1磅=0.035厘米）
ActiveSheet.ROWS
（1）。
Font.Name=”黑体"
＆设置字体
Font。
Size=14
设置字体大小
ActiveSheet.ROWS
（1）.Font。
Bold=。
t。
设置整行字体为粗体
eole.ActiveSheet.Cells（1，1）。
Italic=。
设置字体为斜体
Range（”A3：
BE3”）。
select
selection.WrapText=。
T.
＆＆自动换行
eole.selection。
HorizontalAlignment=3
＆水平方向 2左对齐，3居中，4右对齐
eole.selection.VerticalAlignment=2
＆垂直方向 1靠上 ，2居中,3靠下
eole.Range（”A2:
B2”）.select
MergeCells=。
T。
合并单元
HorizontalAlignment=2
＆水平方向 2左对齐，3居中,4右对齐
VerticalAlignment=2
垂直方向 1靠上 ,2居中，3靠下
A5：
M5”）。
Selection.Interior.ColorIndex=34
设置行颜色为[淡兰］
Range（”A1：
BE29”）.NumberFormatLocal=；
"
_*#,##0。
00_;
_*—＃，#＃0。
00_；
_*"
+"
-"
?
？
_;
_＠_"
＆指定区域内的数字显示格式
3、打印页面的设置
＊＊＊＊*＊***＊**＊＊＊＊＊＊＊＊*＊＊*＊＊*＊＊＊＊**
ActiveSheet.PageSetup.HeaderMargin=2/0。
设置页眉到顶端边距为2厘米
ActiveSheet.PageSetup。
FooterMargin=3/0.035
＆＆设置页脚到底边距为3厘米
PageSetup。
TopMargin=4/0.035
＆＆设置顶边距为4厘米
PageSetup.BottomMargin=4/0。
设置底边距为4厘米
PageSetup.LeftMargin=2/0.035
＆＆设置左边距为2厘米
PageSetup.RightMargin=2/0.035
＆＆设置右边距为2厘米
CenterHorizontally=.t.
设置页面水平居中
ActiveSheet.PageSetup.CenterVertically=。
设置页面垂直居中
PageSetup.PaperSize=8
设置页面纸张大小
（1－窄行851139－宽行1411）
eole.ActiveSheet.PageSetup.Orientation=2
横向
PrintTitleRows="
＄1：
＄3"
＆定义固定行
eole.ActiveSheet.PageSetup.PrintTitleColumns="
$A：
＄C”
定义固定列
eole.ActiveSheet.PageSetup.CenterHeader=”＆14&
BTMC"
设置页眉
CenterFooter=”表__第＆P页"
＆＆设置页脚
Worksheets（”Sheet1"
Rows（18）。
PageBreak=1
＆在第18行之前插入分页符
eole.ActiveSheet.Columns（4）。
PageBreak=0
在第4列之前删除分页符
PageSetup.PrintGridlines=.t.
打印单元格网线
ActiveSheet.PrintPreview
＆打印预览工作表
PrintOut
＆打印输出工作表
oExcel.ActiveSheet.PageSetup.Zoom=90＆&
缩放90％
4、记录条数的利用
***＊**＊＊*＊***＊＊*＊***＊＊***＊*＊＊****
一般来讲，EXCEL表的来源为DBF文件，列、行应该是可以预知的
USE111
COUNTTOAAA
USE
FWQ
="
A3：
M”+ALLT（STR（AAA+？
））
为EXCEL表插入的行数
eole.ActiveSheet.Range（FWQ）。
Borders
（1）.LineStyle=1
Range（FWQ）.Borders
（2）.LineStyle=1
＆设置四个边框线条的类型
Range（FWQ）.Borders（3）.LineStyle=1
＆＆设置四个边框线条的类型
Range（FWQ）.Borders（4）.LineStyle=1
5、VFP下直接调用EXCEL、WORD文件
**＊＊**＊＊＊＊＊*＊＊＊*＊*＊＊*＊*＊＊**＊＊****
DECLAREINTEGERShellExecuteINshell32。
DLLINTEGERHWND,STRING,;
STRINGlpszFile,STRING,STRING,INTEGER
operate=”open"
ShellExecute（0,operate,"
\111.XLS"
0，0，1）
EXCEL文件
ShellExecute（0,operate，”C:
\111。
DOC”，0,0，1）
＆WORD文件
*＊＊＊**＊*＊＊＊*＊＊＊*＊＊**＊**＊＊**＊*＊＊**＊＊＊＊*＊*
本文来自CSDN博客：
http：
//blog。
VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。
比如我们可以利用VFP进行处理数据,而利用Excel的预览打印功能进行报表打印。
这就需要我们在VFP中直接来控制Excel。
下面就在开发VFP应用项目时对Excel的控制作一下介绍：
＊!
＊1．创建Excel对象
oExcel=Createobject（"
Excel.application"
）
＊2．添加新工作簿
Add
＊！
＊3．设置第3个工作表为激活工作表
oExcel.Worksheets（"
sheet3”）。
Activate
＊4．打开指定工作簿
Workbooks.Open（”c：
\temp\ll。
＊5．显示Excel窗口
Visible=.T.
*！
*6．更改Excel标题栏
Caption=”VFP应用程序调用MicrosoftExcel"
*!
＊7．给单元格赋值
cells（1,4）.Value=XM（XM为数据库字段名）
＊8．设置指定列的宽度（单位：
ActiveSheet.Columns
（1）。
ColumnWidth=5
*9．设置指定行的高度（单位:
Rows
（1）.RowHeight=1
（设定行高为1磅,1磅=0。
035厘米）
oExcel.ActiveSheet。
Rows（"
50:
100"
RowHeight=1＆＆设置第50行至100行的高度
*10．在第18行之前插入分页符
Worksheets（"
Sheet1"
）.Rows（18）.PageBreak=1
＊11．在第4列之前删除分页符
Columns（4）.PageBreak=0
＊12．指定边框线宽度（Borders参数如下）
ole。
ActiveSheet.Range（”b3：
BorderS
（2）.Weight=3
＊13．设置四个边框线条的类型
oExcel.ActiveSheet.Range（"
b3:
BorderS
（2）.LineStyle=1
*14．设置页眉
oExcel.ActiveSheet.PageSetup。
CenterHeader="
报表1”
＊15．设置页眉（字体大小）
PageSetup.CenterHeader="
50报表1"
&
’＆'
后面的50可以自定义，表示字体的大小
*16．设置页脚
CenterFooter="
第＆P页"
*17.设置页脚（字体大小）
＆28第＆P页"
＆&
'
＆'
后面的28可以自定义，表示字体的大小
＊18．设置页眉到顶端边距为2厘米
HeaderMargin=2/0.035
＊19．设置页脚到底边距为3厘米
FooterMargin=3/0。
035
*20．设置顶边距为2厘米
ActiveSheet.PageSetup.TopMargin=2/0.035
＊21．设置底边距为4厘米
BottomMargin=4/0.035
＊22．设置左边距为2厘米
oExcel.ActiveSheet.PageSetup.LeftMargin=2/0。
*23．设置右边距为2厘米
PageSetup.RightMargin=2/0。
＊24．设置页面水平居中
CenterHorizontally=。
T.
*25．设置页面垂直居中
CenterVertically=。
*26．设置页面纸张大小（1－窄行851139－宽行14119：
A4）
ActiveSheet.PageSetup.Papersize=1
*27．打印单元格网线
PrintGridlines=。
＊28．拷贝整个工作表
Copy
*29．拷贝指定区域
E2"
*30．粘贴
WorkSheet（”Sheet2”）。
A1"
PasteSpecial
＊31．在第2行之前插入一行
Rows
（2）。
Insert
*32．在第2列之前插入一列
ActiveSheet.Columns
（2）。
＊33．设置字体
ActiveSheet.Cells（2，1）.Font。
Name=”黑体”
*34．设置字体大小
ActiveSheet.Cells（1,1）。
Size=25
*35．设置字体为斜体
oExcel.ActiveSheet.Cells（1，1）.Font。
＊36．设置整列字体为粗体
Columns
（1）.Font.Bold=。
＊37．清除单元格公式
Cells（1,4）.ClearContents
＊38．打印预览工作表
oExcel.ActiveSheet.PrintPreview
*39．打印输出工作表
PrintOut
＊40．oExcel。
CommandBars
（1）。
Controls
（1）.accChild（18）.Execute＆&
打印（菜单序号18为Excel2003的‘打印’项）
＆不同版本Excel的菜单序号可以通过以下程序取得
＊（需要在VFP7.0以上运行）
oXls=Getobject（"
，"
excel。
sheet”）
XlApp=oXLS。
Application
XlSheet=XlApp。
ActiveSheet
bars=xlapp。
CommandBars.Count
Str1=’’
Fori=1Tobars
Str1=Str1+Chr（13）+Alltrim（Str（i））+'
、'
+xlapp.CommandBars（i）.accName+’（NAME：
’+xlapp.CommandBars（i）。
Name+’INDEX：
+Alltrim（Str（xlapp.CommandBars（i）。
Index））+'
）'
bars2=mandbars（i）。
accChildCount
Forj=1Tobars2
Try
obj=mandbars（i）。
Controls（j）
Str1=Str1+Chr（13）+’’+Alltrim（Str（j））+'
+mandbars（i）。
Controls（j）。
accname+’（ID:
+Alltrim（Str（xlapp.CommandBars（i）.Controls（j）。
Id））+’）'
Fork=1Toobj。
IfNotEmpty（obj。
Controls（k）.accname）
Str1=Str1+Chr（13）+’’+Alltrim（Str（k））+'
+obj。
Controls（k）。
accName+'
（ID：
’+Alltrim（Str（obj。
Controls（k）.Id））+'
）’
升级会员 