主题：选择excel文件 删除指定行与列 并新增列与赋值 然后怎么合并到狐表中呢？

选择excel文件  删除指定行与列 并新增列与赋值  然后怎么合并到狐表中呢？

当前代码如下：

If FileSys.DirectoryExists("C:\MyFolder") Then '如果目录C:\MyFolder存在
    FileSys.DeleteDirectory("C:\MyFolder",2,3) '则删除之
Else
    FileSys.CreateDirectory("C:\MyFolder")
End If
If FileSys.DirectoryExists("C:\MyFolder1") Then '如果目录C:\MyFolder存在
    FileSys.DeleteDirectory("C:\MyFolder1",2,3) '则删除之
Else
    FileSys.CreateDirectory("C:\MyFolder1")
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "excel文件|*.xls;*.xlsx"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim Book As New XLS.Book(fl) '定义一个Excel工作簿
        Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
        Output.Show(Sheet.Rows.Count)
        Sheet.Rows.RemoveAt(2) '在最前面插入一行
        Sheet.Rows.RemoveAt(0) '在最前面插入一行
        'Sheet.Cols.RemoveAt(0) '在最前面插入一列
        Sheet.Cols.Insert(0)
        Sheet.Cols.Insert(0)
        Dim f2 As String ="C:\MyFolder\test.xlsx"
        Book.Save(f2)
        Dim bm As String
        Dim f3 As String ="C:\MyFolder1\test.xlsx"
        Dim App As New MSExcel.Application
        try
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f2)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
            Dim s1 As String =FileSys.GetName(fl)
            Dim s2 As String
            Dim s3 As String
            s2 = s1.SubString(0,4)
            s3 = s1.SubString(4,2)
            Output.Show("s2 = " & s2)
            Output.Show("s3 = " & s3)
           
            Dim Values() As String
            Values = s1.Split(".")
            For Index As Integer = 0 To Values.Length - 1
                bm=Values(0)
            Next
            Ws.Name = bm
           
            Dim Rg As MSExcel.Range
            For i As Integer = 1 To Sheet.Rows.Count
                Rg = Ws.Cells(i,1)
                Rg.Value = s2
                Rg = Ws.Cells(i,2)
                Rg.Value = s3
            Next
           
            Wb.SaveAs(f3)
            App.Visible = False
           
        catch ex As exception
           
        finally
            app.quit
        End try
        Dim mg As New Merger
        mg.SourcePath = f3
        mg.Format = "excel" '指定格式
        mg.SourceTableName = bm & "$"
        mg.DataTableName = "表C"
        mg.Merge()
    Next
End If '

红色部分代码合并失败，导入的数据为空，但是有新增行……