怎样能把Excel表格另存为指定文件名

文件--另存为--命名即可。

演示版本2007.操作步骤如下：

1. 点击文件

   

2. 找到另存为，选择保存为表格

   

3. 命名--保存
   

   

右键点击,任意工作表标签,查看代码
双击左上Thisworkbook
在右侧空白区域内,复制粘贴以下代码,然后关闭当前窗口
文件关闭后会自动存到"我的文档"下,文件名为日期加时间

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save

name1 = Format(Date, "mmdd") & Format(Time, "hhmmss") & ".xls"
ActiveWorkbook.SaveAs name1

ActiveWindow.Close
End Sub

把表样的扩展名改为“.xlt”（原表样应为“.xls”），这样原表样就改为模板文件了，双击打开后点保存就会要求另起名，不会覆盖原文件了。

Sub dd()
Dim Name As String, ss As String
Name = ThisWorkbook.FullName
If Mid(Name, Len(Name) - 3, 1) = "." Then
ss = Right(Name, 4)
Name = Left(Name, Len(Name) - 4)
ElseIf Mid(Name, Len(Name) - 4, 1) = "." Then
ss = Right(Name, 5)
Name = Left(Name, Len(Name) - 5)
End If
ThisWorkbook.SaveAs Name & " " & Date & ss
End Sub

直接点文件中的另存为选项，选择自己喜欢的文件名就可以了。