OpenOffice.info

sr. Stephan ,

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

                  Herzlichen Glückwunsch zu Ihrem Wissen . 8)


Freund umarmen .

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

[quote]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 .[/quote]

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]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[/code]



Gruß
Stephan

sr. [b]Stephan[/b] ,

              Ich habe einen Test mit drei im Hintergrund geöffneten Dateien durchgeführt (File2.ods, File3.ods, File4.ods) .

              Also habe ich Ihr Makro "[b]sub Main[/b]" in meiner Hauptdatei File1.ods verwendet, um nur [b]Datei 3[/b] (File3.ods) zu schließen .

              gelang aber nicht, dh die [b]File3.ods[/b] nicht geschlossen .


Freund umarmen .

Hallo,
hier wurde die gleiche Frage geklärt https://forum.openoffice.org/en/forum/viewtopic.php?f=20&p=460931

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

[code]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[/code]


Gruß
Stephan

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 [b][url=http://www.tomasvasquez.com.br/forum/viewtopic.php?t=4981#p20405]sub userform_Terminate[/url][/b]

          Was ist also das Makro, um diese Operation in LibreOffice durchzuführen ?


Umarmungen .