Arkadaşlar aşağıdaki makroya kullandığım ağa bağlı bilgisayarda
"L:\1201_GENEL EVRAK\SAROZ\SAROZ2010\APS DOSYASI\NİSAN 2010"
yolu nasıl kodlanır.
Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & "APS-" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Ad
ActiveWorkbook.Close
End Sub
"L:\1201_GENEL EVRAK\SAROZ\SAROZ2010\APS DOSYASI\NİSAN 2010"
yolu nasıl kodlanır.
Sub Kaydet()
Ad = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & "APS-" & Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Ad
ActiveWorkbook.Close
End Sub
