Рабочие книги VBA. Не запрашивать, если пользователь хочет сохранить?

Я пишу программу VBA, которая преобразует .xls файлы в файлы .csv. Проблема заключается в том, что появляется диалоговое окно "Do you want to save the changes to myFile.csv?".

Вот фрагмент моего кода:

currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges    
currentBook.Close SaveChanges:=False

Что мне нужно добавить, чтобы у меня не получилось: "Вы хотите сохранить изменения в myFile.csv?" Диалоговое окно?

Ответы

Ответ 1

Попробуйте использовать ThisWorkbook.Saved = True

        Application.DisplayAlerts = False
        currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
        currentBook.Saved = True            
        currentBook.Close SaveChanges:=False
        Application.DisplayAlerts = True

Ответ 2

Это то, что я сделал в прошлом, и это сработало для меня:

Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, conflictResolution:=xlLocalSessionChanges
Application.DisplayAlerts = True
ActiveWorkbook.Close False

Вы также можете попробовать поставить Close перед отображением DisplayAlerts reset в true...

Ответ 3

Set XC = NTSGetExcell(True)
XC.Visible = True
XC.Application.DisplayAlerts = False
XC.IgnoreRemoteRequests = True
XC.ActiveWindow.Close False
XC.Quit
Set XC = Nothing