以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel数据导入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=78686)
--  作者：lingyun00800
--  发布时间：2015/12/15 8:49:00
--  excel数据导入

这种格式的怎么导入

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:客户档案.xls

好几千分。怎么能一次导入啊。
--  作者：大红袍
--  发布时间：2015/12/15 9:20:00
--  

参考

 

http://www.foxtable.com/help/topics/2492.htm

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
    For i As Integer = 0 To sheet.rows.Count - 1
        If sheet(i, 0).Text Like "编号*" Then
            output.show(sheet(i+1,0).text)
            output.show(sheet(i+4,2).text)
        End If
    Next
End If