用VFP控制EXCEL表格的具体实现方法
出处:网络

　　先在EXCEL中实现你所需要的操作内容，并将这些操作步骤用宏记录录制下来。
　　例如：我想将A1至H4单元格合并；在合并后的单元格内输入“你好，来自网上的朋友。”；调整字体为“隶书”；调整字体号为“28”；设置单元格内的文字水平方向居中；设置单元格内的文字垂直方向居中。
　　实现步骤：
启动EXCEL ，在“工具”栏中将鼠标移动到“宏(M)”，启动“录制新宏”，为宏起一个名字，单击“确定”按钮。（此时应出现一个“停止录制宏窗口”）
选中A1至H4区域，在区域中单击鼠标右键，单击“设置单元格格式”，单击“对齐”卡片，单击“合并单元格”，同时在此窗口中设置水平居中和垂直居中，输入文字，改变字体，改变字体号。
完成上述内容后，停止录制宏。
回到“工具”栏中将鼠标移动到“宏(M)”，启动“宏(M) ALT F8”
编辑刚才录制的宏，将所有的代码全部复制，粘贴到VFP程序中。

****以下是宏的原代码，它在VFP中是不能直接运行的，需要进行修改。
Sub 宏1()
' 宏1 宏表
' ssss记录的宏1999-6-11
Range("A1:H4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("A1:H4").Select
ActiveCell.FormulaR1C1 = "你好，来自网上的朋友。"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 28
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("H17").Select
End Sub
**以下是修改后能够在VFP中运行的代码
**主意，请在Ｃ盘根目录下事先建立ＢＯＯＫ１.ＸＬＳ文件
XLFILE="C:\BOOK1.XLS"
HB1=CREATEOBJECT("EXCEL.APPLICATION")
HB1.APPLICATION.VISIBLE=.T.
HB1.WORKBOOKS.OPEN("&XLFILE")
HB1.SHEETS("SHEET1").SELECT
HB1.Range("A1:H4").Select

HB1.Selection.HorizontalAlignment = 3 &&水平方向 2左对齐，3居中，4右对齐
HB1.Selection.VerticalAlignment = 2 &&垂直方向 1靠上，2居中，3靠下
HB1.Selection.WrapText = .F. && ??
HB1.Selection.Orientation = 0 && ??
HB1.Selection.AddIndent = .F. && ??
HB1.Selection.ShrinkToFit = .F. && ??
HB1.Selection.MergeCells = .T. && ??

HB1.Range("A1:H4").Select

HB1.ActiveCell.FormulaR1C1 = "你好，来自网上的朋友。"
HB1.ActiveCell.Characters.Font.Name = "隶书"
HB1.ActiveCell.Characters.Font.FontStyle = "常规"
HB1.ActiveCell.Characters.Font.Size = 28
HB1.ActiveCell.Characters.Font.Strikethrough = .F.
HB1.ActiveCell.Characters.Font.Superscript = .F.
HB1.ActiveCell.Characters.Font.Subscript = .F.
HB1.ActiveCell.Characters.Font.OutlineFont = .F.
HB1.ActiveCell.Characters.Font.Shadow = .F.
HB1.ActiveCell.Characters.Font.Underline = 2 &&下划线
HB1.ActiveCell.Characters.Font.ColorIndex = 3 &&字符颜色
HB1.Range("H17").Select
* HB1.ACTIVEWORKBOOK.SAVE &&自动保存数据
* HB1.ACTIVEWORKBOOK.CLOSE &&关闭当前工作簿
* HB1.QUIT &&关闭EXCEL
**单元格列宽和高度控制方法、以及其他更多的控制你都可以参照上面的方法实现。
本文来源： FoxPro Workshop 本文作者： 张向民(北京)

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明