[Gelöst] Schließen Sie die geöffnete Datei 2 im Hintergrund

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Deko
**
Beiträge: 23
Registriert: Fr, 23.11.2018 17:56

[Gelöst] Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von Deko » Mo, 31.12.2018 06:14

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 .
Zuletzt geändert von Deko am Di, 01.01.2019 20:04, insgesamt 1-mal geändert.

Stephan
********
Beiträge: 10765
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von Stephan » Mo, 31.12.2018 09:47

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

mikeleb
******
Beiträge: 752
Registriert: Fr, 09.12.2011 16:50

Re: Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von mikeleb » Mo, 31.12.2018 11:58

Hallo,
hier wurde die gleiche Frage geklärt https://forum.openoffice.org/en/forum/v ... 0&p=460931
Gruß,
mikeleb

Deko
**
Beiträge: 23
Registriert: Fr, 23.11.2018 17:56

Re: Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von Deko » Mo, 31.12.2018 20:20

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 .

Stephan
********
Beiträge: 10765
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von Stephan » Di, 01.01.2019 11:56

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

Deko
**
Beiträge: 23
Registriert: Fr, 23.11.2018 17:56

[Gelöst] Schließen Sie die geöffnete Datei 2 im Hintergrund

Beitrag von Deko » Di, 01.01.2019 20:02

sr. Stephan ,

                   Ihr Makro hat sehr gut funktioniert, vielen Dank nochmal . :shock:

                  Herzlichen Glückwunsch zu Ihrem Wissen . 8)


Freund umarmen .

Antworten