以下是我编写的部分程序，功能是导入数据到数据表中，数据表名称为“物资信息",excel文件中的表名称为”物资信息“，其余表都已经删除，但是每次测试的时候都提示我找不到”物资信息“表，
在mg.SourceTableName =worksheet.Name 部分将等号后面改为”物资信息“后也是提示找不到，想知道这是为啥………………
是我的office没装对么？可问题是在用messagebox测试读取到的excel文件表名称时又是对的。 T,.T
Dim NewOp As New OpenFileDialog
newop.filter="Excel文件|*.xls"
newop.MultiSelect=False
newop.Title="选择导入物资信息文件"
newop.ShowDialog
If newop.FileName=""
Exit Sub
Else
Dim WorkBook As new XLS.Book(newop.FileName)
Dim worksheet As XLS.Sheet=workbook.sheets(0)
‘ messagebox.Show(worksheet.Name)
Dim mg As new merger
mg.SourcePath = newop.FileName
mg.Format ="Excel"
mg.SourceTableName =worksheet.Name ' 指定要合并的表
mg.DataTableName ="物资信息" '指定要接受数据的表
Dim i As Integer=0
For i=0 To Tables("物资信息").Rows.Count-1
Tables("物资信息").rows(0).Remove
Next
try
mg.merge()
catch ex As exception
messagebox.Show(ex.message)
Exit Sub
End try
end if
加好友 
发短信
Post By：2018/3/6 23:00:00 [只看该作者]
