Dim
fso
As
Object
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
fso.MoveFile
"Pfad\DeineDatei.xls"
, "NeuerPfad\Archiv\"
Workbooks(<span class=
"hljs-string"
style=
"box-sizing: border-box; color: rgb(163, 21, 21); font-family: Menlo, Monaco, Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap;"
>
"Deine Datei.xls"
</span><span style=
"color: rgb(0, 0, 0); font-family: Menlo, Monaco, Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap;"
>).Close SaveChanges:=</span><span class=
"hljs-literal"
style=
"box-sizing: border-box; color: rgb(0, 0, 0); font-family: Menlo, Monaco, Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap;"
>
False