再问下,我的是用wps保存的,是不是始终成在这个问题,原来用Dim xwj As new OpenFileDialogDim str As String
Dim value() As String
xwj.Filter="Excel文件(*.xls)|*.xls"
If xwj.ShowDialog=DialogResult.Ok Then
Dim zy As new Merger
DataTables("比例计算").DeleteFor("")
zy.SourcePath=xwj.FileName
str=xwj.FileName
value=str.Split("\")
str=Value(value.length-1)
str=str.SubString(0,str.length-4)
zy.SourceTableName=str+"$"
zy.Fields="数量,采购价,通用名,基药类别,采购类别,招标单元信息,配送企业"
zy.DataTableName="比例计算"
zy.Format="Excel"
zy.Merge()
End If
这个方式不存在这个情况,我用wps保存都不行,只能用excel保存了才可以
[此贴子已经被作者于2019/9/26 16:17:25编辑过]