未指定错误，但如果您看到：

这意味着您试图将带有上述代码的工作簿保存为“XLS”（实际上，并不完全如此，请参见下文）--这意味着无宏格式。Excel会警告您将丢失代码。
还有一个问题--不管你编写的扩展名是什么，你都会将书保存为你所使用的Excel版本的default格式（对于2007和未来的版本，可能是XLSX或xlOpenXMLWorkbook，我有2007）。

解决方案：
1.若要避免第一个警告，请在运行宏之前将初始工作簿（即保存VBA代码的工作簿）保存为启用宏。
1.在保存方法中添加适当的格式描述--在您的情况下是FileFormat:=xlExcel8--这样您将得到真正的XLS。
1.还有一件事-为了避免aby兼容性警报时，保存文件为XLS，添加.CheckCompatibility = False之前保存。结果代码应该是smth如下：

Sub SaveToRelativePath()
    Dim relativePath As String, sname As String
    sname = ActiveWorkbook.Worksheets(1).Range("A1") & ".xls"
    relativePath = Application.ActiveWorkbook.Path & "\" & sname
    Application.DisplayAlerts = False
    ActiveWorkbook.CheckCompatibility = False
    ActiveWorkbook.SaveAs Filename:=relativePath, FileFormat:=xlExcel8
    Application.DisplayAlerts = True
End Sub

但是要小心-这样的构造会默默地覆盖任何现有的文件。希望这在某种程度上有帮助。