主题：excel数据导入

参考

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