Доброго времени суток, многоуважаемые юзеры форума!
Суть темы:
В приложении файл, скачав и открыв который, вы можете кликнуть по форме с текстом «Сохранить лист как файл», а по завершению действий всех алгоритмов, module1 выдаст ошибку, которая повествует о том, что «Документ не сохранен.»
Пожалуйста, подскажите
-причину невозможности сохранения документа именно в моем случае;
-предположительное решение этой "проблемы".
Хорошего дня всем, кто уделил время на прочтение данного топика. Большое спасибо!
Код из module1
p.s. гуглил, но не нашел подходящей информации, поэтому обращаюсь к Вам, уважаемые!
Суть темы:
В приложении файл, скачав и открыв который, вы можете кликнуть по форме с текстом «Сохранить лист как файл», а по завершению действий всех алгоритмов, module1 выдаст ошибку, которая повествует о том, что «Документ не сохранен.»
Пожалуйста, подскажите
-причину невозможности сохранения документа именно в моем случае;
-предположительное решение этой "проблемы".
Хорошего дня всем, кто уделил время на прочтение данного топика. Большое спасибо!
Код из module1
| Код |
|---|
Sub УдалитьМодули()
'On Error Resume Next
ИтоговаяКнига = Sheets(1).Name & " e-mail.xlsm"
'Активируем кингу для отправки по e-mail
Workbooks(ИтоговаяКнига).Activate
'Удаляем Module и UserForm's
Set VBProj = ActiveWorkbook.VBProject.VBComponents
VBProj.Remove VBProj("ДобавитьНовогоКонтрагента")
VBProj.Remove VBProj("ДобавитьОснование")
VBProj.Remove VBProj("УдалитьОснование")
VBProj.Remove VBProj("УказатьОтветственного")
VBProj.Remove VBProj("Календарь")
VBProj.Remove VBProj("Module2")
'Удаляем код из ЭтаКнига-------
Dim oVBComponent As Object, lCountLines As Long
Set oVBComponent = ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
With oVBComponent
lCountLines = .CodeModule.CountOfLines
.CodeModule.DeleteLines 1, lCountLines
End With
Set oVBComponent = Nothing
'------------------------------
'MsgBox "Сформирован отчет для [- " & Sheets(1).Name & " -]", vbOKOnly + vbInformation, ""
Call Сохранить
'ОтправляемФайл
If ОтправляемФайл = True Then
Dim FullStr As String
Смайлик = Sheets(1).Range("A7")
FullStr = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
FullStr = FullStr & " -compose to=" & Почта
FullStr = FullStr & " ,subject=""" & Смайлик & "Транзакционный отчет [ " & ActiveWorkbook.ActiveSheet.Name & " ]"""
FullStr = FullStr & " ,body="" """
FullStr = FullStr & " ,attachment=" & ThisWorkbook.Path & "\" & ИтоговаяКнига
Shell FullStr, 1
End If
Windows(ИтоговаяКнига).Activate
Call Сохранить
'Закрываем Книгу
'ActiveWindow.Close
End Sub
Sub Сохранить()
ActiveWorkbook.Save
End Sub
|
p.s. гуглил, но не нашел подходящей информации, поэтому обращаюсь к Вам, уважаемые!
Улыбнись.
