主题：导入指定文件

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

 

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

 

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