以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么获取导入文件的名称,并填入内部表中列?  (http://foxtable.net/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)