以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  定义变量  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59426)
--  作者：发财
--  发布时间：2014/11/4 9:54:00
--  定义变量

If m>9 Then
    Dim f4 As String = "E:\\快盘\\excel" & y & "\\集团汇总" & y & m & ".xls" \'快盘本月集团汇总
Else
    Dim f4 As String = "E:\\快盘\\excel" & y & "\\集团汇总" & y & "0" & m & ".xls" \'快盘本月集团汇总
End If 

定义变量1至9月：集团汇总201401。。。。集团汇总201409

10月、11月、12月：集团汇总201410、集团汇总201411、集团汇总201412  

如何做到？

 
--  作者：Bin
--  发布时间：2014/11/4 10:02:00
--  
For i As Integer=1 To 12
  output.show("集团汇总2014" & Format(i,"00"))
Next
--  作者：发财
--  发布时间：2014/11/4 10:05:00
--  
    Dim f4 As String = "E:\\快盘\\excel" & y & "\\集团汇总" & y & Format(m,"00") & ".xls" \'快盘本月集团汇总
这样不行？
--  作者：发财
--  发布时间：2014/11/4 10:06:00
--  
这样是得过。
--  作者：Bin
--  发布时间：2014/11/4 10:07:00
--  
可以啊.