参考我这段代码,你应该用Merger,而不是Filler:
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
Dim Book As New XLS.Book(dlg.FileName)
Dim mg As New Merger
mg.Format = "Excel"
mg.SourcePath = dlg.FileName
mg.SourceTableName = book.Sheets(0).Name & "$" '指定数据来源
mg.Fields = "姓名,数学" '指定数据来源列
mg.DataTableName = "表B" '指定数据接收表
mg.Merge() '填充数据
End If
[此贴子已经被作者于2011-6-9 9:07:57编辑过]