Access Daten in Excel bringen

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von wincnc.

    Access Daten in Excel bringen

    Hallo ich habe eine Access Datenbank erstellt und verwalte diese mit einem Visual Basic Programm.

    Jetzt will ich bestimmte Datensätze in eine Excel Tabelle ziehen, um mir dann aus diesen Werten eine Prognosekurve zu bilden.

    Am besten wäre eine direkte Auswahl der Datensätze sortiert nach einem Datenbankfeld und dann eben die Daten aus den 2-3 Feldern mit denen ich dann die Kurve erstelle.

    Wie kann ich die Daten von Access bzw. besser direkt aus Basic in Excel übergeben.

    Gruß André

    Versuch´s mal hiermit.

    Die Excel Datei muß schon existieren !
    <pre><font face="courier new" size="2pt">
    <font color="#000000"></font><font color="#00AA00">' Verweis auf Microsoft Excel x.x Obeject Library nicht vergessen !!!</font>
    <font color="#000000"></font><font color="#00AA00">' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> DB </font><font color="#0000AA">As</font><font color="#000000"> Connection</font>
    <font color="#000000"></font><font color="#0000AA">Dim</font><font color="#000000"> RS </font><font color="#0000AA">As</font><font color="#000000"> Recordset</font>
    <font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> oExl </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">New</font><font color="#000000"> Excel.Application</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"> OpenExcel(</font><font color="#0000AA">ByVal</font><font color="#000000"> Mappe </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000">, </font><font color="#0000AA">ByVal</font><font color="#000000"> Tabelle </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">String</font><font color="#000000">)</font>
    <font color="#000000"> </font><font color="#0000AA">Dim</font><font color="#000000"> A </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">Variant</font><font color="#000000"></font>
    <font color="#000000"> </font><font color="#0000AA">Dim</font><font color="#000000"> Zeile </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">Long</font><font color="#000000">, Spalte </font><font color="#0000AA">As</font><font color="#000000"> </font><font color="#0000AA">Integer</font><font color="#000000"></font>
    <font color="#000000"></font>
    <font color="#000000"> </font><font color="#0000AA">On</font><font color="#000000"> </font><font color="#0000AA">Error</font><font color="#000000"> </font><font color="#0000AA">Resume</font><font color="#000000"> </font><font color="#0000AA">Next</font><font color="#000000"></font>
    <font color="#000000"> oExl.WorkBooks.Open Mappe</font>
    <font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"> Err > 0 </font><font color="#0000AA">Then</font><font color="#000000"></font>
    <font color="#000000"> MsgBox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _</font>
    <font color="#000000"> vbExclamation, "Dateifehler"</font>
    <font color="#000000"> </font><font color="#0000AA">Exit</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
    <font color="#000000"> </font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">If</font><font color="#000000"></font>
    <font color="#000000"></font>
    <font color="#000000"> oExl.ActiveWorkbook.Sheets(Tabelle).Select</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">For</font><font color="#000000"> N = 1 </font><font color="#0000AA">To</font><font color="#000000"> RS.RecordCount</font>
    <font color="#000000"> oExl.ActiveSheet.Cells(N, "A").Value = RS!ID</font>
    <font color="#000000"> oExl.ActiveSheet.Cells(N, "B").Value = RS!TestFeld</font>
    <font color="#000000"></font>
    <font color="#000000"> RS.MoveNext</font>
    <font color="#000000"></font><font color="#0000AA">Next</font><font color="#000000"></font>
    <font color="#000000"></font>
    <font color="#000000"> oExl.ActiveWorkbook.Save</font>
    <font color="#000000"> oExl.ActiveWorkbook.Close</font>
    <font color="#000000"> oExl.Quit</font>
    <font color="#000000"> </font><font color="#0000AA">Set</font><font color="#000000"> oExl = </font><font color="#0000AA">Nothing</font><font color="#000000"></font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
    <hr width="100%">
    <font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"> Command1_Click()</font>
    <font color="#000000">OpenExcel "D:\Mappe3.xls", "Tabelle1"</font>
    <font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
    <hr width="100%">
    <font color="#000000"></font><font color="#0000AA">Private</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"> Form_Load()</font>
    <font color="#000000"></font><font color="#0000AA">Set</font><font color="#000000"> DB = </font><font color="#0000AA">New</font><font color="#000000"> Connection</font>
    <font color="#000000">DB.CursorLocation = adUseClient</font>
    <font color="#000000">DB.Provider = "Microsoft.Jet.OLEDB.4.0"</font>
    <font color="#000000">DB.Open "d:\db1.mdb"</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">Set</font><font color="#000000"> RS = </font><font color="#0000AA">New</font><font color="#000000"> Recordset</font>
    <font color="#000000">RS.Open "SELECT * FROM Tabelle1", DB, adOpenDynamic, adLockOptimistic</font>
    <font color="#000000"></font>
    <font color="#000000"></font><font color="#0000AA">End</font><font color="#000000"> </font><font color="#0000AA">Sub</font><font color="#000000"></font>
    <font color="#000000"></font>
    </font>
    </pre>

Facebook
Telefonspende