Pdf yol tanımlama

[Bilgemen]

Merhaba arkadaşlar
Excelde ağda ortak kullanılan bir doysa var. Bu dosyanın belli bir sayfasını ağdan makro yardımı ile açık olan excel dosyanın bulunduğu yerdeki Deneme Klasörünün içine dosya adını textbox1 den alacak şekilde pdf olarak kaydetmem gerekiyor. Ağ sürücüsü değişebilme ihtimali olduğu için aktif olan excelin bulunduğu yerdeki Deneme klasörüne kaydedecek. Bunun için bir değişkene ihtiyacım var. Yardımcı olabilirmisniz.

 

[ÖmerBey]

Merhaba,
Deneme imkanı olmadığı için eksik kalan tarafını sizin halletmeniz gerekecek.
Kodunuz yaklaşık olarak aşağıdaki gibi olacaktır.

Set syf = Workbooks("Ağdaki dosya.xlsx").Sheets("Belirli sayfa")
syf.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ActiveWorkbook.Path & "\Deneme\" & Textbox1.Text & ".pdf", _
            OpenAfterPublish:=False

 

[Bilgemen]

Teşekkürler Ömer bey

 

[ÖmerBey]

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