主题：excel报表事件编码求助

Dim tbrq As Date = Tables("蒋安出差").Current("出差起日期")

Select e.Book.TempLate

    Case "差旅费报销单"

        Select Case e.Book.CurrentSheetName

            Case "sheet1"

                MessageBox.show(1)

                'e.Book.Marks.Add("报销人",UserName)

                'e.Book.Marks.Add("用户名",UserName)

                e.Book.Marks("填报日期1")= tbrq

                

                e.Book.Marks("pg") = e.Book.Marks("pg") + 1

                

                e.Book.Marks("页码") = "第" & e.Book.Marks("pg") & "页"

        End Select

        '代码

End Select