Question

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

我是个Excel爱好者,常常要用Excel到做表格,有时需要Excel表样做表,做好后要另存为别的文件名才可以,如果不小心点了保存,把表样覆盖了,能否早Excel里做一个"按钮"(用宏,或其他什么都可),点击它就可以留存为指定文件名(指定文件名是表样文件名加Excel表里指定的时间,或其他也可).
谢谢各位大侠指点!

Answer 1

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

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

1. 点击文件

   

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

   

3. 命名--保存
   

   

Answer 2

右键点击,任意工作表标签,查看代码
双击左上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

Answer 3

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

Answer 4

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

Answer 5

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