列名不能包含特殊符号。
可以使用代码把*号去掉再导。
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Cols.Count -1
Sheet(n,m).Value = Sheet(n,m).Value.replace("*","")
NextBook.Save(dlg.FileName)
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "Sheet1$"
mg.DataTableName = "销售单"
if dlg.FileName.endswith(".xls")
mg.Format = "excel" '指定格式
else
mg.Format = "excel2007" '指定格式
end if
mg.Fields(商品编码,商品名称,规格,单位,销售数量,销售金额,生产批号,生产日期,有效期至)
mg.Merge()
End If
加好友 
发短信
Post By：2025/5/4 13:21:00 [显示全部帖子]
