以文本方式查看主题

-  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=185881)
--  作者：18523982317
--  发布时间：2023/3/22 21:42:00
--  excel报表报错
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(Nfile1)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1")
Dim Chr As MSExcel.Characters = Rg.Characters(5, str.Length - 4 - 11)
With Chr.Font
    .Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleSingle
End With
Rg = Ws.Range("A" & ri + 3)\'因为这种方式打开EXCEL  行数从1开始
Chr = Rg.Characters(3, str2.Length - 17 - pjtname.Length - str1.Length)
With Chr.Font
    .Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleSingle
End With
Dim Rg2 As MSExcel.Range = Ws.Range("A" & ri + 3)\'因为这种方式打开EXCEL  行数从1开始
Dim Chr2 As MSExcel.Characters = Rg2.Characters(2 + mgr.Value.Length + 17, str2.Length - mgr.Value.Length - 16 - str1.Length)
With Chr2.Font
    .Underline = MSExcel.XlUnderlineStyle.xlUnderlineStyleSingle
End With


excel报表我生成了，要在某个格子里面的两个部分文字加下划线，结果Rg2这段老是报错，未设置对象变量或 With 块变量。求解

Rg和Rg2都是对同一个格子，不同部分的内容进行下划线。。。第一次下划线没问题，第二次下划线就报错了
--  作者：有点蓝
--  发布时间：2023/3/23 8:44:00
--  
请上传实例测试
--  作者：18523982317
--  发布时间：2023/3/23 12:05:00
--  
左边是我做的测试项目，就没问题，右边是实际项目，第二个char就报错。。。搞不清楚为什么
--  作者：18523982317
--  发布时间：2023/3/23 12:06:00
--  
这是项目代码截图
--  作者：有点蓝
--  发布时间：2023/3/23 12:07:00
--  
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。