主题：求助：如何测算EXCEL中“Sheet”的数目
妙计山人
[专家分：130] 发布于 2011-04-21 19:39:00
先行拜谢！
回复列表 （共3个回复）
沙发
妙计山人 [专家分：130] 发布于 2011-04-21 20:44:00
问题已经解决，多谢Sywzs先生的这个“一个把EXCEL转换为DBF的表单”宝帖！
板凳
妙计山人 [专家分：130] 发布于 2011-04-21 20:48:00
求算Excel的行、列及Sheet数目的语句如下：
Clear
Dcfl=Getfile("xls")
XlApp=CreateObject("Excel.Application")
XLApp.Visible=.F.
XlApp.WorkBooks.Open(Dcfl)
nSt=XlApp.WorkSheets.Count
XlApp.WorkSheets(1).Activate
nR=XlApp.SHEETS(1).Range("A65536").End(-4162).Row
nC=XlApp.SHEETS(1).UsedRange.Columns.Count
? nSt
? nR
? nC
XlApp.Quit
3 楼
sywzs [专家分：5650] 发布于 2011-04-24 11:13:00
此贴能对楼主有所帮助，我感到很欣慰。
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 求助：如何测算EXCEL中“Sheet”的数目