Foxtable(狐表)用户栏目专家坐堂 → [求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中,一直不成功。请问程序该怎么写


  共有1578人关注过本帖树形打印复制链接

主题:[求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中,一直不成功。请问程序该怎么写

美女呀,离线,留言给我吧!
kuerliumeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:76 威望:0 精华:0 注册:2017/8/7 12:02:00
[求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中,一直不成功。请问程序该怎么写  发帖心情 Post By:2017/8/7 12:08:00 [显示全部帖子]

Dim dlg As New OpenFileDialog
dlg
.Filter = "Excel文件|*.xls"

dlg.MultiSelect = True '允许选择多个文件
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


想通过打开文件夹打开Excel文件导入窗口某个位置的表中,一直不成功。请问程序该怎么写


 回到顶部