脸上汗管瘤:用VFP控制EXCEL表格

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