Hi Ulli,
Wie speichere ich in das gleiche Verzeichnis wie das ursprüngliche Workbook.
Ersetze bei SaveAs den xFileString durch ThisWorkbook.Path
Was macht die Zeile Set xFile = CreateObject("Scripting.FileSystemObject")
Hab mich schon beim ersten Mal gefragt, was du damit willst. Du kannst damit auf den WindowsExplorer zugreifen und z.B. Namen und Eigenschaften von Ordnern und Dateien abfragen, kopieren u.v.m. Allerdings verwendest du das Objekt in deinem Code überhaupt nicht. Also kannst du die Zeile auch löschen.
Gruß Mr. K.
|