Anzeige
Archiv - Navigation
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel -> Access mit ADO

Excel -> Access mit ADO
16.05.2008 10:58:17
Martin
Hallo, ich habe folgendes Problem. Ich möchte per VBA / ADO Daten aus einer Excel Tabelle in Access überführen. Dazu benutze ich folgendes Script (nur Auszug). Da ich insgesamt viele Tabellen mit vielen Spalten habe, wollte ich fragen ob einer eine Idee hat, wie man ganze Tabellenbläter überführt ohne die einzelnen Spaltennamen angeben zu müssen.
Danke Euch!

Sub DatenübernahmeNachAccess()
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
Dim LetzteZeile As Integer, LetzteSpalte As Integer
Dim i As Integer
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Test\TEST_DB.mdb;"
DBS.Open "OAAbatementModifier", ADOC, adOpenKeyset, adLockOptimistic
On Error Resume Next
Do Until DBS.EOF
DBS.Delete
DBS.MoveNext
Loop
Sheets("OAAbatementModifier").Activate
Range("A10").Select
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 10 To LetzteZeile
DBS.AddNew
DBS!PropID = ActiveCell.Value
DBS!VersionID = ActiveCell.Offset(0, 1).Value
DBS!AbatemodifierID = ActiveCell.Offset(0, 2).Value
DBS!Name = ActiveCell.Offset(0, 3).Value
DBS!SortOrder = ActiveCell.Offset(0, 4).Value
DBS!Base = ActiveCell.Offset(0, 5).Value
DBS!Step = ActiveCell.Offset(0, 6).Value
DBS!Porters = ActiveCell.Offset(0, 7).Value
DBS!Miscellaneous = ActiveCell.Offset(0, 8).Value
DBS!CPI = ActiveCell.Offset(0, 9).Value
DBS!Sales = ActiveCell.Offset(0, 10).Value
DBS!Reimbursement = ActiveCell.Offset(0, 11).Value
DBS.Update
ActiveCell.Offset(1, 0).Select
Next i
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel -> Access mit ADO
16.05.2008 12:38:55
c0bRa
Hio...
ist zwar ein DAO-Schnipsel aus einem alten Programm, aber sollte als Denkanstoß reichen:
VBA-Code aus Microsoft Excel Objekt Tabelle1:
For i = 0 To RS.Fields.Count - 1
    Sheets("test").Cells(1, i + 1).Value = RS.Fields(i).Name
Next
j = 2
RS.movefirst
If RS.RecordCount >= 1 Then
    While Not RS.EOF
        For i = 1 To RS.Fields.Count
            Sheets("test").Cells(j, i).Value = RS.Fields(i - 1)
        Next
        j = j + 1
        RS.MoveNext
    Wend
End If
in die Erste zeile schreibt er die Benamung der Felder und ab der zweiten fügt er dann die Daten ein.
Rückmeldung nicht vergessen...
c0bRa
Ein Fachmann ist jemand, der immer mehr über immer weniger weiß, bis er zuletzt alles über nichts weiß.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige