Office: (Office 2016) Excel Daten in Access Tabelle importieren

Helfe beim Thema Excel Daten in Access Tabelle importieren in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; M, S und A sind Aliasnamen, damit das Ganze was kürzer und übersichtlicher ist. Die Abfrage hat den "echten" Namen im Hintergrund parat, im... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Andreas_80, 4. Februar 2018.

Seite 3 von 4

MAIKEK

maikek

Excel Daten in Access Tabelle importieren

M, S und A sind Aliasnamen, damit das Ganze was kürzer und übersichtlicher ist. Die Abfrage hat den "echten" Namen im Hintergrund parat, im SQL-Statement gibt es den ja auch an der Stelle
Code:

... tbl_Auftrag AS A ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in der tbl_Auftragsstatus sind 2 Spalten die ID und der Status. z.B Bearbeitet oder Offen oder Gelöscht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die benutzt du aber in der Abfrage überhaupt nicht, weder als Spalte noch als Kriterium.
Wenn die Abfrage beim Ausführen nicht meckert und die richtigen Daten anzeigt, dann bin ich ehrlich gesagt auch überfragt, warum das beim Export nicht klappt.
Teste doch einfach mal den Export der Abfrage nur mit einer Tabelle, dann mit zweien, dann ... , um herauszufinden, ab wann es knirscht.
maike

maikek, 9. Februar 2018

#31
ANDREAS_80

Andreas_80

Guten Morgen allerseits,

vielen Dank Maike für deine Mühe, Freitag war einfach schon zu viel für mich, hatte so viel im Kopf das ich nicht einmal mehr wusste wie ich an einem Windows PC den User wechseln kann... hahah

Stimmt in der Abfrage werde ich höchst wahrscheinlich die Tabelle Auftragsstatus gar nicht brauchen. Lag wohl daran das ich die Selbe Struktur für eine ähnliche Abfrage genutzt habe.
Ich werde es auch jeden fall mal so versuchen wie du es vorgeschlagen hast.

Allerdings bleibt noch eine Frage offen.
In den Formular das auf dieser Abfrage basiert habe ich einige Texfelder die als Suche dienen. Wenn ich zum Beispiel einen Buchstaben "M" ins Textfeld "txtVorname" eingebe werden mir alle Datensaätze Angezeigt bei denen der Vorname mit "M" beginnt. Nun sollen durch den "Export-Butten" auch nur die Datensätze exportiert werden die Angezeigt werden.

Nach dem ich deine Verbesserung der SQL-Abfrage eingepflegt hatte wurde mir immer der gesammte Datensatz ausgegeben. Egal ob ich nach etwas gesucht hatte oder nicht.
Ich denke das dafür etwas im VBA Code geändert werden muss.

Andreas_80, 11. Februar 2018

#32
MAIKEK

maikek

In den Formular das auf dieser Abfrage basiert habe ich einige Texfelder die als Suche dienen. Wenn ich zum Beispiel einen Buchstaben "M" ins Textfeld "txtVorname" eingebe werden mir alle Datensaätze Angezeigt bei denen der Vorname mit "M" beginnt. Nun sollen durch den "Export-Butten" auch nur die Datensätze exportiert werden die Angezeigt werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was passiert denn nach der Eingabe? Wird ein Filter gesetzt für das Formular? Oder hast du in der Abfrage noch Kriterien in der Art von "Wie Formulare!DeinFormular!txtVorname"?
Ich bin mir nicht sicher, ob letzteres beim Export berücksichtigt wird.
Vermutlich ist es das Beste, die Methode CopyFromRecordSet anzuwenden und auf die Art das (gefilterte) Formularrecordset zu exportieren.
Ein Codebeispiel findest du hier: http://www.ms-office-forum.de/forum/...d.php?t=260414
maike

maikek, 11. Februar 2018

#33
ANDREAS_80

Andreas_80

Excel Daten in Access Tabelle importieren

Ach schade Maike,

ich bekomm den Code aus deinem Link nicht zum laufen.
Ich habe auch kein Unterformular. Ich habe in der Abfrage nur ein Kriterium und das ist Sortieren beim namen aufsteigend...

Andreas_80, 13. Februar 2018

#34
ANDREAS_80

Andreas_80

Code:

Option Compare Database
Option Explicit

Private Sub cboStatus_Change()

Status = Me.cboStatus
Auftragsstatus = Me.cboAuftragsstatus
End Sub

Private Sub cmdImport_Click()
Dim FSO As New FileSystemObject

If Nz(Me.txtfilename, "") = "" Then
MsgBox "Bitte Datei öffnen!"
Exit Sub
End If

If FSO.FileExists(Nz(Me.txtfilename, "")) Then
ExcelImport.ImportExcelSpreadsheet Me.txtfilename, FSO.GetFileName(Me.txtfilename)
Else
MsgBox "Eine Datei mit diesem Namen existiert nicht!"
End If
Me.txtfilename = ""
End Sub

Private Sub cmdÖffnen_Click()
Me.txtfilename = DateiAuswaehlen
End Sub

Private Sub Form_Load()
Me.txtVorname.SetFocus
End Sub

Private Sub Bemerkungsfeld_DblClick(Cancel As Integer)
Dim textfeld As TextBox
Set textfeld = Me.ActiveControl
uf_Bemerkungen.tb_Bemerkungen.Text = textfeld.Text
uf_Bemerkungen.Show
If uf_Bemerkungen.abbruch = False Then _
textfeld.Text = uf_Bemerkungen.tb_Bemerkungen.Text
End Sub

Private Sub cmdExport_Click()

' On Error GoTo Err_cmdExport_Click
' Dim sSQL As String
' Dim qdf As DAO.QueryDef
'
' sSQL = "SELECT * " & "FROM " & Me.RecordSource & " WHERE " & Me.Filter
' If Not QueryExists("DatenExport") Then
' Set qdf = CurrentDb.CreateQueryDef("DatenExport", sSQL)
' Else
' CurrentDb.QueryDefs("DatenExport").SQL = sSQL
' End If
' DoCmd.OutputTo acOutputQuery, "DatenExport", acFormatXLS, , True
' DoCmd.DeleteObject acQuery, "DatenExport"
' MsgBox "Export erfolgreich!", vbInformation
'Exit_cmdExport_Click:
' Exit Sub
'Err_cmdExport_Click:
' DoCmd.DeleteObject acQuery, "DatenExport"
' MsgBox "Das Überschreiben der bestehenden Datei ist fehlgeschlagen!" & _
' vbCrLf & vbCrLf & "Bitte vergewissern Sie sich, dass kein " & _
' "anderes Programm auf die Datei zugreift.", _
' vbExclamation + vbOKOnly
' Resume Exit_cmdExport_Click

'Const qry As String = "abf_Bearbeiten"
'Const myPath As String = "C:UsersbussDocuments"
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, qry, True

End Sub

Private Sub cmdHauptmenü_Click()
DoCmd.Close
DoCmd.OpenForm "frm_Menü"
End Sub

Private Sub FilterSetzen()
Dim ctl As Control
Dim strFilter As String
Dim intkeyascii As Integer
' aktuelles Suchfeld in Variable einlesen
Set ctl = Me.ActiveControl
' Sonderbehandlung von Leerzeichen (Zeichen Nr. 32)
If intkeyascii = 32 Then
ctl = ctl & Chr(32)
' Initialisierung der Variablen
intkeyascii = 0
End If
' strFilter aus den Suchfeldern zusammenstellen (nach System von Reinhard Kraasch)
' Filter bei Nachname, Vorname und Straße nach Like x*, bei Telefon Filter nach Like *x*
' Wenn der Fokus auf dem Suchfeld ist, wird die Text-Eigenschaft abgefragt, ansonsten die Value-Eigenschaft.

If ctl.Name = "txtNachname" Then
If Len(Me!txtNachname.Text & vbNullString) > 0 Then strFilter = strFilter & " AND Nachname Like '" & Me!txtNachname.Text & "*'"
Else
If Not IsNull(Me!txtNachname.Value) Then strFilter = strFilter & " AND Nachname Like '" & Me!txtNachname.Value & "*'"
End If

If ctl.Name = "txtVorname" Then
If Len(Me!txtVorname.Text & vbNullString) > 0 Then strFilter = strFilter & " AND Vorname Like '" & Me!txtVorname.Text & "*'"
Else
If Not IsNull(Me!txtVorname.Value) Then strFilter = strFilter & " AND Vorname Like '" & Me!txtVorname.Value & "*'"
End If

If ctl.Name = "txtIdentNr" Then
If Len(Me!txtIdentNr.Text & vbNullString) > 0 Then strFilter = strFilter & " AND IdentNr Like '*" & Me!txtIdentNr.Text & "*'"
Else
If Not IsNull(Me!txtIdentNr.Value) Then strFilter = strFilter & " AND IdentNr Like '*" & Me!txtIdentNr.Value & "*'"
End If

If ctl.Name = "txtSteuerNr" Then
If Len(Me!txtSteuerNr.Text & vbNullString) > 0 Then strFilter = strFilter & " AND SteuerNr Like '*" & Me!SteuerNr.Text & "*'"
Else
If Not IsNull(Me!txtSteuerNr.Value) Then strFilter = strFilter & " AND SteuerNr Like '*" & Me!txtSteuerNr.Value & "*'"
End If

If ctl.Name = "txtKNR" Then
If Len(Me!txtKNR.Text & vbNullString) > 0 Then strFilter = strFilter & " AND KNR Like '*" & Me!txtKNR.Text & "*'"
Else
If Not IsNull(Me!txtKNR.Value) Then strFilter = strFilter & " AND KNR Like '*" & Me!txtKNR.Value & "*'"
End If

If ctl.Name = "txtSVNr" Then
If Len(Me!txtSVNr.Text & vbNullString) > 0 Then strFilter = strFilter & " AND SVNr Like '*" & Me!txtSVNr.Text & "*'"
Else
If Not IsNull(Me!txtSVNr.Value) Then strFilter = strFilter & " AND SVNr Like '*" & Me!txtSVNr.Value & "*'"
End If

If ctl.Name = "txtAuftragsnummer" Then
If Len(Me!txtAuftragsnummer.Text & vbNullString) > 0 Then strFilter = strFilter & " AND Auftragsnr Like '*" & Me!txtAuftragsnummer.Text & "*'"
Else
If Not IsNull(Me!txtAuftragsnummer.Value) Then strFilter = strFilter & " AND Auftragsnr Like '*" & Me!txtAuftragsnummer.Value & "*'"
End If

If ctl.Name = "txtKammernummer" Then
If Len(Me!txtKammernummer.Text & vbNullString) > 0 Then strFilter = strFilter & " AND Kammernr Like '*" & Me!txtKammernummer.Text & "*'"
Else
If Not IsNull(Me!txtKammernummer.Value) Then strFilter = strFilter & " AND Kammernr Like '*" & Me!txtKammernummer.Value & "*'"
End If

'Die ersten 5 Zeichen des strFilter abschneiden
strFilter = Mid(strFilter, 6)
'Filter setzen
Me.Filter = strFilter
Me.FilterOn = True
'Bei leerem Suchfeld geht der Fokus verloren, daher wieder setzen
ctl.SetFocus
'Cursor ans Ende des eingegeben Textes setzen (nach DonKarl FAQ 4.24)
ctl.SelStart = Len("" & ctl)
'Speicher freigeben
Set ctl = Nothing
End Sub

Private Sub Markiert_Click()

End Sub

Private Sub txtAuftragsnummer_Change()
Call FilterSetzen
End Sub

Private Sub txtIdentNr_Change()
Call FilterSetzen
End Sub

Private Sub txtKammernummer_Change()
Call FilterSetzen
End Sub

Private Sub txtKNR_Change()
Call FilterSetzen
End Sub

Private Sub txtNachname_Change()
Call FilterSetzen
End Sub

Private Sub txtSteuerNr_Change()
Call FilterSetzen
End Sub

Private Sub txtSVNr_Change()
Call FilterSetzen
End Sub

Private Sub txtVorname_Change()
Call FilterSetzen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist mal mein Code mit den verschiedenen filter und allem anderen blödsinnigem zeug hahah

Andreas_80, 13. Februar 2018

#35
ANDREAS_80

Andreas_80

in der Auskommentierten Export-Funktion

mekert er immer bei dieser Zeile:

Code:

DoCmd.DeleteObject acQuery, "DatenExport"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Andreas_80, 13. Februar 2018

#36
MAIKEK

maikek

In den Formular das auf dieser Abfrage basiert habe ich einige Texfelder die als Suche dienen. Wenn ich zum Beispiel einen Buchstaben "M" ins Textfeld "txtVorname" eingebe werden mir alle Datensaätze Angezeigt bei denen der Vorname mit "M" beginnt. Nun sollen durch den "Export-Butten" auch nur die Datensätze exportiert werden die Angezeigt werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zumindest hast du ja wohl ein Formular. Das hat auch ein Recordset, das sich exportieren lässt.
maike

maikek, 13. Februar 2018

#37
MAIKEK

maikek

Excel Daten in Access Tabelle importieren

Code:

sSQL = "SELECT * " & "FROM " & Me.RecordSource & " WHERE " & Me.Filter
'...
' DoCmd.DeleteObject acQuery, "DatenExport"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Heißt die Abfrage, die Grundlage des Formulars ist, möglicherweise ebenfalls "DatenExport"?

Was heißt "meckert er"? Normalerweise steht da mehr als ein "Mäh".

maike

maikek, 13. Februar 2018

#38
ANDREAS_80

Andreas_80

Hi Maike,

nein die Abfrage heißt "abf_Bearbeiten" und das Formular "frm_Bearbeiten"
DatenExport heißt dann die exportierte bzw erstellte Excel-Datei.

Er meckert das er das Access Objekt "DatenExport" nicht finden kann.

zusätzlich habe ich im Modul noch folgenden Code:
Code:

Function QueryExists(queryName As String) As Boolean
Dim myName As String
On Error Resume Next
myName = CurrentDb.QueryDefs(queryName).Name
QueryExists = Not (myName = "")
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Andreas_80, 13. Februar 2018

#39
ANDREAS_80

Andreas_80

mal funktionier der Export und beim zweiten mal dann wieder nicht.

Andreas_80, 13. Februar 2018

#40
MAIKEK

maikek

Code:

Private Sub cmdExport_Click()
On Error GoTo Err_cmdExport_Click
Dim sSQL As String
Dim qdf As DAO.QueryDef

sSQL = "SELECT * FROM " & Me.RecordSource & " WHERE " & Me.Filter

Debug.Print sSQL 'Kontrolle im Direktfenster (Öffnen mit strg + g)

If Not QueryExists("DatenExport") Then
Set qdf = CurrentDb.CreateQueryDef("DatenExport", sSQL)
Else
CurrentDb.QueryDefs("DatenExport").SQL = sSQL
End If

DoCmd.OutputTo acOutputQuery, "DatenExport", acFormatXLS, , True
DoCmd.DeleteObject acQuery, "DatenExport"
MsgBox "Export erfolgreich!", vbInformation

Exit_cmdExport_Click:
Exit Sub

Err_cmdExport_Click:
MsgBox Err.Number & " " & Err.Description
If QueryExists("DatenExport") Then DoCmd.DeleteObject acQuery, "DatenExport"
MsgBox "Das Überschreiben der bestehenden Datei ist fehlgeschlagen!" & _
vbCrLf & vbCrLf & "Bitte vergewissern Sie sich, dass kein " & _
"anderes Programm auf die Datei zugreift.", _
vbExclamation + vbOKOnly
Resume Exit_cmdExport_Click

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hab' mal eine Kontrolle (Debug.Print) für den SQL-String eingefügt und das Löschen der Abfrage bei Fehler von ihrem Vorhandensein abhängig gemacht.
Probiers mal so.

maike

maikek, 13. Februar 2018

#41
MAIKEK

maikek

Wo hast du denn diese Funktion her? Sollte die nicht alle Abfragen durchsuchen? Also so etwa:
Code:

Function QueryExists(queryName As String) As Boolean
On Error Resume Next
For each QueryDef in CurrentDb.QueryDefs
If QueryDef.Name = queryName then
QueryExists = true
Exit For
End If
Next QueryDef
On Error goto 0
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

maikek, 13. Februar 2018

#42
ANDREAS_80

Andreas_80

Excel Daten in Access Tabelle importieren

Wo hast du denn diese Funktion her? Sollte die nicht alle Abfragen durchsuchen? Also so etwa:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aus dem Internet, frag mich bitte nicht wo genau das hab ich vergessen.

Andreas_80, 13. Februar 2018

#43
ANDREAS_80

Andreas_80

MsgBox Err.Number & " " & Err.Description
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier kommt dann folgende Meldung: 3131 Syntaxfehler in FORM-Klausel
Danach kommt die Meldung aus der nächsten Msgbox: Das überschreiben der bestehenden...

Andreas_80, 13. Februar 2018

#44
ANDREAS_80

Andreas_80

ich bewundere deine Geduld Maike. :-)

Andreas_80, 13. Februar 2018

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 4

Thema:

Excel Daten in Access Tabelle importieren

Die Seite wird geladen...

Excel Daten in Access Tabelle importieren - Similar Threads - Excel Daten Access
Import Daten aus Access Abfrage klappt nicht
in Microsoft Excel Hilfe
Import Daten aus Access Abfrage klappt nicht: Moin, ich habe ein Problem. Ich habe eine Datenbank in Access mit diversen Tabellen und Abfragen. Jetzt habe ich eine neue Abfrage erstellt und muß das Ergebnis täglich in eine Exceldatei...
Access Tabelle mit Excel Daten updaten
in Microsoft Access Hilfe
Access Tabelle mit Excel Daten updaten: Hallo zusammen, ich habe eine Excel Arbeitsmappe die ständig aktualisiert wird. Die Spaltennamen stimmen mit den Spaltennamen der Tabelle in Access überein. Jetzt möchte ich gerne einen VBA Code...
Verwalten von Daten mit Access oder Excel
in Microsoft Excel Tutorials
Verwalten von Daten mit Access oder Excel: Verwalten von Daten mit Access oder Excel Excel 2007 Access 2007 Mehr... Weniger Microsoft Access und...
Verschieben von Daten aus Excel in Access
in Microsoft Excel Tutorials
Verschieben von Daten aus Excel in Access: Verschieben von Daten aus Excel in Access Excel für Microsoft 365 Excel 2019 Access 2019 Excel 2016 Access 2016 Excel 2013 Excel 2010...
Import von Excel-Daten in Access-Tabelle
in Microsoft Access Hilfe
Import von Excel-Daten in Access-Tabelle: Hallo, um es gleich vorwegzunehmen, ich bin absoluter Amateur und hänge an folgendem Punkt: Ausgangspunkt: Ich muss einmalig (von Hand, es geht also nicht zwingend um ein VBA-Modul o.Ä., obwohl...
Excel Daten in Access automatisiert ablegen
in Microsoft Access Hilfe
Excel Daten in Access automatisiert ablegen: Hallo zusammen, ich habe folgendes Problem. Für die Arbeit kriege ich immer die gleichen Datenblätter für ein "Ventil". In diesem Arbeitsblatt sind dann verschiedene Zellen ausgefüllt. Manchmal...
Excel Daten an Access Tabelle anfügen (automatisiert)
in Microsoft Access Hilfe
Excel Daten an Access Tabelle anfügen (automatisiert): Hallo! Ich arbeite seit kürzerem mit Access und bin mal wieder auf eine Herausforderung gestoßen. Wir fahren in unserer Abteilung mehrere Auswertungen täglich mithilfe von Excel. Dort wird alles...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden