Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel mit VB6 auslesen
Autor: Thomas
Datum: 12.02.04 15:11
Danke für den Tip. Ganz so einfach war es leider nicht, ich habe es jetzt aber trotzdem hinbekommen. Gruß und danke Thomas PS: Hier mein Code: Private Sub cmdExcle_Click() Dim exl As Excel.Application Set exl = New Excel.Application Dim exlLeer As Excel.Application Set exlLeer = New Excel.Application Dim ExlDatei As String Dim ExlDateiLeer As String ExlDatei = App.Path & "\Test.xls" ExlDateiLeer = App.Path & "\Excel Leer.xls" ' Excel-Arbeitsmappe öffnen exl.Workbooks.Open ExlDatei 'Leere Excel-Arbeitsmappe öffnen exlLeer.Workbooks.Add 'Von Excel Datei Nr. 1 die Tabelle 1 lesen und exl.Worksheets("Tabelle1").Range("A1:x100").Copy 'In Excel Datei Nr. 2 in Tabelle 1 schreiben (Grafiken werden nicht kopiert") exlLeer.Worksheets("TAbelle2").Paste Destination:=exlLeer.Worksheets("Tabelle1").Range("A1") 'Excel neu speichern exlLeer.Workbooks.Item(exlLeer.Workbooks.Count).SaveAs ExlDateiLeer 'Excel schliessen exl.Workbooks.Close exlLeer.Workbooks.Close Set exl = Nothing Set exlLeer = Nothing End Sub

Excel mit VB6 auslesen	668	Thomas	12.02.04 13:18
Re: Excel mit VB6 auslesen	453	Karl Klammer	12.02.04 15:08
Re: Excel mit VB6 auslesen	509	Thomas	12.02.04 15:11

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