Hemil Gandhi Ответов: 2

Excel в CSV-файл "сохранить как" всплывающее сообщение вопрос


Здравствуйте , друзья, я использую приведенный ниже код для преобразования файла excel в CSV через VB-код. Когда я запускаю приложение и загружаю файл , система показывает сообщение "Do you wan to save changes on file". Я не хочу, чтобы это сообщение отображалось моему конечному пользователю.

Пожалуйста, проводите.

Что я уже пробовал:

Dim xlsApp As New Excel.Application
        Dim xlsWorkBook As Excel.Workbook
        Dim xlsWorkSheet As Excel.Worksheet
        xlsApp = New Excel.Application
        xlsWorkBook = xlsApp.Workbooks.Open(excelPath)
        xlsWorkSheet = xlsWorkBook.Worksheets(1) ' You could also do it by name: "sheet1"
        'xlsWorkSheet.Rows("1:5").Delete()
        'xlsWorkSheet.Rows("37:100").Delete()
        xlsWorkBook.SaveAs(csvPath, FileFormat:=Excel.XlFileFormat.xlCSV, CreateBackup:=False)
        xlsWorkBook.Close()

Richard MacCutchan

Если в SaveAs нет возможности подавить сообщение, то вы ничего не можете с этим поделать.

2 Ответов

Рейтинг:
19

Patrice T

С помощью VBA, я использовал, чтобы окружить свой код с:

Application.DisplayAlerts = False
' My code
Application.DisplayAlerts = True


Hemil Gandhi

Спасибо, Решение Сработало

Patrice T

Пожалуйста.