17.08.2018, 08:22
Hi,
ein Kollege hat das Abspeichern eines Blatts in einer neuen Mappe mit SaveAs programmiert.
Nun geht der File-Dialog auf und er muß manuell in dem Suchfenster die Seriennummer aus Cells(9, 6) eingeben und danach suchen, dann öffnet er den entsprechenden Ordner und speichert dort die Datei ab.
Der Speicher-Ort liegt also in einem Unterverzeichnis eines Unterverzeichnisses des "Application.DefaultFilePath".
Kann die manuelle Eingabe in das Suchfeld des File-Dialogs automatisiert werden?
ein Kollege hat das Abspeichern eines Blatts in einer neuen Mappe mit SaveAs programmiert.
Code:
...
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Application.DefaultFilePath & "\" & "ELC " & Cells(8, 6) & " " & Cells(9, 6)
.Title = "Wählen sie bitte einen Speicherort für die Sicherung aus"
.Show
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("Protokoll D").Copy Before:=wb.Sheets(1)
If .SelectedItems.Count = 1 Then wb.SaveAs .InitialFileName
End With
...
Nun geht der File-Dialog auf und er muß manuell in dem Suchfenster die Seriennummer aus Cells(9, 6) eingeben und danach suchen, dann öffnet er den entsprechenden Ordner und speichert dort die Datei ab.
Der Speicher-Ort liegt also in einem Unterverzeichnis eines Unterverzeichnisses des "Application.DefaultFilePath".
Kann die manuelle Eingabe in das Suchfeld des File-Dialogs automatisiert werden?