OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Office >> 编程相关 >> 正文
如何用VFP控制EXCEL表格
[2006年10月26日]  点击数: 【字体: 】【双击滚屏
 
    先在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中运行的代码
     主意,请在C盘根目录下事先建立BOOK1.XLS文件
     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
     单元格列宽和高度控制方法、以及其他更多的控制你都可以参照上面的方法实现。ET1").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.

我要提问
上一篇:使用VB实现Excel自动获取外部数据
下一篇:在Delphi中操作Excel
最新文章
在Word中使用AutoCAD图形10/27
VFP+Excel+SQLServer实例讲解10/26
谈Excel对象在VB中的使用10/26
Excel、Access、VB的结合应用10/26
在Delphi中操作Excel10/26
如何用VFP控制EXCEL表格10/26
使用VB实现Excel自动获取外部数据10/26
VFP中Excel格式的输入方法10/26
热门文章
相关文章
在Word中查找和替换指定的格式
如何在Word中高效选择录入表格
在Word中也可以对段落进行排序
Word表格也可自动填充
如何用Word实现在网上开会
如何用WORD来制用试卷“卷头”
金山表格2002与EXCEL使用对比
在Excel中打印单列表格的方法
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统