excel - VBA 另存为方法

Question

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

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

我尝试了以下代码的变体，比我记得的要多，所以我将发布我当前的语法:
CurrentDir = CurDir()dateVal = DateActiveWorkbook.SaveAs Filename:="" & CurrentDir & "ALS Week of " & dateVal - 4 & ".xlsx", FileFormat:=51
我查看了如何打开用户输入信息以保存的对话框的示例。但我希望采取一种不干涉的方法。如果有人能看到我的错误在哪里，请告诉我!

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

Answer 1

您的日期有 illegal characters在里面。用破折号而不是斜线格式化您的日期，这不会发生。

The following reserved characters:

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