以文本方式查看主题

-  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=108173)
--  作者：zgjmost
--  发布时间：2017/10/17 17:53:00
--  [求助]怎么获取导入文件的名称，并填入内部表中列？
If dlg.ShowDialog = DialogResult.OK Then
    application.DoEvents
    Dim book  As new XLS.Book(dlg.FileName)
    Dim sheet1 As XLS.Sheet = book.Sheets(0)
    Dim bdm,bmc1,bmc,gzh,nd,zy,cc,xf,kcxz,kcid,kcmc,xh,fs,bx,dg As String
    StatusBar.Message1= "正在导入数据,请稍候"
    application.DoEvents

怎么获取导入文件的名称，并填入内部表中列？
--  作者：有点甜
--  发布时间：2017/10/17 20:00:00
--  

这个？ msgbox(dlg.filename)

 

这个？msgbox(sheet1.name)