Проблема с сохранением таблицы в формате * .csv с использованием VBA

Question

Проблема в том, что я пытаюсь сохранить эту электронную таблицу (которую я уже открыл и сохранил как * .xlsx) в виде файла * .csv, и у меня возникает ошибка Ошибка выполнения 1004 Метод 'SaveAs' объекта '_Workbook 'не удалось.

Это для Excel 2016.

Dim FilePath as string

FilePath = "U:\CAP Data - Every Month\ISEAdHoc\" & FileMonth & FileYear & "\"

Dim ISEAdHoc_FileName_CSV As String

ISEAdHoc_FileName_CSV = "ISEAdHoc_" & FileMonth & "CAP_" & Format(Now(), "YYYYMMDD") & "_" & Format(Now(), "HHMMSS")

Dim FileNameforCSVandPath As String

FileNameforCSVandPath = FilePath & ISEAdHoc_FileName_CSV & ".csv"

Sheets("ISEAdHoc").Activate

'ActiveWorkbook.SaveAs Filename:=FilePath & ISEAdHoc_FileName_CSV, FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Workbooks(FileNameforCSVandPath).Close SaveChanges:=True

Я ожидаю сохранить файл как * .csv. Но по какой-то причине я продолжаю получать сообщение об ошибке «Ошибка выполнения 1004 Метод« SaveAs »объекта« _Workbook »не удалось». Пожалуйста, помогите!

Answer 1

Ваш код работает нормально как есть.Убедитесь, что ваш U: диск сопоставлен правильно.

Мне удалось скопировать ваш код, и он работал на моей стороне.