另,这段代码的问题是
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "sheet1$" '指定要导入的表
ip.DataTableName ="序时账" '导入后的表名
ip.Import()
End If
导入为新表用的是 ip.NewTableName 不能指定导入的表吗?
难道只能是“合并”的方式到现有的表,而不能是导入?
看了会说明,明白了,DataTableName是合并的参数,不是Importer的参数
----------------------
帮助确实强大
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" '指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "sheet1$"
mg.DataTableName = "序时账"
mg.Merge()
End If
[此贴子已经被作者于2013-3-23 12:53:45编辑过]