请问怎么样能使保存的文件名为当前日期与文本相连接,在线等!!!

请问怎么样能使保存的文件名为当前日期与文本相连接

ActiveWorkbook.SaveAs Filename:="" & Format(Now(), "YYYY/MM") & ".xls"

我还需要插入一些文本,形成"2007-7销售分析"的样式,谢谢! --------------------编程问答-------------------- dim s as string 
s="销售分析"
ActiveWorkbook.SaveAs Filename:="" & Format(Now(), "YYYY-M") & s & ".xls" --------------------编程问答-------------------- ........................ --------------------编程问答-------------------- 半夜了，老马还在游荡.....................
也对，
马不吃夜草不肥.................
蚜虫爬累了，
睡觉
................................................
--------------------编程问答-------------------- dim s as string 
s="销售分析"
ActiveWorkbook.SaveAs Filename:="" & Format(Now(), "YYYY-M") & s & ".xls"

补充：VB ,  基础类