请教VB打印EXCEL报表时自动命名保存问题！

[wanstar11]

如题，在自动保存EXCEL时以姓名和时间为文件名，每张表的第一个单元格（B1）内容为不同的姓名，小弟只知道怎么用& Date &自动读取时间信息
ActiveWorkbook.SaveAs FileName:="d:\" & Date & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
不知如何在保存时自动读取单元格中的姓名信息，格式如下：张三2008-8-8.xls。
问题不难，望高人指教！谢了先~~~

[yachong]

ActiveWorkbook.Worksheets(1).Range("B1").Value

[andywiliang]

帮顶.................

------------------------------------------------------------
一万部免费在线电影网站
http://www.176969.cn

[ttjacky]

ActiveWorkbook.SaveAs FileName:="d:\" & Worksheets(1).Range("B1").Value & Date & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

[wanstar11]

谢谢各位！ 结贴