以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入指定文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135886)
--  作者：zhuxinhui
--  发布时间：2019/6/5 19:06:00
--  导入指定文件
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
  ip.SourcePath = dlg.FileName \'指定数据文件
   Dim IP As NEW xls.book("dlg.FileName ")
   For l As Integer = 0 To 7 \'Book.Sheets.Count()
     Dim Sheet As xls.Sheet = IP.Sheets(l)
     For i As Integer = 1 To Sheet.Rows.Count-1
        Dim dr As Row = Tables("现金银行").AddNew()
        dr("日期") = sheet(i,0).text       \'日期
        dr("收入") = sheet(i,1).text       \'收入
        dr("支出") = sheet(i,2).text       \'支出
        dr("对方帐户") = sheet(i,4).text   \'对方帐户
        dr("摘要") = sheet(i,5).text       \'摘要
        dr("科目编码") = sheet(i,6).text   \'对方科目
        dr("科目") = sheet(i,7).text       \'科目
        dr("往来编号") = sheet(i,8).text       \'科目
        dr("类别名称") = sheet.name   \'类别名称
     Next
   Next
End If

指定文件下面句该应该是错了
Dim IP As NEW xls.book("dlg.FileName ")
还有就中保存到指定文件夹又要怎样写
--  作者：有点甜
--  发布时间：2019/6/5 20:24:00
--  

 

Dim IP As NEW xls.book(dlg.FileName)

 

http://www.foxtable.com/webhelp/scr/0359.htm