以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取EXEL文件中所有表标题名称。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46805)
--  作者：飞天
--  发布时间：2014/2/27 20:59:00
--  获取EXEL文件中所有表标题名称。

假如有一个EXCE文件，名称为\'Book1\'，\'Book1\'中有许多不同名称的表。

 

需要获取\'Book1\'中的表名称
--  作者：有点甜
--  发布时间：2014/2/27 21:08:00
--  
 如下代码

Dim Book As New XLS.Book("d:\\test.xls") 
For Each sheet As XLS.Sheet In book.Sheets
    msgbox(sheet.name)
Next
--  作者：czy
--  发布时间：2014/2/27 21:08:00
--  

帮助中有啊

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\\Book1.xls")
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
    Output.Show(Ws.Name)
Next
App.Quit
--  作者：飞天
--  发布时间：2014/2/27 21:29:00
--  获取EXCEL文件‘BOOK1'中所有表的每一行的第一个单元格数据
如何获取EXCEL文件‘BOOK1\'中所有表的每一行的第一个单元格数据
--  作者：有点甜
--  发布时间：2014/2/27 21:42:00
--  
Dim Book As New XLS.Book("d:\\test.xls") 
For Each sheet As XLS.Sheet In book.Sheets
    msgbox(sheet(0,0).Text)
Next