Access Excel Daten Import | Herbers Excel-Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich denke mal ADO!? Siehe Code, das Skript wird aufgerufen, sobald ich in B2 per Dropdown-Menu eine neue strID auswähle:
(leider weiß ich nicht, wie man im Editor Codeanfang/-ende setzt)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim strID As String
Application.ScreenUpdating = False
strID = "'" & Target.Value & "'"
Import strID
Application.ScreenUpdating = True
End Sub

Sub Import(ByVal strID As String)
Dim Row As Integer, Col As Integer
Dim lngCalcStatus As Integer
Dim wksExcel As Worksheet
Dim strProject As String, strDBFile As String
Dim strBereich As String
Dim AllSheets As Variant, CurrentSheet As Variant
Dim AccessCnn As New ADODB.Connection, AccessRs As New ADODB.Recordset, AccessSQL As String
AllSheets = Array(x, y, z) ' hier stehen die einzelnen Sheets
strProject = ThisWorkbook.Worksheets(1).Range("B6").Value
strDBFile = ThisWorkbook.Path & "\..\1 Report DB\" & strProject & " Report DB.mdb"
'Kalkulationseinstellungen abfragen und auf manuell setzen
lngCalcStatus = Application.Calculation
If lngCalcStatus <> -4135 Then Application.Calculation = xlCalculationManual
'Access-Verbindung aufbauen und DB-File öffnen
AccessCnn.Provider = "Microsoft.Jet.OLEDB.4.0"
AccessCnn.Open strDBFile
For Each CurrentSheet In AllSheets
Set wksExcel = ThisWorkbook.Worksheets(CurrentSheet)
strBereich = "A15:" & Split(wksExcel.UsedRange.Address, ":")(1)
wksExcel.Range(strBereich).Clear
AccessSQL = "Select * FROM " & CurrentSheet & " WHERE ID = " & strID
AccessRs.Open AccessSQL, AccessCnn, adOpenDynamic, adLockOptimistic
Row = 15
wksExcel.Cells(Row, 1).CopyFromRecordset AccessRs
Set AccessRs = Nothing
Next CurrentSheet
Set AccessRs = Nothing
Set AccessCnn = Nothing
Application.Calculation = lngCalcStatus
End Sub Zusätzlich zum Leerzeichenproblem würde ich gerne noch wissen, wie ich in Excel in Zeile 14 die Header des Rekordsets schreibe. Geht das auch per CopyFromRecordset oder brauche ich dafür eine "for col = 1 to accessrs.fields.count -> cells (14, col) = accessrs.fields(col -1).name"-Schleife?
Viele Grüße

Hallo Boris,
- ADO oder DAO,
Mit Office 2000 hat Microsoft ADODB eingeführt, um besseren Zugriff auf die Daten des MS-SQL-Servers zu erreichen und DAO sollte der Vergangenheit angehören. Auch ich glaubte an diese Idee und stieg auf ADO um. Wenn man allerdings nur innerhalb von Access programmiert, merkt man, daß man mit ADO mehr Vba-Code schreiben muß als mit DAO. Mit Office 2007 hat MS aber den DAO-Zugriff aufgebohrt und erweitert, so daß ich es jetzt wie folgt mache:
reine Access-Programmierung: DAO
Excel-Access bzw. Access-Excel: ADO
Zugriff auf SQL-Server: ADO, da es im Inet dazu mehr Beispiele gibt als zu DAO
- Set AccRs = Nothing und AccRs.Close
In AccRs stehen die Daten der eröffneten Abfrage und diese sollte man auch wieder schließen mit AccRs.Close
Immer wieder höre ich die Meinung das 'Set AccRs = Nothing' nicht erforderlich sei, da mit ,Abschluß der
Prozedur dieser Befehl automatisch vom Programm ausgeführt wird. Ich halte nicht viel von dieser Meinung, da sich Standard-Prozesse auch mal ändern können und dann wundert man sich, warum es auf einmal Fehlermeldungen gibt. Ich räume meine Vba-Prozedur auf, bevor sie verlassen wird. Dazu gehört, das man definierte Objektvariablen wieder entfernt.
- 2 Variablen kann man problemlos hintereinander definieren
Das ist selbstverständlich möglich. Man kann sogar am Zeilenende mit , _ die Definition von Variablen fortsetzen, ohne den Dim-Befehl zu wiederholen
Das mit den zusätlichen Zeichen in der Access-Tabelle ist natürlich doof.
Ich würde trotzdem .CopyFromRecordset benutzen und die Daten einzulesen und im Nachgang die Leerzeichen aus der Exceltabelle entfernen; bastle gerade an einem Beispiel.
Gruß von Luschi
aus klein-Paris

Sub importFromAccess_ADO() Dim accConn As New adodb.Connection Dim accDB As String Dim accRS As New adodb.Recordset Dim excelRg As Range Dim accAbfrage As String Dim j As Long, lZeile As Long accDB = ThisWorkbook.Path & "\" & "Export.mdb" 'erstellt eine SQL-Abfrage, die 6 Datenbankfelder berücksichtigt und nach FELD1 sortiert accAbfrage = "Select Datum, Kunde, Artikel, Anzahl, Preis, Total from [Export to Access] _ order by Datum;" 'Access-Datenbank-Verbindung accConn.Provider = "Microsoft.Jet.OLEDB.4.0" accConn.Open accDB accRS.Open accAbfrage, accConn, adOpenDynamic, adLockOptimistic With ActiveSheet 'alles löschen in der aktiven Tabelle .Rows("1:" & .Cells(.Rows.Count, 2).End(xlUp).Row).Delete Set excelRg = .Range("B2") End With If accRS.EOF = True Then MsgBox "kein Datensatz gefunden" ActiveSheet.Range("B2").Select Else accRS.MoveFirst With ActiveSheet .Cells(1, 1).Value = "lfdNr." For j = 2 To 7 .Cells(1, j).Value = accRS.Fields(j - 2).Name Next j excelRg.CopyFromRecordset accRS lZeile = .Cells(.Rows.Count, 2).End(xlUp).Row For j = 2 To lZeile .Cells(j, 1).Value = "'" & (j - 1) & "." Next j End With End If accRS.Close accConn.Close Set accRS = Nothing Set accConn = Nothing Set excelRg = Nothing Call loescheLZ(ActiveSheet, "C", 2, lZeile) Call loescheLZ(ActiveSheet, "D", 2, lZeile) End Sub Sub loescheLZ(ws As Worksheet, xSPalte As String, startZeile As Long, zielZeile As Long) Dim rg1 As Range, rg2 As Range Set rg1 = ws.Range(ws.Cells(startZeile, xSPalte), ws.Cells(zielZeile, xSPalte)) For Each rg2 In rg1 rg2.Value = Trim(rg2.Value) Next rg2 Set rg1 = Nothing Set rg2 = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Access Excel Daten Import | Herbers Excel-Forum

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread