高手都到哪里去了?200分都没人要!!!
http://community.csdn.net/Expert/topic/5334/5334889.xml?temp=.4475824
[解决办法]
先将sheet的指定页码的内容复制下来，然后... ...
[解决办法]
先创建一个word或excel对象，然后用其page方法或sheets的count方法得到word的页数或excel的表单数量，然后再读取word或excel表单的content。
[解决办法]
Excel当前sheet总页数：
(1+ActiveSheet.HPageBreaks.Count) * (1+ActiveSheet.VPageBreaks.Count)
[解决办法]
先创建一个word或excel对象，然后用其page方法或sheets的count方法得到word的页数或excel的表单数量，再读取word或excel表单的content。
[解决办法]
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim XXX
Set xlApp = CreateObject( "Excel.Application ")
Set xlBook = Nothing
Set xlSheet = Nothing
set xlBook=xlApp.WorkBooks.Open( "C:\Templet\Table.xls ") '打开你的excel
msgbox xlBook.Worksheets.Count '这就是Excel里的sheet个数
'XXX= "sheet1 " or XXX= "sheet2 " or XXX=1 or XXX=2 ..
XXX=2
Set xlSheet = xlBook.Worksheets(XXX) '这里XXX就是你要指定的某个sheet可以是sheet的名字:默认是
"sheet1 "， "sheet2 ", "sheet3 "...也可以是数值:1，2，3...
xlSheet.Activate
'这里是取第二个sheet为当前活动的sheet表
