Arkadaşlar formda arama yaptım ama istediğim sonuca ulaşamayınca mesaj atmak zorunda kaldım.
Amacım local ağ üzerinden belirli excel çalışmalarındaki belirli sayfalarla site yapmak.
Mesela Öğrenci notlarını girdiğimiz excel çalışmamız var. Sayfalar çok ama ortalamaları çeken sayfayı Kitabı kapatırken bu sayfayı HTML olarak istediğim yola kaydetmek istiyorum.
İnternette bulduğum makro kod işime yaradı ama istediğim yere kaydetme meselesini çözemedim yardımcı olursanız çok memnun olacağım.
Bulduğum kod:
Private Sub Workbook_BeforeClose(cancel As Boolean)
Call Makro1
End Sub
Sub Makro1()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
ThisWorkbook.Path & "\Ortalama.htm", "ORTALAMA", "", xlHtmlStatic, "Kitap1_23162", "")
.Publish (True)
.AutoRepublish = False
End With
End Sub
Amacım local ağ üzerinden belirli excel çalışmalarındaki belirli sayfalarla site yapmak.
Mesela Öğrenci notlarını girdiğimiz excel çalışmamız var. Sayfalar çok ama ortalamaları çeken sayfayı Kitabı kapatırken bu sayfayı HTML olarak istediğim yola kaydetmek istiyorum.
İnternette bulduğum makro kod işime yaradı ama istediğim yere kaydetme meselesini çözemedim yardımcı olursanız çok memnun olacağım.
Bulduğum kod:
Private Sub Workbook_BeforeClose(cancel As Boolean)
Call Makro1
End Sub
Sub Makro1()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
ThisWorkbook.Path & "\Ortalama.htm", "ORTALAMA", "", xlHtmlStatic, "Kitap1_23162", "")
.Publish (True)
.AutoRepublish = False
End With
End Sub