[求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中,一直不成功。请问程序该怎么写 Post By:2017/8/7 12:08:00 [显示全部帖子]
Dim dlg As NewOpenFileDialog dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True
'允许选择多个文件 If
dlg.ShowDialog =DialogResult.OK Then For
Each fl As String In dlg.FileNames Dim
mg As NewMerger mg.SourcePath = fl mg.SourceTableName = "项目策划成绩" mg.DataTableName = "项目策划成绩" mg.Merge() Next End
If