Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensatzexport nach Excel (funktioniert schon fast)
zurück: Interpreten herausfinden weiter: Access mit TCP/IP Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hedge
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Mai 2009, 14:41
Rufname:

Datensatzexport nach Excel (funktioniert schon fast) - Datensatzexport nach Excel (funktioniert schon fast)

Nach oben
       Version: Office 2003

Hallo zusammen,

ich habe nur ein kleines Problem und hoffe, ihr könnt mir dabei helfen.

Folgendes: Ich habe eine Tabelle, mit ungefähr 14 Spalten. Per Knopfdruck sollen alle Datensätze meiner Tabelle zweier bestimmter Spalten (Ursache und LessonsLearned) nach Excel Exportiert werden. Allerdings sollen nur die Exporteirt werden, wo auch etwas in LessonsLearned steht. Es kann ab und zu vorkommen, dass nämlich mal LessonsLearned nicht ausgefüllt ist. Diese Datensätze sollen dann nicht exportiert werden.

Ich habe derzeit folgenden Code (mit Hilfe des Forums) zusammengestellt:
Code:
Private Sub Befehl8_Click()
    Dim xlApp As Object, xlBook As Object, xlSheet As Object
    Dim AktExcelZeile As Integer
    Dim AktDb As DAO.Database, ds As DAO.Recordset
    Dim sSQL As String

    Set AktDb = CurrentDb
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.activesheet
    'Abfrage aufbauen ausführen
    sSQL = "SELECT Ursache, LessonsLearned FROM Fehler;"
    Set ds = AktDb.OpenRecordset(sSQL)
    AktExcelZeile = 1
    ds.MoveFirst
    Do Until ds.EOF
        ' ExcelZeile schreiben
        Debug.Print AktExcelZeile, ds!Ursache
        xlSheet.Cells(AktExcelZeile, 1).Value = ds!Ursache
        xlSheet.Cells(AktExcelZeile, 2).Value = ds!LessonsLearned
        AktExcelZeile = AktExcelZeile + 1      'immer um 1 erhöhen!
        ds.MoveNext
    Loop
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub
Jetzt fehlt mir nur noch der Vergelich, ob LessonsLearned leer ist oder nicht und diese dann nicht übertragen wird. Ich denke dass dieser Vergleich in die Do-Loop Schleife muss, allerdings, weiß ich nicht, wie dies aussehen muss.

Ich hoffe das Problem ist einigermaßen verständlich erklärt und es kann mir jemand helfen.

MfG Hedge
Sinister
Access-Programmierer


Verfasst am:
05. Mai 2009, 15:10
Rufname:

AW: Datensatzexport nach Excel (funktioniert schon fast) - AW: Datensatzexport nach Excel (funktioniert schon fast)

Nach oben
       Version: Office 2003

Hallo,

Heute ist SQL auf dem Stundenplan:
Code:
SELECT Ursache, LessonsLearned
FROM   Fehler
WHERE  LessonsLearned is not NULL;

_________________
Warum einfach, wenn es kompliziert geht!?
Hedge
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Mai 2009, 15:13
Rufname:


AW: Datensatzexport nach Excel (funktioniert schon fast) - AW: Datensatzexport nach Excel (funktioniert schon fast)

Nach oben
       Version: Office 2003

Ah ok danke. Bin leider noch nicht so fit in SQL.

MfG Hedge
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: IIf in Abfrage funktioniert nicht 2 rage 478 30. Okt 2008, 14:48
rage IIf in Abfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Sortierung funktioniert nicht richtig 14 Hans Helfer 375 29. Okt 2008, 20:25
Hans Helfer Abfrage Sortierung funktioniert nicht richtig
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus 2 Tabellen funktioniert nicht 0 niesel81 294 22. Okt 2008, 14:12
niesel81 Abfrage aus 2 Tabellen funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Befehl funktioniert nicht -> DELETE 1 eiskalterengel 2303 02. Okt 2008, 12:40
Willi Wipp SQL Befehl funktioniert nicht -> DELETE
Keine neuen Beiträge Access Tabellen & Abfragen: Username unter AC 2003 auslesen - Environ funktioniert nicht 12 andreczogalla 3209 03. Sep 2008, 14:29
andreczogalla Username unter AC 2003 auslesen - Environ funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Löschweitergabe funktioniert nicht 4 Poke888 887 29. Mai 2008, 10:09
KlausMz Löschweitergabe funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit mehreren Kriterien funktioniert in Form nicht 14 StockMaster 781 06. Mai 2008, 13:24
Gast Abfrage mit mehreren Kriterien funktioniert in Form nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Umsätze kumulieren - DSUM funktioniert nicht 1 Benicio 3234 10. Sep 2007, 18:11
Shai Umsätze kumulieren - DSUM funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Bound Column funktioniert nicht 6 Smmmile 1200 12. Jul 2007, 17:56
Smmmile Bound Column funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Warum funktioniert diese Abfrage nicht ? 6 Mirage 804 05. Jun 2007, 12:14
Mirage Warum funktioniert diese Abfrage nicht ?
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage funktioniert nicht 7 BAD TOUCH 3023 30. Mai 2007, 13:13
Gast Aktualisierungsabfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage funktioniert nicht...hilfe!!!!! 2 bennie103 603 22. März 2007, 21:14
Gast Abfrage funktioniert nicht...hilfe!!!!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe