以下是引用cha618在2016/4/22 10:29:00的发言：
谢谢
ip.SourcePath = dlg.FileName
ip.SourceTableName = sheet.Name & "$" '指定要导入的表
这两句后 如何获得第一行的列名
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim book As new XLS.Book(dlg.FileName)
For Each sheet As XLS.Sheet In book.Sheets
Dim Result As DialogResult
Result = MessageBox.Show("是否要导入" & sheet.name & "表", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For i As Integer = 0 To sheet.Cols.Count-1
msgbox(sheet(0,i).Text)
Next
Dim ip As New Importer
ip.SourcePath = dlg.FileName
ip.SourceTableName = sheet.Name & "$" '指定要导入的表
ip.NewTableName = sheet.name.trim() '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()
End If
Next
End If
加好友 
发短信
Post By：2016/4/22 10:29:00 [只看该作者]
