Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Windows Fenster - Daten nach Excel
Autor: GW
Datum: 20.07.04 07:29
Hallo Ich habe ein Problem mit der Test-Übertragung von einem Windows Fenster zu einer Excel Tabelle. [Dim xlApp As Excel.Application Dim xlMappe As Excel.Workbook Dim xlBlatt As Excel.Worksheet Dim xlZelle As Excel.Range Dim intZeilen As Integer Dim QQ, NR As String Dim I, W As Object xlApp = New Excel.Application() xlApp.Visible = True xlMappe = _ xlApp.Workbooks.Open("c:\000\stl.xls") xlBlatt = xlMappe.Worksheets(1) For I = 1 To 10 W = 10 + I : QQ = W * 1 : NR = I xlZelle = xlBlatt.Range("A" + QQ) intZeilen = xlZelle.CurrentRegion.Rows.Count xlZelle.Offset(intZeilen, 0).Value = "poss " + NR REM pos xlZelle = xlBlatt.Range("A" + QQ) intZeilen = xlZelle.CurrentRegion.Rows.Count xlZelle.Offset(intZeilen, 1).Value = "mmm " + NR REM menge xlZelle = xlBlatt.Range("A" + QQ) intZeilen = xlZelle.CurrentRegion.Rows.Count xlZelle.Offset(intZeilen, 2).Value = "bbbb " + NR REM benenn Next I xlMappe.SaveAs("c:\000\test.xls") xlMappe.Close() xlApp.Quit() xlZelle = Nothing xlBlatt = Nothing xlMappe = Nothing xlApp = Nothing] In der Excel Tabelle werden die Daten so eingefügt: poss 1 mmm 1 bbbb 1 poss 2 mmm 2 bbbb 2 poss 3 mmm 3 bbbb 3 poss 4 mmm 4 bbbb 4 poss 5 mmm 5 bbbb 5 poss 6 mmm 6 bbbb 6 poss 7 mmm 7 bbbb 7 poss 9 mmm 9 bbbb 9 poss 10 mmm 10 bbbb 10 poss 8 mmm 8 bbbb 8 Ich hätte sie gerne: poss 1 mmm 1 bbbb 1 poss 2 mmm 2 bbbb 2 poss 3 mmm 3 bbbb 3 usw................................... MFG GW

Windows Fenster - Daten nach Excel	731	GW	20.07.04 07:29
Re: Windows Fenster - Daten nach Excel	534	lars007	20.07.04 09:40

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