Office: Mehrere Dateien auswählen (Multiselect) und bearbeiten

Hallo (schon wieder),

ich möchte per GetOpenFileName mehrere Dateien auswählen (bis hierhin geht's) und dann nacheinander öffnen - bearbeiten - schließen -nächste öffnen (das klappt nicht)
Wie greife ich auf die per Multiselect ausgewählten Dateien zu?
(Das ganze betrifft Excel97)

Ich zähl' auf Euch,
Harry :-)

:)

 

Moin, Harry,

wie wäre es mit einer Prise Code - was läuft, was hast Du versucht?

 

Hallo jinx,
also hier mein ( also eigentlich Dein :-) ) Code:
Code:

Wenn ich jetzt in der Zeile dName = Application.GetOpenFilename("Textdateien (*.txt),*.txt"), so wie hier das Multiselct = True weglasse, dann funktioniert das ganze so weit - halt nur mit einer Datei. Ich möchte gerne mehrere oder alle Dateien in einem Verzeichnis bearbeiten. Allerdings hab' ich, wie in der Frage erwähnt noch nicht gefunden wie auf die per Multiselect gewählten Dateien zugegriffen werden kann.

So, mehr Probleme später :-)

Harry

 

Moin, Harry,

abhängig davon, ob es immer das gleiche Verzeichnis ist, das bearbeitet wird, könnte man den Pfadnamen fest vorgeben und per Schleife alle vorhandenen Dateien abarbeiten.

Auch wenn die Möglichkeit zur Mehrfachuswahl beim Beispiel gegeben war, konzipiert ist es zum Aufrufen nur einer Datei: der ersten, die dem Array übergebn wurde...

 

Hallo jinx,
(das nenn' ich ne Reaktionszeit - da kann sich manche Hotline ne Scheibe abschneiden)
bei einem Aufruf des Makros würde ein Verzeichnis reichen, aber beim nächsten Aufruf soll dann schon ein anderes Verzeichnis möglich sein.
Aber, wie greift man denn bitte auf die in der Matrix abgelegten Dateinamen zu???
Ich müßte doch die abgelegten Namen in einer Schleife abarbeiten können?
Oder gibt es noch eine andere (für dieses Vorhaben bessere) Möglichkeit ein Dateiauswahlfenster mit Multiselect-Möglichkeit zu öffnen?

Gruß,
Harry

 

Moin, Harry,

zum einen will ich erst einmal den Euphorismus wegen schnellen Beantwortens zerstreuen - zum anderen war die von mir erstellte Anweisung auch nur zum Öffnen einer Datei gedacht; der Code sieht kein Multi-Select vor!

Zur Erweiterung der Möglichkeiten der Hinweis auf

[/quote]


Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...

 

Moin, Harry,

zur Verdeutlichung des Scheiterns der Änderung in Deinem Code...
Im Origingal wurde die Variable dName als String vereinbart, ein Wert wurde eingelesen und abgearbeitet.
Durch die Änderung auf MultiSelect willst Du mehrere Werte einlesen, dann muß entsprechend die Variable für die Aufnahme von mehreren Datensätzen vorbereitet als auch die weitere Verarbeitung darauf abgestimmt werden, z.B. per dName(i), wobei i dann die Anzahl der vorhandenen Sätze darstellt.

 

Hallo,
das das Beispiel nur für eine Datei gedacht war hatte ich verstanden. Deshalb ja auch meine Frage nach der Zugriffsmöglichkeit auf die in der Hilfe erwähnte Möglichkeit der Multiselect-Eigenschaft.
Wenn ich doch durch ein kleines "True" in dem Dialog mehrere Dateien auswählen kann, muß ich doch auch irgendwie an die Dateinamen herankommen?
Also werde ich 'mal Deinen Vorschlag mit dName(i) ausprobieren.
Das Codebeispiel funktioniert nur teilweise - soll heißen, nur wenn ich die zwei Declare Function ... Zeilen auskommentiere. Sonst erscheint die Fehlermeldung:
Fehler beim Kompilieren.
Nach End Sub, End Function oder End Property sind nur Kommentare möglich. ???

Ich hoffe ich nerve noch nicht allzusehr :-)

Harry

 

Hallo Harry,

da der Moderator des Forums, jinx, wahrscheinlich erst heute nachmittag wieder da ist, vorab eine Anregung von mir:
Der Hinweis, daß nach "End Sub" etc. nur Kommentare möglich sind, erscheint meist nur dann, wenn versehentlich zweimal "End Sub" etc. da steht (oft kopiert man einen Code in das Fenster und vergißt, daß Excel automatisch "Sub" und "End Sub" vorgibt und schon steht es zweimal im Code).

 

Hallo Peppi,

das hier steht da:

Private Sub UserForm_Click()
'StandardModule: basMain

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
hier geht's weiter...

An der Stelle Declare... meckert der Kompiler.
Wenn ich die Zeilen auskommentiere geht's ???

(Ich soll ja nichts zu Eurer Reaktionszeit sagen... :-)) )

Danke,
Harry

 

Hiiiilfe. Ich glaube, der Moderator des Excel-Forums knüpft mich heute abend auf, wenn er kommt und sieht, daß ich mich hier eingemisch habe.... *lachen2.gif*

Ich muß ganz ehrlich gestehen, daß ich in vba nun wirklich nicht fit bin. Meine Anmerkung beruhte nur auf eigenen (Anfänger)-Erfahrungen.

Was ich auch aus eigener Erfahrung gelernt habe: Nimm mal in der Declare-Anweisung den Unterstrich weg, so daß alles in einer Zeile steht.
Hilfe, ich glaube, jetzt werde ich wieder geschlagen....
Ich gehe jetzt lieber, und Du wartest doch, bis jinx wieder da ist...

Schönen Tag noch,

 

Hallo peppi,
also ich hab's mal ausprobiert - hat leider nicht geholfen.
(Soviel ich weiß ist der Unterstrich auch genau dafür da)

Trotzdem danke,
schönes Wochenende,
Harry

 

Moin,

eine Vorbemerkung: ich reiße niemandem den Kopf ab und knüpfe auch niemanden auf (P.S:: heute abend kommt mal wieder "Spiel mir das Lied vom Tod" im privaten Fernsehen) - auch wenn es sich ab und zu mal so anhören sollte.
Aber generell halte ich nur Sachen, die ich selbst verspreche (zu mindestens 75% jedenfalls) - Versprechungen anderer (mögen sie auch von anderen Moderatoren kommen) obliegen dieser Sorgfaltspflicht nicht (Energie- und Einsatzlevel geht tendenziell gegen 0%)...

So könnte es laufen:

Code:

 

Hallo jinx,
vielen Dank,
jetzt klappts wie am Schnürchen...
(So hatte ich mir das erhofft :-) )

Suuuuuper !!!

Danke, und bis zum nächsten mal...

Harry