以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何求得sheet工作表某列的位置？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92779)
--  作者：lmlptj
--  发布时间：2016/11/12 18:58:00
--  [求助]如何求得sheet工作表某列的位置？？
如题所求：
假如有一工作薄中一工作表中为sheet,得知其某标题行中有一列名为“姓名”，如何用代码找出“姓名”在sheet的数值列？

以下代码出错 ！
Dim book As new XLS.Book("d:\\23.xls")
Dim sheet As XLS.Sheet = book.Sheets(0)
Output.Show(sheet(0,sheet.Cols("姓名“）.Index )
--  作者：lmlptj
--  发布时间：2016/11/12 21:04:00
--  
已增加一辅助列解决！
--  作者：有点色
--  发布时间：2016/11/13 10:01:00
--  

 循环每一列比较。

 

Dim book As new XLS.Book("d:\\test.xls")
Dim sheet As XLS.Sheet = book.Sheets(0)
For i As Integer = 0 To sheet.Cols.count -1
    output.show(sheet(0, i).Text)
    If sheet(0, i).Text = "姓名" Then
        msgbox(i)
    End If
Next