VFP中获得选定EXCEL区域的行列号

oxls=CREATEOBJECT("Excel.application") oxls.Visible=.t. oxls.Workbooks.Add ?oxls.Selection.address oxls.ActiveSheet.range("A2:h8").select ?oxls.Selection.address
Excel问题 | 2015-04-05 12:17 | 阅读 1919 次 | 评论 0 条

WAIT信息屏幕居中 函数

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 名称:WAIT信息屏幕居中 函数 * 作者:宋** * 公司:SYRSOFT(R) 上海 中国 * 声明:版权所有(C)宋** 保留所有权利 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 语法 MsgCent(cExpression [,nModel]) * 参数 * cExpression * 指定要显示的自定义信息。若省略...
其它问题 | 2015-04-01 00:35 | 阅读 1975 次 | 评论 0 条

两表结构相同,相同字段不同内容对比

* 该代码的前提是表结构相同,字段顺序相同,记录数相同,两表关键字段内容相同(同样适用关键字段内容不正确的情况,前提是记录顺序相同,这时用RECNO()作为索引关键字) clear create cursor tt (a1 c(10),a2 c(10),a3 c(10)) insert into tt values ("0001","abcd","aa") insert into tt values ("0002","abcd","ab") insert into tt values ("0003","abcd","ac") insert into tt v...

特殊文本文件的提取方法

说明:&T为一间店铺的开始,&P为一间店铺的结束,&L为一条记录的结束 Create Cursor TEST (Shopno C(10),Shopname C(30),Pos C(10),Card C(20),Amt N(10,2),Hkfee N(10,2),seq C(10),Date1 C(8) ,Time C(6)) nRow=ALines(AcStr,FileToStr("Wt.Txt"),1,Chr(13)+Chr(10)) For lnI=1 To nRow cStr=AcStr[lnI] ...

获取EXCEL某一工作表的页数

FileName=GetFile("Xls") If Empty(FileName) Return EndIf oExcel=CreateObject('Excel.application') oExcel.Workbooks.Open(FileName) oExcel.SHEETS(1).SELECT *oExcel.Worksheets("sheet1").Activate nPages=oExcel.ActiveSheet.HPageBreaks.Count+1 MessageBox(FileName+"共有 "+Transform(nPages)+" ...
Excel问题 | 2015-04-01 00:18 | 阅读 2093 次 | 评论 3 条
浏览389256次