|
如何用VFP控制EXCEL表格 |
|
[2006年10月26日] 点击数:
1845
【字体：大 中 小】【双击滚屏】
|
|
例如：我想将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 单元格列宽和高度控制方法、以及其他更多的控制你都可以参照上面的方法实现。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. |
|
|
