2003，2007格式的EXCEL都可以用。
工作簿，通过窗口选择
要导入的工作表： "工作表名$"。
生产的内部表："XXX表"
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
'导入EXCEL数据--------------------------
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Importer
mg.SourcePath = dlg.FileName
mg.SourceTableName = "工作表名$"
mg.NewTableName = "XXX表"
If right(dlg.filename,4)=".xls" Then
mg.Format = "Excel" '入格式
Else
mg.Format = "Excel2007"
End If
mg.Import()
End If
'导入EXCEL数据---------------------------
加好友 
发短信
Post By：2020/6/6 17:04:00 [只看该作者]
