Thema Datum  Von Nutzer Rating
Antwort
29.06.2017 10:15:17 Luana
NotSolved
Blau Gefilterte Tabellen aus Query als CSV Exportieren
 29.06.2017 21:12:56 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
29.06.2017 21:12:56		 Views:
500		 Rating:
     
Antwort:
  Ja
Thema:
Gefilterte Tabellen aus Query als CSV Exportieren

Hallo,

vielleicht ist dieser Code hilfreich:


Private Sub Command0_Click()
    Dim AktTable As TableDef
    Dim i As Integer
    Dim selItem As Variant
    Dim selTable As String
    i = 0
    For Each selItem In Me.Liste0.ItemsSelected
        selTable = Me.Liste0.ItemData(selItem)
        For Each AktTable In CurrentDb.TableDefs
            If AktTable.Attributes = 0 Then
                If AktTable.Name = selTable Then
                
                    DoCmd.TransferText acExportDelim, acFormat, _
                        AktTable.Name, _
                        "C:\" & AktTable.Name & ".csv", True, ""
                    i = i + 1
                
                
                End If
            End If
        Next AktTable
    Next selItem
    
    MsgBox (i & "CSV's " & "created")

End Sub

Es wird vorausgesetzt, dass eine Listbox mit allen vorhanden Tabellennamen unter dem Namen "Liste0" im UserForm vorhanden ist.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.06.2017 10:15:17 Luana
NotSolved
Blau Gefilterte Tabellen aus Query als CSV Exportieren
 29.06.2017 21:12:56 Ben
NotSolved