gelöst Export mit VBA von Excel nach Access

Mitglied: fcmfanswr

fcmfanswr (Level 1)

27.08.2007, aktualisiert 28.08.2007, 16849 Aufrufe, 2 Kommentare

Hallo,

Ich habe einen Excel-Sheet, den lasse ich automatisch formatieren, nach der formatierung soll er automatisch in eine access-Datenbank exportiert werden und dort als neue tabelle gespeichert werden.

kann mit jemand helfen und sagen, wie das geht?

ich hab schonmal rumprobiert, aber geht irgendwie nicht:


Dim dbsExport As Database
Dim rstImport As Recordset
Set dbsExport = OpenDatabase("c:\Documents and Settings\dkx\Desktop\db.mdb")
Set rstImport = dbsExport.CreateTableDef("TestTable") -> das klappt nicht!

(falls es wichtig ist: die Microsoft DAO Objekt Libery habe ich schon hinzugefügt)

Vielen Dank im Vorraus.
Mitglied: fcmfanswr
28.08.2007 um 15:53 Uhr
naja auch wenn keiner geantwortet hat, so hats bei mir geklappt:

'als Verweis: -> MS DAO 3.6. xxx
' -> MS Access xxx

Dim db As Access.Application

Set db = CreateObject("Access.Application") ' Objekt erstellen
db.OpenCurrentDatabase (TextBox2.Value) ' Datenbank öffnen

DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel9, tablename:="Tabellenname", Filename:="Pfad der Datenbank", Hasfieldnames:=True

DoCmd.Close
Mitglied: Biber
28.08.2007 um 21:22 Uhr
Moin fcmfanswr,

Danke für das Posten Deiner selbst gefundenen Lösung.

Es war auch mit Sicherheit nicht persönlich gemeint, dass niemand anderes geantwortet hat und es lag auch nicht an einer unklaren Frageformulierung oder so ... Du warst einfach schneller als der Rest des Forums.

Und das Veröffentlichen der Lösung kann auch für andere von Nutzen sein.

Also nochmal vielen Dank für
  • die saubere und verständlich Frageformulierung,
  • das Posten der Lösung
  • und das Setzen des "Grünen Hakens"
- vorbildlich!!.
Okay, meckern könnte ich noch mit dem "Vielen Dank im Vorraus.", aber was solls...

Schönen Abend und ich schließe den Thread
Biber
Titel: Export mit VBA von Excel nach Access
Content-ID: 67192
Art des Inhalts: Frage
Ausgedruckt am: 28.10.2020 um 03:45:33 Uhr
URL: https://administrator.de/contentid/67192