主题：能否只导入部分列?

示列三

导入Excel文件：

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.xls" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()

 

最高指示是导入整个表,可以只导入部分列么?

理解错误,应该用合并数据

参考合并Access文件的用法,用对话框选定Excel文件合并数据:

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = "考勤机数据" '指定要合并的表
mg.DataTableName = "考勤机数据" '指定接收数据的表
mg.Merge() '

End If

 

下面这句不知道怎么改:

mg.SourceTableName = "考勤机数据" '指定要合并的表

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    Dim book As new XLS.Book(dlg.FileName)

    mg.Format = "excel" '指定格式

    mg.SourceTableName = book.Sheets(0).Name & "考勤机数据" '指定要合并的表

    mg.DataTableName = "考勤机数据" '指定接收数据的表

    mg.Merge() '   

End If

 

此主题相关图片如下：88.png

 

为什么表名多出"说明"两字,导致不能识别

用系统合并命令 

Syscmd.Table.QuickMerge()

偶尔能合并,有时不能,奇怪.

这太奇葩了:

从考勤机导出数据保存为EXCEL格式,用上面的代码合并到狐表,反复试了好多次,始终有一列的数据并不进去,没折,试着在那列的第一行输入一个数据,看结果,居然那列的所有数据并进去了,原来能并进去的其它列第一行均有数据,将手动输入的那个数据清除,再试,果然那列所有数据都并不进去了.

现在如果第一行无数据,以人工输入一个0的办法来解决问题.