主题：想给下面的条件加上一个条件。该怎么写呢？

想在下面的代码里面添加一个判断

if 录入人=aa  then  FileSys.CopyFile("Reports\1233.xlsx", "f:\data\"  & CStr(Date.Today).replace("-","") & "aa.xlsx",True)

else if  录入人=bb  then  FileSys.CopyFile("Reports\1233.xlsx", "f:\data\"  & CStr(Date.Today).replace("-","") & "bb.xlsx",True)

else FileSys.CopyFile("Reports\1233.xlsx", "f:\data\"  & CStr(Date.Today).replace("-","") & "cc.xlsx",True)

 

有哪位高人能够给指点一下就会非常非常感激了~~~~~

 

Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\1233.xlsx")
    '创建Excel文件对应的PDF文件
FileSys.CopyFile("Reports\1233.xlsx", "f:\data\"  & CStr(Date.Today).replace("-","") & "end.xlsx",True)
 '  wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "f:\data\"  & CStr(Date.Today).replace("-","") & "录入.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, True,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    App.quit

请问加上什么条件?你不是本来就有条件判断了吗?

我蒙下一下吧：
 
 FileSys.CopyFile("Reports\1233.xlsx", "f:\data\" & CStr(Date.Today).replace("-","") & 录入人 & ".xlsx",True)