Ошибка добавления даты в Excel в формате имени файла - PullRequest
0 голосов
/ 07 декабря 2018

Я пытаюсь использовать макрос VBA, чтобы сохранить лист и добавить текущую дату к имени файла.Я продолжаю получать Ошибка компиляции: неверное количество аргументов или неправильное присвоение свойства , но я не вижу, чем код, который я использую, отличается от предложенного кода, который я нашел в Интернете для добавления даты вимя файла.

Sub archciveWIPfile()

    Sheets("WIP").Select
    Sheets("WIP").Copy

    ChDir "X:\VW\WIP Files\currentMonth"
    ActiveWorkbook.SaveAs ("X:\VW\WIP Files\currentMonth\WIP " & Format(Date, 
    "DD-MMM-YYYY") & ".xlsx")
    ActiveWindow.Close

End Sub

1 Ответ

0 голосов
/ 07 декабря 2018

Скобки или разрыв строки

ActiveWorkbook.SaveAs "..." без скобок ().

Разрыв строки должен иметь один SPACEи один UNDERSCORE: ' _'.

Sub archciveWIPfile()
  Sheets("WIP").Select
  Sheets("WIP").Copy
  ChDir "X:\VW\WIP Files\currentMonth"
  ActiveWorkbook.SaveAs "X:\VW\WIP Files\currentMonth\WIP " _
      & Format(Date, "DD-MMM-YYYY") & ".xlsx"
  ActiveWindow.Close
End Sub

РЕДАКТИРОВАТЬ:

Как BruceWayne заметил, что аргументы SaveAs могут бытьв скобках (я только никогда не использую их как это).Извините за дезинформацию.Но пропущенный разрыв строки определенно вызывает ошибку компиляции.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...