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

Hallo Forum, freut mich hier zu sein und ich hab' gleich mal eine Frage:.

Ich möchte eine Datenbank aufsetzen, in die in regelmäßigen Abständen Daten aus Excel Listen eingelesen werden.

Ich habe im Web ein passendes Beispiel gefunden, nämlich hier: MS Access 2007 für Fortgeschrittene (2): VBA-Programmierung

Ich habe, wie dort beschrieben, ein Formular mit einem Listenfeld angelegt und einer Schaltfläche, über die die Exceldateien ausgewählt werden, das funktioniert auch.

Über eine weitere Schaltfläche will ich die Verarbeitung der Daten starten, die entsprechende sub ist im Formular gespeichert, das sieht wie folgt aus:

Code:

Die Funktionen, die hier aufgerufen werden, sind in einem Modul gespeichert, welches wie folgt beginnt:

Code:

Leider passiert beim Aufruf der Funktionen im Modul überhaupt nichts, das Script wird beendet und Excel wird nicht gestartet. Es wird keine Fehlermeldung ausgegeben.

Woran kann das liegen? (An den Verweisen liegt es wohl nicht, die sind gesetzt.)

(PS: Ich habe über die Suchfunktion nichts passendes gefunden, möglicherweise habe ich den geeigneten Strang aber auch übersehen, sorry wenn dem so ist.)

Dankeschön! :-)

:)

 

1.) "Excel wird nicht gestartet"
Hast du das im Taskmanager überprüft ?

2.) Ist eine Auswahl in der Liste getroffen ?

3.) Schalte mal auf sichtbar

Code:

 

Das bringt leider auch nichts.
Ich hab mal testweise eine MsgBox an den Anfang der ersten Funktion im Modul gesetzt, die wird auch nicht angezeigt.
Es ist, als würde die Funktion erst gar nicht aufgerufen.

 

Hast du überprüft, ob die Event Prozedur cmdImport_Click aufgerufen wird?

Wenn ja, sollte es möglich sein, per Debug zu prüfen, warum die Prozedur GetXLSdata nicht aufgerufen wird.

 

Ja, die wird aufgerufen.

Hmm..
Hab mal einen Haltepunkt am Anfang von cmdImport_Click() gesetzt und dann in Einzelschritten weiter.
Er springt direkt von "For Each varItem In FileList.ItemsSelected" zu "End Sub"

Die Dateiauswahl sieht so aus:
Code:

Was ist da falsch?

 

Hallo,

mein erster Verdacht: die Items werden zwar angefügt, aber nicht selektiert und daher nicht abgearbeitet...

Gruß
Fred

 

Um Freds Bedenken nachzugehen, könnte (beispielhaft) ein
Code:

Licht ins Dunkle bringen.

 

siehe ->

Wenn in der Liste nichts angeklickt wurde, dann ist da nichts da für die Schleife.

Mal wieder einer dieser nutzlosen Rückmeldungen...

 

Hallo,
Ein explizites Zuweisen der RowSourceType - Eigenschaft
Code:

vor der Schleife könnte vielleicht helfen.
gruss ekkehard

 

Licht ins Dunkle bringen.

Code:

gibt den Wert "0" zurück, da scheint also der Fehler zu sein.
In FileList sind die Pfade und Namen der ausgewählten Dateien aber enthalten, unter "Row Source".

Wie bekomme ich die an die richtige Stelle?

Sorry, ich bin in VBA noch ziemlich unbedarft.

 

vor der Schleife könnte vielleicht helfen.
gruss ekkehard

Sorry, aber vor welcher Schleife?

 

Hallo,

O.K., der RowSourceTyp ist wohl schon fest eingestellt.
Dann hilft vielleicht dies
Code:

Dazu muss die Liste wahrscheinlich auf erweiterte Mehrfachauswahl eingestellt sein.

gruss ekkehard

 

\@ekkehard:

Hab ich eingebaut, das hat aber leider auch kein anderes Ergebnis gebracht.

 

Ich weiß nicht, wie deutlich man es dir noch sagen muss.
Mittlerweile haben schon 3 Leute darauf hingewiesen (ich ganz am Anfang mit Punkt 2.) ), dass in der Liste nichts ausgewählt ist.
Klicke doch mal auf einen Eintrag der Liste, die Auswahl wird schwarz und starte dann deine Routine zum Aufruf der Excel bzw. zum Bereinigen und Schreiben.
Wenn alle Files der Liste durchgegangen werden sollen, dann verzichte auf das ItemsSelected und geh alle Einträge der Liste durch.
Code:

Oder verzichte ganz auf die Liste und rufe deine SUB bereits im FileDialog auf in der Schleife.

 

Auch wenn ich die ausgewählten Dateien dann noch mal anklicke und die Einträge dann schwarz sind:
Wenn das Programm zu Zeile
Code:

kommt, verschwindet die Schwärzung wieder und die Routine wird beendet, also alles wie gehabt. *frown.gif*