Office: (Office 2016) Aufruf von Sub im Modul funktioniert nicht

Hab was gefunden.

Wenn ich diese Zeile Code:

weg lasse geht es, warum auch immer. *Smilie

Danke Euch für Tipps und Geduld.

 

Ich weiß nicht wo du das eingebaut hast.

Die Zeile ist eh überflüssig.
Wäre die Liste nicht auf Wertliste, könntest du über AddItem keine Pfade der Files in die Liste anfügen.
Vermutlich wird bei der Zuweisung der Art der LIste auf Wertliste die LIste neu initialisiert und die Einträge verschwinden.

Außerdem habe ich dir einen alternativen Code gezeigt, wo die Selektion keine Rolle spielt und einfach das abgearbeitet wird, was in der Liste steht.

 

Hallo,
@Fred

Worauf ich bereits in #12, leider nicht deutlich genug, hingewiesen habe.
Ausserdem war mein Vorschlag gewesen, diese Zeile vor die Schleife
zu schreiben.

@Sven
Hast du Freds Vorschlag nicht ausprobiert?

gruss ekkehard

 

Nein, bisher noch nicht.
Es ging mir vor allem darum zu verstehen, wo der Fehler in dem von mir benutzten code lag.
Letztlich werde ich diesen aber wohl nicht benutzen, das mit der doppelten Dateiauswahl ist ja alles andere als benutzerfreundlich.

Des Beispiel von Fred schau ich mir die kommende Woche mal genauer an.

 

Hallo Sven,

ich persönlich halte diesen Weg über die Listbox für "wenig hilfreich", aka ziemlich untauglich. Du kannst zwar mit der Methode AddItem Einträge dazufügen, aber ich habe bislang keine Methode SelectItem oder so ähnlich gefunden. Damit bleiben alle Einträge unselektiert und können damit auch nicht in den selektierten auftauchen.

Daher sehe ich momentan 3 Optionen:
1. Da, wo Du bislang das AddItem aufrufst, hast Du den Dateinamen inkl. Pfad, also kannst Du auch gleich alles für diese Datei aufrufen, also GetXLSData, CleanXLSData,WriteXLSData und was weiß ich noch alles. Wenn das für die Datei durch ist, nimmst Du Dir die nächste gewählte Datei vor.
2. Du schaffst Dir eine Tabelle für die Exceldateien, die Du vor der Bearbeitung leerst und dann die die gewählten Einträge aus dem Filedialog nacheinander einträgst. Bei 5 Dateien 5 Datensätze, bei 100 halt 100. Danach kannst Du diese Datensätze von oben nach untern oder wie auch immer abarbeiten.
3. Anstelle der Tabelle nimmst Du ein Array, sonst gleiches Vorgehen wie mit der Tabelle.

Wenn die Listbox dem User nur zeigen soll, welche Dateien gewählt wurden, kann man sie drin lassen, ansonsten wirf sie einfach raus. Funktional wird sie für die Verarbeitung nicht benötigt.

Gruß
Fred

 

Hallo Fred,

letztlich wird das bei der fertigen Datenbank so aussehen, dass 1-2 mal pro Woche Daten aus einer xls-Tabelle hinzugefügt werden sollen

Diese Datei wird vom Benutzer nur für den Import in Access erzeugt und da er sie dann eh benennen und speichern muss, kann er sie dann gleich unter dem immer gleichen Namen am immer gleichen Ort speichern.

Dann braucht es keine Dateiauswahl mehr, in Access reicht dann für den Import ein einziger Click.

Und da ich eh nicht so der VBA-Crack bin, ist "keep it simple" ja angesagt.

 

Code:

Das ist aber auch nur so, weil der der vorm Screen saß, das so programmiert hat .. *wink.gif* und eine andere Aufgabestellung hatte.