以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中，一直不成功。请问程序该怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104866)
--  作者：kuerliumeng
--  发布时间：2017/8/7 12:08:00
--  [求助]想通过打开文件夹打开Excel文件导入窗口某个位置的表中，一直不成功。请问程序该怎么写

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文件导入窗口某个位置的表中，一直不成功。请问程序该怎么写
--  作者：有点甜
--  发布时间：2017/8/7 12:53: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.Format = "Excel"
        mg.SourcePath = fl
        mg.SourceTableName = "项目策划成绩$"
        mg.DataTableName = "项目策划成绩"
        mg.Merge()
    Next
End If