Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kurvendarstellung und Excel beenden
Autor: Methos
Datum: 11.09.02 13:53
Hi ... ich glaube ich haben den Beitrag schon mal gepostet aber irgendwie finde ich ihn nicht mehr also nochmal das ganze ... Ich nutze folgenden Code um aus einer Excel Tabelle eine Spalte auszulesen und als Datenfeld zu speichern Private myExl As New Excel.Application Private dfeld(1 To 317) As Integer Private dfeldpos(1 To 317) As Integer Private Sub Command1_Click() Dim a As Integer For i = 1 To 317 dfeld(i) = 0 ' Feld mit Nullen belegen benötige ich für spätere fft Next i ' Excel-Arbeitsmappe öffnen myExl.Workbooks.Open "c:texttest.xls" ' Tabelle1 auswählen 'myExl.ActiveWorkbook.Sheets("Tabelle1").Select For i = 1 To 317 dfeld(i) = myExl.Range("B" & i + 1).Value 'auslesen Next i For i = 1 To 317 dfeldpos(i) = dfeld(i) * (-1) ' damit es nicht auf dem Kopf steht Next i Picture1.ScaleTop = -60 ' Koordinaten festlegen Picture1.ScaleLeft = 0 Picture1.ScaleWidth = 350 Picture1.ScaleHeight = 120 Picture1.Line (0, 0)-(300, 0) 'Nulllinie For i = 1 To 315 Picture1.Line (i, dfeldpos(i))-(i + 1, dfeldpos(i + 1)) Next i End Sub Nun habe ich zwei Probleme mit dem ganzen Zeugs 1. Excel bleibt offen läuft im Background noch ... wie muss ich das beenden? 2. Wenn ich ein Fenster über meine Picturebox schiebe ist mein Bild weg es wird also nicht automatisch neu gezeichnet, wie kann ich so etwas realisieren? Danke MfG Methos

Kurvendarstellung und Excel beenden	81	Methos	11.09.02 13:53
OHH	115	Methos	11.09.02 14:09
Re: OHH	384	Moni	11.09.02 14:20
mmh	53	Methos	11.09.02 14:43

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