Office: Excel nach Access

Hallo Forum,
wer kann mir sagen, wie man diesen Code abändern muß, um nicht nur einen Datensatz zu kopieren, sondern das ganze Tabellenblatt auf einmal nach Access kopieren kann.

Code:

im voraus herzlichen Dank

Buggy

:)

 

Moin, Buggy,

wie viele neue Datensätze kannst Du denn über diesen Ansatz gleichzeitig anlegen? Einen, wenn ich mich nicht täusche (rs.AddNew) - ein möglicher Ansatz wäre das Einbinden der Tabelle in Access und das Nutzen einer Anfügeabfrage...

 

Hallo jinx,
danke für deine Antwort,
aber genau diese Methode möchte ich nicht nutzen.

mfg.Buggy

 

Hallo Buggy,

ich hab mal einen Ansatz für dich:

Code:

Die Zeile Access.DoCmd... kopiert das Tabellenblatt nach Access. Dazu muss im Excel-Modul ein Verweis auf Access gesetzt sein.

Die .ldb schließt sich übrigens erst nach Verlassen von Excel wieder.

Vielleicht hilft dir das ja weiter...

 

\@Armin,
ich muss mal etwas klugsch ...
Es bleibt nicht nur die *ldb stehen, sondern auch der Access Prozess (was eher ungünstig ist *Smilie)
Ursache ist ein falscher Verweis:
Richtig: Code:

Außerdem sollte man überlegen, ob man den Verweis auf Access setzt. Hat man auf dem Zielrechner eine andere Accessversion (im Netzwerk u.U. viele verschiedene) läuft der Code gg. die Wand.
Bei nachfolgendem Code kann man auf den Verweis verzichten Code:

 

\@Steffen

Jein! Du hast natürlich Recht, dass es eigentlich
AccApp.DoCmd.TransferSpreadsheet...
heißen sollte. Ist einfach sauberer *cool.gif*

Allerdings ändert das nichts an dem Verhalten, dass die .ldb stehen bleibt (und somit letztlich auch der Access-Prozess, denn die .ldb bleibt ja nur solange stehen, wie der Access-Prozess läuft)

Die Lösung dafür ist natürlich...
Code:

... Set AccApp = Nothing (beendet die Verbindung zum Access-Objekt) *rolleyes.gif*

Der Verweis mit

HTML:

    Dim AccApp As Object
Const acimport = 0
Const acSpreadsheetTypeExcel9 = 8

funktioniert dagegen *boah - das gehört also in den Deklarationsbereich.
Man muss immer wieder feststellen, dass man nicht alles weiß... *biggrin.gif*

 

Hallo Armin,
ich kann nicht bestätigen, dass mit dem angepassten Code ein Prozess hängen bleibt.
Dies darf auch gar nicht sein, denn so knallt es spätestens beim nächsten Aufruf.
Wird das Accessobjekt global (außerhalb der Prozedur) deklariert beendet Code:

Access ansonsten die Prozedur selbst.
Bei mir läuft der Code sauber durch - und das ist gut so *wink.gif*

 

@Steffen

Also in diesem Punkt brauchen wir nicht diskutieren. Der Prozess bleibt hängen. Auch mit dem abgeänderten Code (s.u.). Set AccApp = Nothing ändert das Verhalten. Ob das auf deinem System anders ist, kann ich nicht beurteilen. Vielleicht hast du eine andere Office-Version (ich hier: Office 2000). Beim nächsten Aufruf knallt es nicht, wenn Excel oder besser die Mappe zwischendurch geschlossen wird.

Code:

Ich hab's mehrfach ausprobiert und die letzte Zeile auskommentiert und dann wieder aktiviert, um sicher zu sein. Das Ergebnis bleibt. Nur wenn die letzte Zeile drin steht, verschwindet auch die .ldb ... *rolleyes.gif*

 

Aha, sehe gerade, du hast noch eine Änderung eingebaut.

AccApp.Quit funktioniert natürlich auch *grins