脸上毛孔粗大怎么治:如何用VFP控制EXCEL表格
来源:百度文库 编辑:九乡新闻网 时间:2024/05/02 07:56:13
如何用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中运行的代码
主意,请在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.
例如:我想将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.
如何用VFP控制EXCEL表格
用VFP控制EXCEL表格
如何用VC读取Excel表格中的数据
在VFP中全面控制Excel
Vfp控制Excel快速报表示例
VFP &&& EXCEL
如何用excel统计调查问卷
【新消息】 - 如何用键盘控制鼠标?
【两性】如何用腹内动作控制早泄?
EXCEL如何用填充柄填充数据
如何用excel统计调查问卷··
如何用excel统计调查问卷1
VFP与 EXCEL
如何用css控制input中的text和radio
夫妻卧室:如何用风水控制暗藏桃花
如何用Excel和银行对账(会计)
Excel表格
Excel表格
Excel表格
在VFP中直接来控制Excel2
**VFP与 EXCEL - 查询结果输出-很好
在VB中如何用API函数控制计算机的COM端口??
解决VFP中表格控件Grid的数据源刷新问题
Excel表格必学秘技