以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想给下面的条件加上一个条件。该怎么写呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42637)
--  作者：jinzhengbe
--  发布时间：2013/11/18 7:00:00
--  想给下面的条件加上一个条件。该怎么写呢？

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

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
--  作者：Bin
--  发布时间：2013/11/18 8:39:00
--  
请问加上什么条件?你不是本来就有条件判断了吗?
--  作者：狐狸爸爸
--  发布时间：2013/11/18 11:26:00
--  
我蒙下一下吧：
 
 FileSys.CopyFile("Reports\\1233.xlsx", "f:\\data\\" & CStr(Date.Today).replace("-","") & 录入人 & ".xlsx",True)