主题：Excel报表中这样的表达式怎么写?

或者这样,比如"小计"在A6 :

...........

........

Wb.Sheets(1).range("A7").Value = Wb.Sheets(1).range("A7").Value & "万元"

..........

..........

这样可以满足:  用系统自带例子 Excel报表       哈哈,您的全攻略真好啊

Dim Book As New XLS.Book(ProjectPath & "Attachments\分组统计1.xls")
Book.Marks.Add("bj",123 & User.Name)
Book.Build()
Book.Save(ProjectPath & "reports\分组统计1.xls")

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\分组统计1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To Rg.Cells(Rg.Count).Row
    If Wb.Sheets(1).range("A" & i).Value Like "小计*"
        Wb.Sheets(1).range("G" & i).Value = Wb.Sheets(1).range("G" & i).Value & "元"
    End If
Next
Wb.Save
App.Visible = True

  
此主题相关图片如下：未命名.jpg