Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schliesst Winword.exe in den Prozessen nicht
zurück: UserForm einen Wert übergeben weiter: Zahl zu Text wandeln - Format() funktioniert nicht ... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nuzzi71
Anfänger - Learning by Doing


Verfasst am:
22. Jan 2009, 15:27
Rufname:
Wohnort: Raum Darmstadt

Schliesst Winword.exe in den Prozessen nicht - Schliesst Winword.exe in den Prozessen nicht

Nach oben
       Version: Office 2003

Hallo ,

ich versuche verzweifelt, einen Wert einer Zelle in ein txt File zu schreiben. Was auch funktioniert. Jedoch bleibt immer WINWORD.EXE im Taskmanager als Prozess stehen und ich kann keine nächste Datei starten.
Habe schon versucht im unteren Teil zu beenden, er macht es aber nicht. Kann mir jemand helfen?


Code:

Private Sub DruckFB_Click()
Dim strDateiname As String
Dim strDateiname2
Dim strZelle As String
Dim wd As Object

Set wd = CreateObject("Word.Application")

strZelle = Worksheets("Tabelle1").Cells(1, 1)
strDateiname = "C:\Dokumente und Einstellungen\All Users\Desktop\Vorlage.doc"

Documents.Add Template:=strDateiname

    With wd.Selection
        .TypeText (strZelle)
    End With

      strDateiname2 = "C:\Dokumente und Einstellungen\" & _
       "All Users\Desktop\Auswertung.doc"

    ActiveDocument.SaveAs Filename:=strDateiname2
    Set wd = GetObject(, "Word.Application")
    With wd
      .Application.Quit
End With
   Set wd = Nothing
End Sub

_________________
Viele Grüße
Nuzzi
bst
Programmierer


Verfasst am:
22. Jan 2009, 17:43
Rufname: Bernd
Wohnort: Ilsfeld


AW: Schliesst Winword.exe in den Prozessen nicht - AW: Schliesst Winword.exe in den Prozessen nicht

Nach oben
       Version: Office 2003

Hi,

Du darfst nur über wd. auf Word zugreifen, d.h.:

Documents.Add Template:=strDateiname

und

ActiveDocument.SaveAs Filename:=strDateiname2

musst Du entsprechend abändern.

Außerdem braucht Du den GetObject nicht mehr, Du hast ja bereits ein wd durch den CreateObject erstellt.

Vielleicht solltest Du mit etwas einfacherem anfangen?

cu, Bernd
Nuzzi71
Anfänger - Learning by Doing


Verfasst am:
23. Jan 2009, 07:16
Rufname:
Wohnort: Raum Darmstadt

AW: Schliesst Winword.exe in den Prozessen nicht - AW: Schliesst Winword.exe in den Prozessen nicht

Nach oben
       Version: Office 2003

Hallo Bernd,

danke für Deine Antwort. Wie soll ich abändern?

Grüße

_________________
Viele Grüße
Nuzzi
Rainer01
VBA etwas fortgeschritten


Verfasst am:
23. Jan 2009, 08:08
Rufname:
Wohnort: Minden/Westf.

AW: Schliesst Winword.exe in den Prozessen nicht - AW: Schliesst Winword.exe in den Prozessen nicht

Nach oben
       Version: Office 2003

Hallo,
versuchs mal so:
Code:
Private Sub DruckFB_Click()
   Dim strDateiname As String
   Dim strDateiname2
   Dim strZelle As String
   Dim wd As Object
   Dim newHour As Variant
   Dim newMinute As Variant
   Dim newSecond As Variant
   Dim waitTime As Variant

   Set wd = CreateObject("Word.Application")

   strZelle = Worksheets("Tabelle1").Cells(1, 1)
   strDateiname = "C:\Dokumente und Einstellungen\All Users\Desktop\Vorlage.doc"

   wd.Documents.Add Template:=strDateiname

   wd.Selection.TypeText (strZelle)

   strDateiname2 = "C:\Dokumente und Einstellungen\" & _
   "All Users\Desktop\Auswertung.doc"

   wd.ActiveDocument.SaveAs Filename:=strDateiname2

        'Nun noch 2 Sekunden warten, bevor Word beendet wird
        newHour = Hour(Now())
        newMinute = Minute(Now())
        newSecond = Second(Now()) + 2
        waitTime = TimeSerial(newHour, newMinute, newSecond)
        Application.Wait waitTime

   wd.Application.Quit
   Set wd = Nothing
End Sub


Zum Wait-Befehl:
Ich habe die gleiche Erfahrung gemacht.
Meistens liegt es an der Geschwindigkeit des Rechners, dass interne Vorgänge noch nicht abgeschlossen sind und der Prozess damit nicht beendet wird. Die Wartezeit musst Du ausprobieren. Vielleicht reicht ja auch 1 Sekunde.

_________________
mfG

Rainer
P.S. Feedback wäre schön
Nuzzi71
Anfänger - Learning by Doing


Verfasst am:
23. Jan 2009, 11:02
Rufname:
Wohnort: Raum Darmstadt


AW: Schliesst Winword.exe in den Prozessen nicht - AW: Schliesst Winword.exe in den Prozessen nicht

Nach oben
       Version: Office 2003

Hallo Rainer,

vielen Dank. Das war eine Klasse Hilfe... Es funktioniert... !!!

Grüße

_________________
Viele Grüße
Nuzzi
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): .Bat File oder cmd.exe schließen per VBA 4 Maria1974 183 30. Nov 2013, 09:35
Gast1 .Bat File oder cmd.exe schließen per VBA
Keine neuen Beiträge Excel Hilfe: Nutzen von Excel-Start per excel.exe /e 1 BenC 85 06. Jun 2013, 09:51
Case Nutzen von Excel-Start per excel.exe /e
Keine neuen Beiträge Excel VBA (Makros): objshell.Popup schliesst sich nicht von selbst 4 Strohalm21 176 06. Mai 2013, 07:51
Strohalm21 objshell.Popup schliesst sich nicht von selbst
Keine neuen Beiträge Excel VBA (Makros): Andere Arbeitsmappe schliesst sich nicht ohne Nachfrage 4 Painleader 189 21. Aug 2012, 15:13
Painleader Andere Arbeitsmappe schliesst sich nicht ohne Nachfrage
Keine neuen Beiträge Excel Hilfe: (Status:Offen) Daten aus cmd.exe dir > *.txt filtern 21 nowhereman1945 1009 02. März 2012, 08:06
Case (Status:Offen) Daten aus cmd.exe dir > *.txt filtern
Keine neuen Beiträge Excel VBA (Makros): Exe aus Excel heraus starten 8 Blacky* 394 08. Dez 2011, 05:51
gast123456 Exe aus Excel heraus starten
Keine neuen Beiträge Excel VBA (Makros): Beenden eines VBA-Addin bzw. einer .exe 1 Beta1199 274 11. Okt 2010, 09:28
EtoPHG Beenden eines VBA-Addin bzw. einer .exe
Keine neuen Beiträge Excel Hilfe: Excel.exe benötigt 50% Systemauslastung und 1GB RAM 2 thorsteng2 1515 09. Feb 2010, 16:48
thorsteng2 Excel.exe benötigt 50% Systemauslastung und 1GB RAM
Keine neuen Beiträge Excel Hilfe: Excel in neunen Prozessen öffnen 3 Zooomy 2204 23. Nov 2009, 16:19
Zooomy Excel in neunen Prozessen öffnen
Keine neuen Beiträge Excel VBA (Makros): Unbekanntes Dateiformat mit ShellExecute als EXE ausführen 0 Sepp Bayer 1488 13. Feb 2009, 15:11
Sepp Bayer Unbekanntes Dateiformat mit ShellExecute als EXE ausführen
Keine neuen Beiträge Excel Formeln: Richtige Zeitberechnung (KW) bei parallelen Prozessen 4 bertol 395 07. Jan 2009, 15:52
neopa Richtige Zeitberechnung (KW) bei parallelen Prozessen
Keine neuen Beiträge Excel Hilfe: Doppelte Darstellung und Fehler in excel.exe 1 Tim Praez 1301 19. Sep 2008, 11:13
Gast Doppelte Darstellung und Fehler in excel.exe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web