Masaüstüne kaydetme

[muratgunay48]

Arkadaşalar, sayın hocalarım, bu kodda benim masaüstüne kaydediyor. Herhangi bir bilgisayarda masaüstüne kaydetmesi için nasıl revize edilir.
Şimdiden teşekkür ederim.
Saygılarımla.

Sub kaydet()
    Range("H1:J9").Select
    Range("J8").Activate
    ChDir "C:\Users\muratgunay48\Desktop"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\muratgunay48\Desktop\BAŞLIK MESAİ.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Application.WindowState = xlNormal
End Sub

 

[Korhan Ayhan]

İnceleyiniz.

Vba Masaüstü Yolu

Merhaba yaptığım uygulamada isim vermeden(bir çok bilgisayarda kullanılacağı için) sabit olarak masaüstüne aşağıda ki kod ile kaydetmeye çalışıyorum fakat direkt olarak belgelerde ortaya çıkıyor masaüstüne kaydetmiyor yol = Environ("USERPROFILE") & Application.PathSeparator & "\Desktop" Nasıl...

www.excel.web.tr

farklı pc deki masaüstü yolu

ChDir "C:\Users\ze59317\Desktop" Workbooks.OpenText Filename:="C:\Users\ze59317\Desktop\BCH.TXT", Origin:= _ 1254, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _ Array(7, 1), Array(22, 1), Array(30, 1), Array(34, 1), Array(37, 1), Array(40, 1), Array(46...

www.excel.web.tr

masaüstü değişken yolu

hazırladığım userformda ChDir "C:\Users\Elazığ\Desktop" açacağım dosyanın yolunu gösteriyor. fakat ben başka bilgisayarda bu çalışmayı açacağım zaman hata verecektir. yeni klasörün masaüstü adresi , atıyorum CdDir "C:\Users\Malatya\Desktop" oluyor bu kodda hangi bilgisayara yüklersem ona...

www.excel.web.tr

 

[muratgunay48]

İnceleyiniz.

Vba Masaüstü Yolu

Merhaba yaptığım uygulamada isim vermeden(bir çok bilgisayarda kullanılacağı için) sabit olarak masaüstüne aşağıda ki kod ile kaydetmeye çalışıyorum fakat direkt olarak belgelerde ortaya çıkıyor masaüstüne kaydetmiyor yol = Environ("USERPROFILE") & Application.PathSeparator & "\Desktop" Nasıl...

www.excel.web.tr

farklı pc deki masaüstü yolu

ChDir "C:\Users\ze59317\Desktop" Workbooks.OpenText Filename:="C:\Users\ze59317\Desktop\BCH.TXT", Origin:= _ 1254, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _ Array(7, 1), Array(22, 1), Array(30, 1), Array(34, 1), Array(37, 1), Array(40, 1), Array(46...

www.excel.web.tr

masaüstü değişken yolu

hazırladığım userformda ChDir "C:\Users\Elazığ\Desktop" açacağım dosyanın yolunu gösteriyor. fakat ben başka bilgisayarda bu çalışmayı açacağım zaman hata verecektir. yeni klasörün masaüstü adresi , atıyorum CdDir "C:\Users\Malatya\Desktop" oluyor bu kodda hangi bilgisayara yüklersem ona...

www.excel.web.tr

Teşekkürler hocam. Oldu.