vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Anwendung wird nicht richtig beendet 
Autor: Lord_Duke
Datum: 17.11.05 10:32
Also Junx und Mädels.
Ich hab ein programm, das Daten aus einer Excel-Anwendung in eine aktuellere version schreibt.
nun hab ich aber das Problem, das im TaskManager EXCELxe immer noch aktiv bleibt nach ablauf des Codes warum. 

Private Sub Ausgabe()
' Datei kopieren
 
If AusgabePfad <> "" And BEPfad <> "" Then
 
Dim sFile As String
Dim sCopyTo As String
 
FileCopy BEPfad, AusgabePfad
 
Dim objXLApp   As Excel.Application
 
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
 
    objXLApp.EnableEvents = False
    objXLApp.Workbooks.Open AusgabePfad
 
  i = 2
 
Do While i <> (x)
 
        B = "A" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 1)
        B = "B" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 2)
        B = "C" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 3)
        B = "D" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 4)
        B = "E" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 5)
        B = "F" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 6)
        B = "G" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 7)
        B = "H" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 8)
        B = "I" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 9)
        B = "J" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 10)
        B = "K" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 11)
        B = "L" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 12)
        B = "M" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 13)
        B = "N" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 14)
        B = "O" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 15)
        B = "P" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 16)
        B = "Q" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 17)
        B = "R" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 18)
        B = "S" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 19)
        B = "T" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 20)
        B = "U" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 21)
        B = "V" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 22)
        B = "X" & i
objXLApp.Worksheets(1).Range(B) = Grid.TextMatrix(i - 1, 23)
 
i = i + 1
DoEvents
Loop
 
  objXLApp.ActiveWorkbook.Close savechanges:=True
  objXLApp.Quit
  Set objXLApp = Nothing
End If
End Sub
<< das ist der Code mit dem ich die Daten aus dem Grid in die neue Tabelle schreibe und die EXCEL.exe immer noch aktiv ist im TaskManager aber warum?

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Anwendung wird nicht richtig beendet405Lord_Duke17.11.05 10:32
Re: Anwendung wird nicht richtig beendet265ModeratorDieter17.11.05 11:45
Re: Anwendung wird nicht richtig beendet245Lord_Duke17.11.05 11:53
Re: Anwendung wird nicht richtig beendet220Lord_Duke17.11.05 11:58
Re: Anwendung wird nicht richtig beendet254Lord_Duke17.11.05 13:55

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel