Farkli PClerde calistirma

[stahac]

ChDir "/Users/stc/Desktop/"
ActiveWorkbook.SaveAs FileName:="/Users/stc/Desktop/CAT.csv", _. kendi pc me kaydederken sorun olmuyor fakat farkli bir pcde makroyu calistirmaki stedigimde
bu kisimda hata aliyorum. Farkli pc nin masaustune nasil kaydedebilir makroyu? destek olabilirseniz cok seviriim. Tesekkurler.




Sub CSV()
'
' CSV Macro
'

'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ChDir "/Users/tahacoskun/Desktop/"
Range("J22").Select
Sheets("CAT").Select
Sheets("CAT").Copy
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.SaveAs FileName:="/Users/stc/Desktop/CAT.csv", _
FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWindow.Close
End Sub

 

[dEdE]

Merhaba,
Forumumuza hoş geldiniz.
Basit bir ARAMA yapmak yeterli olur.

 

[Necdet]

Merhaba,

Deneyiniz.

Dim Dosya As String
Dosya = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator & "CAT.csv"

 

[Necdet]

Ayrıca diğer özel klasörleri de verelim

    MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")
    MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    MsgBox CreateObject("WScript.Shell").SpecialFolders("Startup")
    MsgBox CreateObject("WScript.Shell").SpecialFolders("Templates")
    MsgBox CreateObject("WScript.Shell").SpecialFolders("Fonts")
    MsgBox CreateObject("WScript.Shell").SpecialFolders("Programs")