Excel сообщение при сохранении

Проблема

Рассмотрим следующий сценарий. вы работаете над проектом по автоматизации Microsoft Office. Поэтому вы открыли редактор Microsoft Visual Basic для приложений. Также открыт лист Excel, в котором содержится ссылка на данные Excel (см. Ссылки на данные Excel).

Вы удаляете лист Excel с источником данных для think-cell. В Excel может появится сообщение об ошибке: «Требуется объект».

При попытке сохранить файл Excel, будет выдано сообщение об ошибке:
«Обнаружены ошибки при сохранении [имя файла]». Microsoft Excel может сохранить файл, удалив или исправив некоторые функции. Чтобы провести восстановление в новом файле, нажмите на кнопку «Далее». Для отмены сохранения файла нажмите на кнопку «Отмена».

При нажатии кнопки Продолжить, процесс восстановления завершается ошибкой.

Excel 2007 или 2010: если вы пытаетесь вставить новый лист Excel вместо сохранения файла, программа аварийно завершается.

Причина

Проблема обусловлена программной ошибкой в Excel. Мы отправили отчет о данной ошибке компании Microsoft. Если у вашей компании есть контракт на поддержку Microsoft Office и вы хотите обратиться в Microsoft за исправлением, вы можете указать номер обращения Microsoft 114072911657591. Ошибку можно воспроизвести и без надстройки think-cell.

Решение

При возникновении такой ошибки вы можете сохранить данные в новый документ Excel или сбросить изменения и восстановить исходный документ:

Сохранение данных в новом документе Excel

Для сохранения изменений, внесенных в документ, скопируйте измененные листы в новый документ Excel и сохраните последний.

Восстановление документа Excel, чтобы избежать повторения этой ошибки в будущем

Вы можете восстановить документ Excel, удалив все проекты Visual Basic для приложений (VBA) из своего документа. Однако, лишь удаления проектов в редакторе Visual Basic будет недостаточно. Выполните следующие действия:

Почему то выводилось сообщение стандартное (о сохранении в существующий файл)
Стер процедуру, переписал, и о чудо… заработало. Так и не понял, где был косяк

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

oExcelCalc.Visible = False ' запрет видимости открываемых файлов Excel
            Dim strExportCalcName As String ' название файла калькуляции для экспорта.
            oExcelCalc.Application.DisplayAlerts = False
            For intRowsNomber = 0 To Me.DataGridView1.Rows.Count - 1
                strExportCalcName = Me.DataGridView1.Item(0, intRowsNomber).Value
                If Me.DataGridView1.Item(25, intRowsNomber).Value <> "Устаревшая версия калькуляционной карты" Then
                    oExcelCalc.Workbooks.Open(strExportCalcName) ' Открыть файл 
                    oExcelCalc.ActiveSheet.Unprotect(Password:="112233")
                    oExcelCalc.Range("R20").Value = CDbl(Me.DataGridView1.Item(8, intRowsNomber).Value / 100) ' 
                    oExcelCalc.Range("R21").Value = CDbl(Me.DataGridView1.Item(9, intRowsNomber).Value / 100) ' 
                    oExcelCalc.Range("U23").Value = CDbl(Me.DataGridView1.Item(10, intRowsNomber).Value) ' 
                    oExcelCalc.Range("U28").Value = CDbl(Me.DataGridView1.Item(20, intRowsNomber).Value / 100) ' 
                    oExcelCalc.Range("BE28").Value = Me.DataGridView1.Item(24, intRowsNomber).Value ' 
                    oExcelCalc.Range("BE26").Value = Me.TextBox1.Text ' 
                    oExcelCalc.Range("BE27").Value = Me.Label2.Text ' 
 
                    oExcelCalc.ActiveSheet.Protect(Password:="112233", DrawingObjects:=True, Contents:=True, Scenarios:=True)
                    oExcelCalc.ActiveWorkbook.Save() ' Сохранение изменений в файле
                    oExcelCalc.ActiveWorkbook.Close() ' Закрытие файла калькуляции
                End If
            Next

сейчас код выглядит вот так и работает. По аналогии добавил снятие защиты и обратную постановку на файл.

Добавлено через 6 минут
ovva, Jungl, почему то вот так только работает:

1

oExcelCalc.Application.DisplayAlerts = False

В начале тоже написал, как Вы подсказываете. Но работает как в коде выше. :/

Добавлено через 26 минут
Пошли дальнейшие загвоздки с созданием файла из кода VB.Net

1

oExcelCalc.Range("A11:F11").HorizontalAlignment = ?????

Не знаю, как написать, что поставить выравнивание по центру.
В VBA работало так:

1
2

    Range("A11:F11").Select
    Selection.HorizontalAlignment = xlCenter

А вот в VB.Net xlCenter выдает ошибку

Профессионализм и отличная репутация разработчиков вовсе не является гарантией, что созданный ими программный продукт будет работать идеально, поскольку появление ошибок часто бывает связано с внешними факторами. Ошибка «Документ не сохранен» в Microsoft Excel относится как раз к таким случаям. На официальном сайте компании описываются возможные причины неполадки и предлагается несколько решений, но этот список далеко не полный.

Существуют также и другие причины, по которым Excel может не сохранять документ.

Таковыми являются прерывание процесса сохранения, проблемы с сетью, аппаратные неисправности носителя и отсутствие у пользователя необходимых разрешений. Ниже мы рассмотрим их чуть более подробно, но перед этим стоит попробовать простой, но вполне эффективный способ.

Создайте в Excel новый документ и скопируйте в него всё содержимое файла, который не удается сохранить. Сохраните новый документ. Если проблема не устранена, переходим к следующим решениям.

Исключите прерывания

Ошибка «Документ не сохранен» появится, если в момент сохранения файла процесс был прерван нажатием клавиши Esc или вмешательством в него стороннего программного обеспечения. Попробуйте временно закрыть запущенные приложения, после чего сохраните документ.

Проверьте локальную сеть

Если проблема возникла при сохранении документа в сетевую папку, следует проверить работу локальной сети и само локальное подключение. Если с подключением всё в порядке, проверьте задержку при отправке данных по локальной сети, высокий пинг вполне может стать причиной ошибки при сохранении Excel-файла.

Проблемы с накопителем

Если документ сохраняется на внешний накопитель, убедитесь, что он определяется в системе и на него записываются файлы. Проверьте состояние файловой системы накопителя, просканируйте его на предмет поврежденных секторов.

Отсутствие прав на запись

Убедитесь, что папка, в которую вы сохраняете файл, имеет права на запись. С ошибкой сохранения чаще всего приходится сталкиваться пользователям, не имеющим прав администратора, сохранении файла в системные каталоги или каталоги, принадлежащие другому пользователю. Создайте отдельную папку на диске D и попробуйте сохранить документ в нее. Если нужно узнать имя владельца папки, зайдите в ее свойства и нажмите на вкладку «Безопасность» кнопку «Дополнительно».

Запустите Excel в безопасном режиме

Если не один из вышеперечисленных способов не помог, запустите второй экземпляр Excel в безопасном режиме. Для этого вызовите нажатием Win + R окошко быстрого запуска и выполните в нём команду excel /safe.

Будучи запущенным в безопасном режиме, редактор отключает все плагины и надстройки, которые могут работать некорректно. После этого скопируйте из отредактированного документа все данные, перенесите их во второй экземпляр Excel и сохраните обычным путем.