web sayfası zaman aralıklı oto kaydet makrosu

[basarı2]

Merhaba değerli arkadaşlar.sitedeki diğer konularda farklı kaydet şeklindeki makroları görüp dosyam için kullanmıştım.yalnız bu sefer xls değilde web sayfası şekli ile kayıt etmem gerekli. Kullanmakta olduğum bu makroya mümkün ise zaman ayarlı kayıt satırları eklemek istiyorum. şimdiden Teşekkürler. not:kendi dosyam çok büyük olduğundan aynı mantıkla çalışan boş bir sayfa oluşturup örnek olarak ekledim.


benim kullandığım dosyanın makrosu

Sub webkaydet()
'
' webkaydet Makro
'

'
Range("A3:V920").Select
Range("A920").Activate
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"D:\DMS\Atolye Takip Rapor\DMS Sonuca Dayalı T.Giriş Tablet.htm", "Müşteri", _
"$A$3:$V$920", xlHtmlStatic, "DMS Sonuca Dayalı T.Giriş Tablet_1232", _
"DMS-WEB Araç Takip")
.Publish (True)
.AutoRepublish = True
End With
ChDir "D:\DMS\Atolye Takip Rapor"
Range("A60").Select
End Sub


eklediğim boş sayfanın aynı işlemi yapan makrosu


Sub web()
'
' web Makro
'

'
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Users\MB\Desktop\web kaydet.htm", "Sayfa1", "", xlHtmlStatic, _
"web kaydet_9486", "")
.Publish (True)
.AutoRepublish = False
End With
End Sub