Datenimport aus Access bei jedem Öffnen neu abfragen

[Donebi]

Guten Abends zusammen,

wir würden gern für ein Projekt Tabellen aus Access in Excel importieren. Nun wollen wir das so machen, dass die zu importierende Access Datei manuell über einen Button festgelegt werden soll. Hat das von euch jemand schon gemacht oder hat da Ahnung davon?

Gruß Thomas

[GMG-CC]

Moin,
wenn ich deine Überschrift als Priorität setze:
Daten-Neue Abfrage-Aus Datenbank-Aus ...Access
Und wenn du dann (außer der Reihe) aktualisieren willst, dann gibt es einen fertigen Menüpunkt (Schaltfläche) dafür.

[schauan]

Hallo Thomas,

wenn Du die Daten der verschiedenen Datenbanken an verschiedenen Stellenablegen kannst, dann geht es bestimmt auch so, wie Günter schreibt und Du brauchst m.E. keinen extra Button.

Wenn Du jedoch an gleicher Stelle unterschiedliche Daten willst, geht das wohl nicht ohne Makro.

[Donebi]

Danke erstmal für die Antworten!

Ja genau den "normalen Weg" kenn ich auch.

Wir wollen eben im Rahmen von einem Tool erstellen, dass der Benutzer via Button bzw. ähnliches die Datenbank auswählen kann.

Gruß THomas

[GMG-CC]

Moin,
dann ist es typischerweise der "normale Weg", den Vorgang einmal mit dem Makrorecorder aufzuzeichnen, das Ergebnis eventuell etwas nachzuarbeiten und dann den Namen der Prozedur in "Sub Workbook_Open()" umzubenennen.

Hinweis: Du ersparst und Helfern unnötige Arbeit, wenn du deinen Wissensstand und eventuelle (Miss-) Erfolge im Vorwege mitteilst.

[Donebi]

Danke für den Hinweis, werd nächstes mal drauf achten.

Das wäre natürlich die einfachste Lösung, da hab ich zu kompliziert gedacht...Er gibt mir nur eine Fehlermeldung aus jetzt, vielleicht wisst ihr was da falsch läuft

Das Makro läuft jetzt so ab dass er in die Mappe mit der alten Tabelle geht, die rauslöscht und dann wieder die neue importiert. Überschreiben kann er das scheinbar nicht desshalb habe ich es mal so probiert. Ich hänge mal 2 bilder von dem Fehler und dem Debugger an.

[schauan]

Hallöchen,

du bist beim Ausführen nicht auf dem Blatt, daher funktioniert das Auswählen nicht.
Du musst schauen, das alles mit Select... und ActiveSheet ersetzt wird oder vorher das Blatt aktivieren.

Ersteres machst Du so:
Ziehe die ersten beiden Zeilen zusammen. Entferne Select und Selection und eventuelle Leerzeichen und wo dann zwei Punkte stehen nimmst Du noch einen weg.
Entferne die 3 anderen Zeilen wo was mit Select oder Selection steht.

ActiveSheet ersetzt Du durch Sheets("Report")


Ich hoffe mal, dass das alles abdeckt - sonst frag einfach nochmal.

[Donebi]

Also dein tipp hat leider nicht geklappt, habs mal den button ins gleiche Arbeitsblatt eingefügt da funktioniert alles wunderbar! Hab's jetzt mal anders geschrieben nach meine logik sollte es so eigentlich klappen aber er zeigt immer noch fehler an...Habt ihr ne Ahnung?

[schauan]

Hallöchen,

da bist Du wieder auf einem anderen Blatt.

Wenn Du unbedingt bei Select bleiben willst, dann mach das in 2 Schritten:

Sheets("...").Select
Range("...").Select

oder, wie gesagt, mach's ohne Select und Selection ...