Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel
Autor: ProfiProgrammierer
Datum: 23.02.04 10:01
Dim e As New Excel.Application ' Deklaration Private Sub Command1_Click() e.Application.Workbooks.Open ("C:\KKTest.xls") ' Öffnen einer bestimmten Datei e.Application.Visible = True '###########Jetzt kommt der spanndende Teil#################### Adodc1.Recordset.AddNew ' Neuen Datensatz hinzufügen Adodc1.Recordset.Fields("Datum").Value = e.Worksheets("Tabelle1").Range("a1").Value ' aus A1 in die Spalte Datum Adodc1.Recordset.Fields("Kosten").Value = e.Worksheets("Tabelle1").Range("b1").Value 'aus b1 in die Spalte Kosten Adodc1.Recordset.Fields("Text").Value = e.Worksheets("Tabelle1").Range("c1").Value ' aus c1 ín die Spalte Text Adodc1.Recordset.Update ' ADO Updaten e.Application.ActiveWorkbook.Close ' Workbooks schließen e.Application.Quit ' Datei schließen Set e = Noting End Sub   Oder wollen Sie ein Bsp Programm?

Excel	1.609	woerni4	21.02.04 20:03
Re: Excel	1.050	ProfiProgrammie...	23.02.04 10:01
Re: Excel	915	woerni4	23.02.04 12:49
Re: Excel	1.053	woerni4	23.02.04 13:10
Re: Excel	987	ProfiProgrammie...	23.02.04 13:32
Re: Excel	1.058	woerni4	24.02.04 12:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen