-- 作者:lrh9537
-- 发布时间:2014/6/12 17:26:00
-- 求助,EXCEL导入后数据丢失
报表做好了我把它导出EXCEL存到电脑上,现在要把一览表导入到Foxtable中,没有数字,还多了一行,怎么办?请帮忙改下
Dim ip As New Importer Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim mg As New Merger mg.SourcePath = dlg.FileName mg.Format = "excel" \'指定格式
mg.SourceTableName = "村级一览表2$" mg.DataTableName = "村级一览表2" mg.Merge()
End If 此主题相关图片如下:qq图片20140612172505.jpg
|