VBA另存为方法

Question

浏览论坛一个多小时后，我似乎无法弄清楚为什么我的另存为代码不起作用。

我的目标是在不同的文件类型下保存工作簿的新副本。（当前文件类型是 .csv。）我不想保存在新的或不同的位置，当前目录是我想要保存到的位置。

我已经尝试了比我记得的更多的以下代码的变体，所以我将发布我当前的语法：

CurrentDir = CurDir()

dateVal = Date

ActiveWorkbook.SaveAs Filename:="" & CurrentDir & "ALS Week of " & dateVal - 4 & ".xlsx", FileFormat:=51

我已经查看了如何打开一个对话框的示例，用户可以在其中输入信息以进行保存。但我希望采取一种不干涉的方法。如果有人能看到我的错误所在，请告诉我！

编辑： 我得到的错误是"Method 'SaveAs' of object '_Workbook' failed

Answer 1

您的日期中包含非法字符。用破折号而不是斜线格式化你的日期，这不会发生。

The following reserved characters:

    < (less than)
    > (greater than)
    : (colon)
    " (double quote)
    / (forward slash)
    \ (backslash)
    | (vertical bar or pipe)
    ? (question mark)
    * (asterisk)