主题：请教:如何在vfp中对excel表格进行合并单元格与插入行操作?
lingyg
[专家分：40] 发布于 2006-07-18 12:50:00
请教各位:如何在"vfp"中对"excel"表格进行"合并单元格"与"插入行"操作?
谢谢!
回复列表 （共8个回复）
沙发
mrtorney [专家分：1060] 发布于 2006-07-22 17:34:00
先用"錄制新巨集"的方式得到VBA代碼.再將之改寫成VFP格式.
板凳
lingyg [专家分：40] 发布于 2006-07-22 20:00:00
很惭愧,1楼老师的指点使我无法理解,是自已学的太小了.不过在此我说声谢谢!
希望1楼的老师能再次进入本话题讲解一下"vba"代码[em10]
3 楼
0901chang [专家分：10660] 发布于 2006-07-22 22:09:00
oleApp = CREATEOBJECT('Excel.Application')
oleApp.Workbooks.Add
tmp_坐标="A5:B6" && 坐标＝起始列字母＋行数字 ：截止列字母＋行数字
oleApp.Range(tmp_坐标).Select && 定义快 (5行A列到6行B列)
oleApp.Selection.HorizontalAlignment = 2 && 居左
oleApp.Selection.MergeCells = .t.
* 你可以在excel中，录制“新宏”，然后把它改成VFP的编程格式，如果是VB,就可以直接调用。
* 本论坛中有很多详细的资料。
4 楼
lingyg [专家分：40] 发布于 2006-07-23 05:56:00
非常感谢3楼老师的指点,祝您工作顺利!
5 楼
qeeyong [专家分：30] 发布于 2006-07-24 21:04:00
3楼之完善:
oleApp = CREATEOBJECT('Excel.Application')
oleApp.Workbooks.Add
*如是已存在的EXCEL文件,可以如oleApp.Workbooks.open "c:\ls\123.xls"
with oleApp.Workbooks(1).Sheets("Sheet1").Range("A5:B6")
.Selection.HorizontalAlignment = 2 && 居左
.Merge
endwith
oleApp.Workbooks(1).Sheets("Sheet1").rows(10).insert &&在第10行前插入一行
oleApp.Workbooks(1).close .t. &&关闭保存,如不保存.f.
oleApp.quit &&退出EXCEL
release oleApp
6 楼
lingyg [专家分：40] 发布于 2006-07-26 13:51:00
非常感谢5楼老师的帮助!同样祝您工作顺利!
7 楼
妙计山人 [专家分：130] 发布于 2009-08-21 17:57:00
出于软件开发需要，刚才在网上收索时发现了这些文字，非常感谢3楼和5楼的不吝赐教！同时还发现有这么好的一个网站，在此一并谢过！
8 楼
CJWANG [专家分：0] 发布于 2009-08-31 01:16:00
請問 1樓先進 mrtorney
以下是在EXECL录下的宏,用意在去除[枢纽分析]中<列>的合计,请问在VFP该怎么下指令,谢谢 !!
ActiveSheet.PivotTables（”数据透视表”）.PivotFields（”品名规格”）.Subtotals = Array（False, False, False, False, False, False, False, False, False, False, False, False）
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 请教:如何在vfp中对excel表格进行合并单元格与插入行操作?