以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么用用筛选器打开表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113685)

--  作者:k740395636
--  发布时间:2018/1/20 23:11:00
--  怎么用用筛选器打开表
老师,我这里想用筛选器导入excel表格,然后返回表格名称
找到的这个代码可以返回名称,但是不知道怎么导入表格,另外,可不可以一次按shift导入多个表格,数组返回多个名字

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 name As String = book.sheets(0).name
End If



--  作者:k740395636
--  发布时间:2018/1/21 12:39:00
--  
 恩。。老师,我发现我要打开的excel里面的表都叫sheet1,只有excel文件名不一样,能不能批量打开然后把表名改成文件名

--  作者:有点甜
--  发布时间:2018/1/21 22:25:00
--  

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113464&skin=0