excel 中，怎么利用vba把文件另存为另一个文件名？

1、桌面上第一章中的每个工作簿名称放置到工作表中。

2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。

3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块。

4、使用do~~loop循环语句，在VBA中输入。

5、返回名为“第一章目录”的工作簿中，按alt+f8组合键，弹出宏对话框。

6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式即可。

实现的方法和详细的操作步骤如下：

1、首先，在桌面第一章中，每个工作簿的名称都放在工作表中，如下图所示，然后进入下一步。

2、其次，完成上述步骤后，创建一个新的工作簿，将其命名为“第一章目录”，然后按“alt  + f11”组合键打开“宏”界面，如下图所示，然后进入下一步。

3、接着，完成上述步骤后，在VBA中，单击“插入”按钮，然后选择“模块”选项以创建新模块，如下图所示，然后进入下一步。

4、然后，完成上述步骤后，输入如下红框中的代码，如下图所示，然后进入下一步。

5、随后，完成上述步骤后，返回到名为“第一章目录”的工作簿，然后按“alt  + f8”组合键调出“宏”对话框，如下图所示，然后进入下一步。

6、最后，完成上述步骤后，单击“宏”对话框中的“执行”按钮，“宏”对话框自动关闭，代码自动执行，即第一页中的每个文件夹名称都显示在sheet1中，可以根据需要调整格式，如下图所示。这样，问题就解决了。

实际我也不太了 解你要做什么，“财务部20110604”这个文件是固定的吗？只是要另存的文件是变化的？（和当前日期有关？）
参照下面的 代码。希望能给你提示

ub Macro1()
'
' Macro1 Macro
' 宏由 cnbubble 录制，时间: 2011-6-11
'

'
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\桌面\财务部20110604.xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\" & Format(Date, "MMDD") & ".xls"
ActiveWorkbook.Close
End Sub

代码如下：
Sub lqxs()
Dim NowWorkbook As Workbook
Dim FileName$, nm$
On Error GoTo line
Sheet1.Activate
nm = [a1].Value
[a1].CurrentRegion = [a1].CurrentRegion.Value
FileName = Application.GetSaveAsFilename _
(InitialFileName:="D:\" & nm, _
fileFilter:="Excel files(*.xls),*.xls,All files (*.*),*.*")
If FileName <> "False" Then
ThisWorkbook.SaveAs FileName
GoTo line
End If
Exit Sub
line:
ThisWorkbook.Close False
End Sub

注：nm为新的文件名，该段代码是将文件名放于A1单元格内的，保存在D盘根目录下，可根据实际情况作出修改。

你最后一段话是什么意思？ 是不是指的是自动判断当前日期，取其日期来生成文件名？还是说文件名就叫做：财务部20110604至0610.xls