Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx" ‘--------------出现问题，同一张表，如果是保存.xlsx后缀的表导入正常，如果是.xls后缀的表就出现错误！！外部表不是预期的格式。’
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dtb As New DataTableBuilder("A表")
For i As Integer = 0 To sheet.cols.Count - 1
Output.Show(sheet(0,i).text)
If sheet(0,i).text > ""
dtb.AddDef(sheet(0,i).text, Gettype(String),255)
End If
Next
dtb.Build()
End If
加好友 
发短信
Post By：2020/12/18 13:14:00 [只看该作者]
