不是告诉过你怎么做了么?用代码导入
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
If dlg.ShowDialog = DialogResult.OK Then
For Each f As String In dlg.FileNames
Dim book As new XLS.Book(f)
For Each s As XLS.Sheet In book.Sheets
Dim ip As New Importer
ip.SourcePath = f
ip.SourceTableName = s.Name & "$"
ip.NewTableName = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")
ip.Format = "Excel"
ip.Import()
Next
Next
End If