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
如何做到?