Создание HTML Файла при закрытии самого Excel

[DaMadQuest]

Смотрел темы на макросы при закрытии Excel, сделал следующее:
// создал макрос, который переводит книгу в веб-документ
Sub Closer()
ActiveWorkbook.PublishObjects.Add(x lSourceSheet, "E:\IVC\OUT\Цех_упаковки.htm", "Лист1").Publish
End Sub// потом создал макрос, который при закрытии должен выполнять макрос выше написанный

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "Closer"
End Sub

но проблема в том, что он не срабатывает, веб-документ не создается, хотя сам макрос экспорта в веб-документ работает.

помогите пожалуйста...

[EducatedFool]

Да всё должно срабатывать...

Посмотрите, будет ли работать в моём файле: http://excelvba.ru/XL_Files/Sample__...0__0-46-18.zip

[DaMadQuest]

а как прописать путь, где у меня лежит сам файл...

то есть при переносе с одного жесткого диска на другой выполнялся макрос, не ругался на путь размещения файла

[EducatedFool]

а как прописать путь, где у меня лежит сам файл...

Если файл HTM должен появляться в той же папке, что и файл Excel, то так:

ActiveWorkbook.PublishObjects.Add( xlSourceSheet, thisworkbook.path & "\Цех_упаковки.htm", "Лист1").Publish

[DaMadQuest]

но если у меня папка лежит на диске D, а я ее потом перенесу на диск E, и не изменю путь, он будет ругаться на размещение...

как можно сделать, чтобы не влияло на это?

[EducatedFool]

Попробуйте так:

Sub Closer()
    ПутьКфайлуHTM = Replace(ActiveWorkbook.FullName, ActiveWorkbook.Name, "Цех_упаковки.htm")
    ActiveWorkbook.PublishObjects.Add(xlSourceSheet, ПутьКфайлуHTM, "Лист1").Publish
End Sub

Теперь, где бы на диске не располагалась книга Excel, файл HTM будет создан в той же папке, что и эта книга.

[DaMadQuest]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.PublishObjects.Add(x lSourceSheet, "E:\IVC\HTML\zeha_upakovki.htm" , "Лист1").Publish
End Sub

у меня создается файл при закрытии... а если еще раз его запустить, в этот же файл вставится еще одна таблица...

как сделать, чтобы файл просто перезаписывался поверх существующего?

[EducatedFool]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Путь = "E:\IVC\HTML\zeha_upakovki.htm"
    On Error Resume Next
    Kill Путь    ' удаляем файл, если он существует
    ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Путь, "Лист1").Publish
End Sub

[DaMadQuest]

спасибо большое, очень помог... всё работает!

надеюсь, больше не потревожу)