beforeBuild事件
Select e.Book.TempLate Case "订单" Dim sheet = e.Book.Sheets(0) For i As Integer = 0 To sheet.Rows.count-1 For j As Integer = 0 To sheet.Cols.Count-1 sheet(i,j).value = sheet(i,j).text.replace("[金额]", "") Next NextEnd Select