主题：分享一个实用的小工具，导入excel表到内部数据表，导入前不用调整格式，3步直接导入。也可以合并EXCEL数据。非常实用，好用的顶一下

 另存为那一步多余，而且这样做，程序报错。

 另存为的时候，格式应该改成 MSExcel.XlFileFormat.xlExcel8

我要改成这样     Wb2.SaveAs( "c:\test.xls", FileFormat:=MSExcel.XlFileFormat.xlExcel8)

才能正常执行你的代码。

如果执行上面代码的时候，没有在WebBrowser显示Excel报表，而是在一个新的IE窗口显示，那么请双击Foxtable目录下的Office.reg文件，将其添加到注册表中。

加上

app3.DisplayAlerts = False

 回复14楼，不应该弹出那个对话框的。对话框截图看一下。

 只要你运行了 office.reg 就能正常显示word、excel

 你安装的是MS Office吗？确定不是 WPS？

 你另存为的，要保存成97-2003的格式

你把MS Office重装一下即可。

 回复21楼，这个是bug，换一种方式

Dim cmd As New SQLCommand

cmd.ConnectionName = "test"
Dim dt As DataTable
cmd.CommandText = "SELECT * From {服开更新状态表}"
dt = cmd.ExecuteReader()
e.Sender.ComboList = dt.GetComboListString("导入工单时间", "", "导入工单时间 Desc")