Seite 1 von 1
[Gelöst] Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Mo, 31.12.2018 06:14
von Deko
Grüße ,
Ich muss ein Makro erstellen, um eine externe Datei 2 zu schließen, dh ich bin in Datei 1 und möchte eine Taste drücken, um die im Hintergrund geöffnete Datei 2 zu schließen .
Wie kann ich eine externe Datei 2 schließen, wenn ich in Datei 1 positioniert bin ?
in vba excel wird durch das makro
sub userform_Terminate
Was ist also das Makro, um diese Operation in LibreOffice durchzuführen ?
Umarmungen .
Re: Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Mo, 31.12.2018 09:47
von Stephan
Code: Alles auswählen
Sub Main
elemente = Stardesktop.getComponents.CreateEnumeration
Do While elemente.hasmoreElements
aktuell = elemente.NextElement
If aktuell.hasLocation Then
If Right(aktuell.getLocation, 11) = "Pasta2.xlsm" Then
aktuell.Close(True)
Exit Sub
End If
End If
Loop
End Sub
Gruß
Stephan
Re: Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Mo, 31.12.2018 11:58
von mikeleb
Re: Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Mo, 31.12.2018 20:20
von Deko
sr. Stephan ,
Ich habe einen Test mit drei im Hintergrund geöffneten Dateien durchgeführt (File2.ods, File3.ods, File4.ods) .
Also habe ich Ihr Makro "sub Main" in meiner Hauptdatei File1.ods verwendet, um nur Datei 3 (File3.ods) zu schließen .
gelang aber nicht, dh die File3.ods nicht geschlossen .
Freund umarmen .
Re: Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Di, 01.01.2019 11:56
von Stephan
Ich habe einen Test mit drei im Hintergrund geöffneten Dateien durchgeführt (File2.ods, File3.ods, File4.ods) .
Also habe ich Ihr Makro "sub Main" in meiner Hauptdatei File1.ods verwendet, um nur Datei 3 (File3.ods) zu schließen .
gelang aber nicht, dh die File3.ods nicht geschlossen .
Dir ist aber schon klar das Du nach dem Schließen der Datei "Pasta2.xlsm" fragtest und das Du, wenn Du die Datei "File3.ods" schliessen willst, das Makro anpassen musst?
Code: Alles auswählen
Sub Main
elemente = Stardesktop.getComponents.CreateEnumeration
Do While elemente.hasmoreElements
aktuell = elemente.NextElement
If aktuell.hasLocation Then
If Right(aktuell.getLocation, 9) = "File3.ods" Then
aktuell.Close(True)
Exit Sub
End If
End If
Loop
End Sub
Gruß
Stephan
[Gelöst] Schließen Sie die geöffnete Datei 2 im Hintergrund
Verfasst: Di, 01.01.2019 20:02
von Deko
sr. Stephan ,
Ihr Makro hat sehr gut funktioniert, vielen Dank nochmal .
Herzlichen Glückwunsch zu Ihrem Wissen .
Freund umarmen .