Thema Datum  Von Nutzer Rating
Antwort
Rot Export in nach Gruppen getrennte CSV Dateien
07.04.2013 14:48:56 Kazma
NotSolved
07.04.2013 17:31:39 Gast36518
NotSolved
08.04.2013 12:33:33 Kazma
NotSolved

Ansicht des Beitrags:
Von:
Kazma
Datum:
07.04.2013 14:48:56
Views:
791
Rating: Antwort:
  Ja
Thema:
Export in nach Gruppen getrennte CSV Dateien

 

Hi, 
ich hab hier eine 'kleine' CSV datei die ich in access importiert habe und jetzt als mehrere CSV Dateien exportieren muss je nach Gruppierung. 
Die Datei hat ca 2.4m Datensätze Smile 
Also zum veranschaulichen meine CSV ist in etwa so: 
Spalte 1 | Spalte 2 
3 | lorem 
3 | ipsum 
4 | bla 
6 | text 
7 | usw 
7 | und 
7 | so 
9 | fort 

und das soll mir dann je eine Datei 
3.csv 
Spalte 1 | Spalte 2
 
3 | lorem 
3 | ipsum 

4.csv 
Spalte 1 | Spalte 2
 
4 | bla 

6.csv 
Spalte 1 | Spalte 2
 
6 | text 

7.csv 
Spalte 1 | Spalte 2
 
7 | usw 
7 | und 
7 | so 

9.csv 
Spalte 1 | Spalte 2
 
9 | fort 

ausgeben. 
Habe bereits gesucht wie ein verrückter und bin dann auf das hier gestoßen: 
Export von Daten in nach Gruppen getrennte Textdateien 

Code:
Function ExportierenNachPLZ() 
'Export der Tabelle "Kunden" in nach 
'PLZ getrennte Textdateien 
'Das Vorhandensein der Abfrage 
'"Suchen nach PLZ" wird vorausgesetzt 
'Die Abfrage "Suchen nach PLZ" wird durch 
'die Ausführung des Codes verändert 
    Dim db As DAO.Database 
    Dim qd As DAO.QueryDef 
    Dim rs As DAO.Recordset 
    Dim i As Integer 
    Dim SQL As String 
    
    Set db = CurrentDb() 
    Set rs = db.OpenRecordset("SELECT Plz FROM [Kunden] GROUP BY [Plz]") 
    Set qd = db.QueryDefs("Suchen nach PLZ") 
    SQL = "SELECT DISTINCTROW * FROM [Kunden] WHERE PLZ = '" 
    rs.MoveLast 
    For i = 1 To rs.RecordCount 
        qd.SQL = SQL & rs!Plz & "'" 
        DoCmd.TransferText acExportDelim, , "Suchen nach PLZ" _ 
                         , "C:\Kunden in PLZ " & rs!Plz & ".txt", True 
        rs.MovePrevious 
    Next i 
End Function
Das ganze gibt mir immer diese Fehlermedung: 
Zitat:
Laufzeitfehler 3265: Element in dieser Auflistung nicht gefunden
bei
Code:
    Set qd = db.QueryDefs("Suchen nach PLZ")
Hab natürlich die DB und Spaltennamen alle geändert 
Ich hab nun wirklich keine Ahnung von VBA, hat einer eine Idee was da das Problem ist oder ist der code komplett falsch? ^^

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Export in nach Gruppen getrennte CSV Dateien
07.04.2013 14:48:56 Kazma
NotSolved
07.04.2013 17:31:39 Gast36518
NotSolved
08.04.2013 12:33:33 Kazma
NotSolved