加好友 发短信
等级:幼狐
帖子:71
积分:654
威望:0
精华:0
注册:2012/7/30 15:32:00
|
导入时要报错呢,求解 Post By:2013/3/29 9:49:00 [显示全部帖子]
Dim dlg As New OpenFileDialog dlg.Filter = "EXCEL文件|*.xls;*.xlsx" dlg.MultiSelect = False '允许选择多个文件 If dlg.ShowDialog =DialogResult.OK Then For Each fl As String In dlg.FileNames Dim mg As New Merger mg.SourcePath = fl mg.SourceTableName = "文档架构$" mg.DataTableName = "文档架构" mg.Merge() Next End If
|
|