主题：[求助]我这段代码是查找excel中标签的但是执行不进去呀

 Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim ii As Integer = 0 
Dim Rg As MSExcel.Range
Dim rn As Integer = 1
For rn = 1 To 100
    For j As Integer = 1 To 100
        Rg = Ws.Cells(rn,j)

        If Rg.text = "<End>"   
            ii = ii + 1
            MessageBox.Show(ii)
        End If
        If ii=2
            Exit For
        End If
    Next
    If ii=2
        Exit For
    End If
Next
Ws.Rows(rn+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual

以上代码 ii根本执行不进去，执行一次 要几分钟，清帮我看看 谢谢

''''''''''''''''''''''代码

。。。我想实现这样的功能，比如通过模板生产文件A1.xls.。。。。A100.xsl，每生产一个文件A*.xls导入到一个Aall.xsl总文件，每次导入都在之前的后面一页插入，

导入结束，用Aall.xsl生产pdf文件

我只能一个记录一个模板 组合起来 生产文件 在插入一个总文件

这个Paste参数常量在哪呢 我要设置 全部内容粘贴

还有pdf 能向后添加单页吗

我找了资料这样设置列宽  有一些效果 但是 还是不一样呀，总是差一些列宽有时候差 0.5，有时候差0.3

For j As Integer = 1 To Rg.columns.count   ''设置宽度
    rg_pdf.Columns(j).ColumnWidth = Rg.Columns(j).ColumnWidth 
Next

 

 For j As Integer = 1 To Rg.columns.count   ''设置宽度
    rg_pdf.Columns(j).ColumnWidth = Rg.Columns(j).ColumnWidth 
    MessageBox.Show(rg_pdf.Columns(j).ColumnWidth & ":" & Rg.Columns(j).ColumnWidth )
Next

我加了这句话 弹出来都不一样 ，差那么一点 1.75:1.71    2.5:2.43 什么的