Server dosya yolu belirtme

[Mehmet Sait]

Merhaba,

Mevcut Excel tabloda kullandığım ve kayıt yeri olarak masaüstü verilen kodu servere kayıt yapacak şekilde nasıl değiştirebilirim.

Vermek istediğim adres : \\192.168.1.242\ortak\Raporlar

Set nesne = CreateObject("Scripting.FileSystemObject")
masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
AyAdi = Format(Date, "mmmm yyyy") & " Üretim Raporları"
klasoradi = Format(Date, "dd.mm.yyyy") & " " & [J8]
dosyaadi = [J8] & " Üretim Raporu "
klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi)
If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi

ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Yardımlarınız için teşekkür ederim.

 

[AdemCan]

Merhabalar;
Şu şekilde dener misiniz?
masaustuyolu olan kısımları Server olarak değiştirdim. Ama deneme imkanım olmadı.

Set nesne = CreateObject("Scripting.FileSystemObject")
Server="\\192.168.1.242\ortak\Raporlar"
'masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
AyAdi = Format(Date, "mmmm yyyy") & " Üretim Raporları"
klasoradi = Format(Date, "dd.mm.yyyy") & " " & [J8]
dosyaadi = [J8] & " Üretim Raporu "
klasorara = nesne.FolderExists([COLOR="Blue"]Server[/COLOR] & "\" & AyAdi)
If klasorara = False Then nesne.CreateFolder [COLOR="Blue"]Server[/COLOR] & "\" & AyAdi

ActiveSheet.Range("$B$3:$AD$81").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [COLOR="Blue"]Server[/COLOR] & "\" & AyAdi & "\" & dosyaadi & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Büyük ihtimalle çalışmayacak ama şans.

 

[Mehmet Sait]

Merhabalar;

Elinize sağlık hocam, denedim gayet başarılı şekilde çalıştı.

Teşekkür ederim.

 

[AdemCan]

Merhabalar;
Rica ederim çalışmasına sevindim.
İyi çalışmalar.