Сохранение в HTML

[Rom]

Надо сохранить содержимое рабочего листа, как html страницу. Делаю так:

Код: Выделить всё

tek_dat = Date

strFileName = Application.GetSaveAsFilename(InitialFileName:="Прайс лист за " & tek_dat, _
            FileFilter:="HTML страница, *.html", _
            Title:="Сохранить прайс лист как HTML страницу")
    If strFileName = "False" Then Exit Sub
   
ActiveWorkbook.SaveAs filename:=strFileName, FileFormat:=xlHtml, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Это фрагмент кода работает, но…
–вместе с данными на html странице остаётся много свободного места (сохраняется не только информация, но и все пустые ячейки).
–если такой документ уже существует, и при запросе на перезапись выбрать “нет” или “отмена”, то возникает ошибка выполнения 1004.

1) Как правильно сохранить содержимое рабочего листа, чтобы на html странице присутствовали только данные (т.е. отсутствовали пустоты. Ведь через файл->сохранить как … получается нормально)?

2) Как исправить вторую проблему, не пользуясь обработкой этой ошибки?
Или может быть я просто “криво” делаю само сохранение
Помогите, пожалуйста, разобраться.

[nained]

Используйте подобный код:

Sub Макрос1()
On Error Resume Next
ActiveWorkbook.SaveAs FileName:="C:\Мои документы\Книга1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
If Err <>; 0 Then
If Err = 1004 Then
MsgBox "Команда отменена пользователем", vbInformation
Else
MsgBox "Ошибка" + Error$, vbCritical
End If
End If
End Sub

[tyomitch]

это ж надо было тему более чем годовой давности раскопать...