Her PC'nin Masa üstü Nasıl Kodlanır

[DEKORrehberi.com]

Aşağıdaki kod ile sadece benim bilgisayara dosya oluşturuyor.

Fakat ofisteki diğer arkadaşlar ile de aynı dosyayı kullanmak istiyoruz..
Hatta bazı arkadaşlara mail atacağız onlar da kendi bilgisayarlarının masa
üstüne belirlenen dosyayı oluşturma imkanı tasın isteriz.

Aşağıdaki kod da "Arif" Yazılı yer her bilgisayarın adına esnek olabilir mi?

"
ChDir "C:\Users\Arif\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Arif\Desktop\xxCsv.csv", _
FileFormat:=xlCSV, CreateBackup:=False
"

 

[Haluk]

Bunu deneyin;

Sub Test()
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    MsgBox strDesktop
End Sub

 

[DEKORrehberi.com]

Ben masa üstüne "csv" dosyası oluşturma makro sunu kaydederek elde ettiğim kod aşağıdadır.

"
ChDir "C:\Users\Arif\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Arif\Desktop\xxCsv.csv", _
FileFormat:=xlCSV, CreateBackup:=False
"

Masa üstüne virgül ile ayrılmış csv oluşturmak istiyorum. bu mümkün müdür.

 

[Haluk]

Sub Test()
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    ActiveWorkbook.SaveAs Filename:=strDesktop & "\xxCsv.csv", FileFormat:=xlCSV, CreateBackup:=False
End Sub

 

[DEKORrehberi.com]

Çok Teşekkür ederim..