ich möchte eine Tabelle mit SaveAs auf den Desktop speichern. Wie komme ich am schnellsten dort hin und kann es dort speichern? Es muss auf den jeweiligen Desktop des Anwenders!
Vielen Dank.
MfG Micha
Sub tt()
Dim strPfad As String, strDatei As String
strPfad = Environ("userprofile") & "\Desktop\"
strDatei = "Test.xls"
ActiveWorkbook.SaveAs strPfad & strDatei
End Sub