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都是对同一个格子，不同部分的内容进行下划线。。。第一次下划线没问题，第二次下划线就报错了
加好友 
发短信
Post By：2023/3/22 21:42:00 [只看该作者]
