Merhaba Arkadaşlar;
Bir Klasörde ve alt klasörlerinde xls,xlsx,doc ve docx uzantılı word ve excel dosyalarım var. Buralardaki dosyalarımın tamamını .PDF formatında kaydetmek istiyorum.
Bu paylaşım sitesindeki arkadaşların verdiği kodlarla Bir excel dosyasına bütün bu klasör ve alt klasördeki xls,xlsx,doc ve docx dosyalarımı listeledim. yaklaşık 200 dosya var
Sub deneme()
Set s1 = Sheets("sayfa1")
sat = s1.[a500].End(3).Row
For a = 2 To sat
Range("A" & a).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\xxxx\Desktop\pdf formatı\" & ActiveWorkbook.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Windows("dosyalar.xls").Activate
Next a
End Sub
kodları ile xls ve xlsx dosyalarımın hepsini bir klasöre pdf formatına çevirebiliyorum. ama word dosyalarına sıra gelince sorun oluyor.
bütün bu dosyaları tek tek açmadan farklı kaydetmenin başka bir yolu var mı?
Bir Klasörde ve alt klasörlerinde xls,xlsx,doc ve docx uzantılı word ve excel dosyalarım var. Buralardaki dosyalarımın tamamını .PDF formatında kaydetmek istiyorum.
Bu paylaşım sitesindeki arkadaşların verdiği kodlarla Bir excel dosyasına bütün bu klasör ve alt klasördeki xls,xlsx,doc ve docx dosyalarımı listeledim. yaklaşık 200 dosya var
Sub deneme()
Set s1 = Sheets("sayfa1")
sat = s1.[a500].End(3).Row
For a = 2 To sat
Range("A" & a).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\xxxx\Desktop\pdf formatı\" & ActiveWorkbook.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Windows("dosyalar.xls").Activate
Next a
End Sub
kodları ile xls ve xlsx dosyalarımın hepsini bir klasöre pdf formatına çevirebiliyorum. ama word dosyalarına sıra gelince sorun oluyor.
bütün bu dosyaları tek tek açmadan farklı kaydetmenin başka bir yolu var mı?