Export in Excel nur bestimmte Spalten
Karl Donaubauer
Gesendet: 18.01.14 16:40
Betreff: RE: Export in Excel nur bestimmte Spalten



Elite Veteran

Beiträge: 845
50010010010025
Ort: Wien
lengaumi - 17.01.14
...
Die unerwünschten Felder sind immer gleich.
Mir ist leider der Code für das Kopieren der Datensätze aus dem Endlosformular in die Zwischentabelle und damit das Weglassen der "unnötigen" Felder nicht ganz klar.

Ich halte eine Zwischentabelle für unnötig bzw. nur die zweitbeste Lösung, wenn die vorgeschlagene Methode mit der Abfrage eh funktioniert.

Wenn du dennoch eine Tabelle möchtest, dann legst du sie also erst mal nur mit den gewünschten Feldern an.

Die Übergabe der im Formular gefilterten Daten ist dann wieder mit einem im Code zusammengebastelten SQL-String für eine Anfügeabfrage möglich. Eine zweite Methode ist die Übergabe per DAO:

Dim db As DAO.Database
Dim rsQuelle As DAO.Recordset, rsZiel As DAO.Recordset

Set db = CurrentDb
Set rsQuelle = Me.RecordsetClone

' leeren der Zwischentabelle tblExport
db.Execute "DELETE FROM tblExport", dbFailOnError
Set rsZiel = db.OpenRecordset("tblExport", dbOpenDynaset)

Do Until rsQuelle.EOF
rsZiel.AddNew
' gewuenschte Felder befuellen
rsZiel!Feld1 = rsQuelle!Feld1
rsZiel!Feld2 = rsQuelle!Feld2
' usw.
rsZiel.Update
rsQuelle.MoveNext
Loop

-----
Servus
Karl
*********
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page