kennt einer von Euch eine Möglichkeit, die Namen aller derzeit geöffneten Dateien mittels VBA Code auszulesen?
Liebe Grüsse,
Anke
Sub AlleOffenenDateien()
For I = 1 To Windows.Count
MsgBox Windows(I).Caption
Next
End Sub
Option Explicit
Sub Dateien_ermitteln()
Dim Anzahl As Single, Name As String, i As Byte
Dim Meldung As String
Anzahl = Application.Workbooks.Count
For i = 1 To Anzahl
Name = Application.Workbooks(i).Name
Meldung = Meldung & Name & ", "
Next i
MsgBox Meldung
End Sub
auch wenn ich keine Lösung hab:
Wenn schon eine neue Anfrage (kanns ja verstehen, weil du und der Antoworter immer aneinander vorbei geredet habt), dann gib wenigstens den Hinweis darauf.
Oder ist das Zufall, 2 mal Anke mit dem gleichen Thema?
Gruß Boris
...ist eigentlich nicht ganz das gleiche Thema...vorhin habe ich nach den geöffneten workbooks gefragt...und alle Antworten dazu waren ja richtig...aber sie geben eben nur die Workbooks zurück, die in EINER Excel-Session geöffnet sind.
Also hab ich nochmal überlegt und festgestellt, das ich wohl meine Frage falsch formuliert habe...die richtige Fragestellung lautet denn: wie kann ich Alle geöffneten window handles auslesen...
Beispiel:
ich habe ich also "C:\temp" geöffnet in der Taskleiste und Excel "Mappe 1" und "Mappe 2" und eine weiter Excel Session mit Excel "Mappe 3"..dann möchte alle Namen der geöffneten Tasks in eine Listbox schreiben können...und, da gibst Du mir hoffenlich recht, das ist eine völlig andere Fragestellung...
Sorry nochmal, wenn das falsch rübergekommen sei sollte....
Liebe Grüsse,
Anke
Was ich brauche ist das:
Wie kann ich Alle geöffneten window handles (ich glaub so heissen die) auslesen...
Beispiel:
ich habe ich also folgende Dateien geöffnet in der Taskleiste:
"C:\temp"
Excel "Mappe 1" und "Mappe 2"
und eine weiter Excel Session mit Excel "Mappe 3"
..all diese Namen der geöffneten Tasks möchte ich in eine Listbox schreiben können...
...heulll...und keiner kann mir sagen wie das geht...
weißt Du vielleicht doch wie das gehen kann?
Liebe Grüsse,
eine verzweifelte Anke
Viel Erfolg noch!
Gruß Boris
Was ich brauche ist etwas anderes:
Stell Dir bitte vor ich habe auf meinem Rechner folgende Dateien geöffnet (zu sehen in der Taskleiste):
"C:\temp"
Excel (Session 1) "Mappe 1" und "Mappe 2"
Excel (Session 2) mit Excel "Mappe 3"
..all diese Namen der geöffneten Tasks möchte ich in eine Listbox schreiben können...
c:\temp
Mappe 1
Mappe 2
Mappe 3
hast Du ne Idee wie DAS klappt?
Liebe Grüsse,
eine verzweifelte Anke
Tschaui
wenn diese Workbooks nicht von einem Excel-Task geöffnet wurden, hilft IMHO nur noch die API. Da gibt es Funktionen, um alle Fenster durchzugehen und aufzulisten.
Gruß
Micha
...alle Excel-Files genügt mir...kannst Du mir das Bastelwerk zur Verfügung stellen?? Sind aber diesmal wirklich alle geöffneten Excel Dateien...egal wieviele Sessions, gell???
Liebe Grüsse,
Anke
Liebe Grüsse,
Anke
Erstmal Danke,
Anke
If Trim(sTitle) <> "" And InStr(1, sTitle, "xls") <> 0 Then
durch diese Zeiel ersetzten:
If Trim(sTitle) <> "" And InStr(1, LCase(sTitle), "xls") <> 0 Then
Gruß
Nepumuk
...Du bist mein Retter...das Proggy von Dir fand zwar auf meinem Rechner zuerst nicht einen einzigen Dateinamen....hab die Variable sTitle dann mal auf Typ Variant umgestellt, dann gings...jetzt werden aber auch nur ein paar gefunden...weeeeiiiillllll:
...beim debuggen hab' ich dann festgestellt, das Microsoft mit seiner Datei-Namensgebung verdammt einfallsreich ist...manchmal steht nämlich weder "Microsoft Excel", noch "xls" im Dateinamen...werde das mal gleich ein bissl umbauen...
...und dann teste ich das Ganze nochmal unter XP...wahrscheinlich werden die Dateinamen da noch einfallsreicher ;-)
Du hast mich auf jeden Fall gerettet...
nochmal superlieb: Danke,
ANKE
Dir jedenfalls auch nochmal lieben Dank für Deine Mühe..
Liebe Grüsse,
Anke
wenn ich eine Excel-Session geöffnet habe, und über den Button "Neu" eine neue Excel Standard-Mappe erzeuge, heissen die Dinger bis zum speichern nur Mappe1...Mappe2...etc....so ganz ohne Microsoft Excel davor oder xls dahinter...ist bei mir jedenfalls so...
Bei Dir auch?
Anke
Meine Exceldateien werden immer mit der Endung .xls gespeichert. Aber du hast bestimmt die Ordneroption "Dateinamenerweiterung bei bekannten Dateitypen ausblenden" aktiviert. Dann siehst du sie einfach nicht. Denn ohne die Endung .xls würde weder das Excelicon angezeigt, noch konntest du die Dateien, ohne den Dialog "Öffnen mit", durch Doppelklick mit Excel öffnen.
Was den reibungslosen Ablauf meines Programmes eher behindert, ist das Betriebssystem, da die API-Befehle direkt mit dessen Komponenten arbeiten. Momentan habe ich WindowsME installiert und bei mir lief es einwandfrei.
Gruß
Nepumuk (lt. Geburtsurkunde heiße ich wirklich so)