Excel VBA,如何另存文件在固定路径，如C:\Documents and Settings，并且使文件名为“OF 当前日期”

Sub aa()
ThisWorkbook.SaveAs "C:\Documents and Settings\Administrator\My Documents\Downloads\" & "OFF" & Date & ".xls"
End Sub

追问

出现如图错误提示

追答Sub aa()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs "d:\" & "OFF" & Date & ".xls"
End Sub

刚刚那句也没有错，我都是测试过了；你用这个使下

本回答被提问者采纳

Sub test()
ThisWorkbook.SaveAs "C:\Documents and Settings\" & "OF" & Format(Date,"yyyymmdd") & ".xls"
End Sub

本回答被网友采纳

可用workbooks 的saveas 方法。。查看下帮助就好。。