Win7 Ofis 2010 altına kullanıcıdan bağımsız masaüstüne excel dosyası kopyalama sorunu

[gnorar]

Win7 işletim sistemi altında ofis 2010 exceli ile kullanıcıdan bağımsız (yani farklı kullanıcı adı olan farklı bilgisayarlar) makro ile nasıl kayıt yapılır?
Not:Kayıta ait makro forumumuzdan sn. omerceri tarafından çözümlenmiştir. Yeni sorun bilgisayardan bağımsız masaüstüne kayıt yapmaktır. Sn omerceri tarafından yazılan makro aşağıdadır.

Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder( "C:\")
Set fc = f.Files
a = 0
For Each f1 In fc
if f1.Name = “MalzemeListesi.xls" Then
MsgBox ("C:\'de MalzemeListesi.xls dosyası zaten var!")
a = a+1
End if
Next
if a = 0 Then
ChDir "C:\"
Set NewBook = Workbooks.Add
With NewBook
.Title = "MalzemeListesi"
.SaveAs Filename:="MalzemeListesi.xls"
End With
End if

End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod masaüstüne kayıt işlemi yapar. Sanırım kendinize uyarlayabilirsiniz.

Option Explicit
 
Sub Kaydet()
    Dim Ad As String
    Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
    Application.PathSeparator & "MalzemeListesi.xls"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=Ad
    ActiveWorkbook.Close
End Sub

 

[gnorar]

Masa üstünde MalzemeListesi dosyasının var olup olmadığını kontrol ettiremedim. Eğer masa üstünde MalzemeListesi varsa hiç bir işlem yapmadan sadece dosyanın var olduğuna dair uyarı vererek kodu sonlandıracak şekilde bir kod geliştirebilir misiniz?