Kayıt işleminde Publish hatası.

[SASELSA]

Arkadaşlar,

Excelde bir VBscript yazarak butona tıkladığımda kayıt yapmak istiyorum. Fakat
Runtime Error '1004':
Method 'Publish' of Object 'PublishObject' failed

hatası almaktayım. Kodumda aşağıdaki gibi.

Yardımlarınızı rica ederim.
Tşk.


With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Kitap1.htm", "Sayfa2", "", _
xlHtmlCalc, "Kitap1_1787", "")
.Publish (True)
.AutoRepublish = False
End With