excel içeriğini word olarak kaydetmek

[cosarx]

herkese merhabalar ;
mevcutta rapor.xls isimli dosyam var ve bu dosyanın içine veriler giriliyor.bu excel dosyasında bir buton olacak ve tıklandığında macro kod yoluyla xls formatı doc yada başka formatlara(xml,html vs) dönüştürerek c diski altına nasıl farklı kaydet yapabilirim?

yardımlarınız için şimdiden teşekkürler...

 

[ozgretmen]

Aşğıdaki kod ile C ye istediğiniz adla htm uzantılı kayıt yapar.

Sub web()
ad = InputBox(" Ad Giriniz ", "Web Sayfasının Adını Giriniz ")
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:=ad & ".htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[cosarx]

tşk

yardımınız için çok teşekkürler, istediğim buydu....

 

[ozgretmen]

yardımınız için çok teşekkürler, istediğim buydu....

Rica ederim.İyi çalışmalar...