以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]读取EXCEL的一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41960)

--  作者:hiliuyong
--  发布时间:2013/10/31 11:34:00
--  [讨论]读取EXCEL的一个问题

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Cell As XLS.CEll = Sheet(3,2)   
    msgbox(cell.value)

End If

 

以上语句可以通过,但是现在我把Sheet(3,2)命名为“客户”

实现类似的语句

Dim Cell As XLS.CEll = Sheet(“客户”) 

但是这句行不通,求教大家该如何写?

 


--  作者:Bin
--  发布时间:2013/10/31 11:38:00
--  
呵呵,这个是根据指定坐标获取单元格, 是不可以根据单元格的值来获取的哦.
--  作者:hiliuyong
--  发布时间:2013/10/31 11:41:00
--  
BIN,不是值,是命名
--  作者:hiliuyong
--  发布时间:2013/10/31 11:44:00
--  

比如VBA中可以把CELL(1,1)命名为“客户”,调用的时候可以读取CELL(1,1)的值,也可以读取RANGE("客户")的值,

继续顶帖,求高人赐教!


--  作者:Bin
--  发布时间:2013/10/31 11:45:00
--  
目前 只能根据坐标获取吧.
--  作者:hiliuyong
--  发布时间:2013/10/31 11:48:00
--  
继续顶,应该是可以通过命名读取的,只是我不知道方法是什么?
--  作者:狐狸爸爸
--  发布时间:2013/10/31 11:49:00
--  

不可以的,要不你改用vba处理吧:

http://www.foxtable.com/help/topics/2121.htm