Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abspeichern funktioniert nur jedes 2 mal
zurück: Wie lese ich das gespeicherte Format aus einem Document aus? weiter: Dateinamen aus einem String auslesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
NonStop
Gast


Verfasst am:
25. Aug 2008, 12:39
Rufname:

Abspeichern funktioniert nur jedes 2 mal - Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

Hallo leute,

ich habe ein programm geschrieben, dass mir aus einer excel tabelle ein office dokument macht und dieses dokument dann automatisch unter einem bestimmten namen abspeichert, allerdings funktioniert das nicht zweimal hintereinander und beim zweiten mal bekomme ich den fehler: "Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar" Fehler 462.

Im Debuger habe ich jetzt so auch keinen fehler feststellen können, die adresse ist richtig wo er es hinspeichert. Vielleicht hatte einer von euch ja auch mal so einen fehler.


Danke im vorraus!
NonStop
NonStop
Gast


Verfasst am:
27. Aug 2008, 09:00
Rufname:


AW: Abspeichern funktioniert nur jedes 2 mal - AW: Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

keiner eine idee??

hier mal ein bisschen code...


Code:

   Dim wrdApp As Word.Application
   Dim wrdDoc As Word.Document
   Set wrdApp = CreateObject("Word.Application")

With wrdApp
' Word Befehle
    .documents.Open Filename:="F:\e\AEM\AEM1\USER\Lichtlabor\Köster\DB Messungen\Messbericht Lichtlabor.doc"
    .Visible = True
    .Activate
    .Selection.MoveRight Unit:=wdCharacter, Count:=64
    .Selection.MoveRight Unit:=wdCharacter, Count:=8, Extend:=wdExtend
    .Selection.TypeText Text:=RefID
    .Selection.MoveDown Unit:=wdLine, Count:=4
    .Selection.MoveLeft Unit:=wdCharacter, Count:=31
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=KundeTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=Datum
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=ProjektTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=ProjektNRTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=MessobjektTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=TeilestandTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=AdMTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=GdMTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=BemerkungenTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=IATB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=IAABTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=IATNTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=BearbeiterTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=BABTTB
    .Selection.MoveRight Unit:=wdCell
    .Selection.TypeText Text:=BTNTB
   
End With


 
    ChangeFileOpenDirectory _
        "F:\e\AEM\AEM1\USER\Lichtlabor\Köster\DB Messungen\Messberichte\"
    ActiveDocument.SaveAs Filename:=RefID + ".doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
[/code]
NonStop
Gast


Verfasst am:
29. Aug 2008, 14:29
Rufname:

AW: Abspeichern funktioniert nur jedes 2 mal - AW: Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

angeblich wird word nicht richtig geschlossen... kann mir einer sagen, wie ich es richtig schließe???
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
29. Aug 2008, 15:12
Rufname:
Wohnort: Leipzig

AW: Abspeichern funktioniert nur jedes 2 mal - AW: Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

Hallo NonStop,

am Ende Deines Codes sollten alle Dokumente und Word geschlossen und die Variablen freigegeben werden, etwa:
Code:
wrddoc.Close
wrdApp.Quite
Set wrddoc = Nothing
Set wrdApp = Nothing

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
01. Sep 2008, 08:46
Rufname:

AW: Abspeichern funktioniert nur jedes 2 mal - AW: Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

mhm, danke für die hilfe, aber jetzt sagt er mir bei wrdDoc.Close:

Laufzeitfehler 91: "Objektvariable oder With-Blockvariable nicht festgelegt"


vielleicht weißt du woran das liegen könnte. Dankeschön!
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
01. Sep 2008, 12:43
Rufname:
Wohnort: Leipzig


AW: Abspeichern funktioniert nur jedes 2 mal - AW: Abspeichern funktioniert nur jedes 2 mal

Nach oben
       Version: Office 2k (2000)

Hallo Nonstop,

ja, ich sehe es gerade. Du hast die Objektvariable für die Worddatei zwar deklariert
Code:
Dim wrd As Word.Document

aber gar nicht verwendet. Ändere mal den Anfang Deines Codes:
Code:
' Word Befehle
Set wrddoc = wrdApp.documents.Open Filename:="F:\e\AEM\AEM1\USER\Lichtlabor\Köster\DB Messungen\Messbericht Lichtlabor.doc"

With wrdApp
...

Und unten statt:
Code:
ActiveDocument.SaveAs ...

so:
Code:
wrddoc.SaveAs ...

Dann noch den Schluss, wie oben genannt, unten dran, so dass jede instanzierte Objekt verwendet, am Schluss beendet/geschlossen und wieder freigegeben wird.

Gruß
Lisa
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 Word Serienbriefe: Serienbrief in einzelne pdf-Dokumente abspeichern. 1 tomcat1 818 19. März 2014, 13:07
Gast Serienbrief in einzelne pdf-Dokumente abspeichern.
Keine neuen Beiträge Word Serienbriefe: Serienbrief als PDF abspeichern - will nicht so recht 0 mrniceguy1977 295 30. Jan 2013, 09:27
mrniceguy1977 Serienbrief als PDF abspeichern - will nicht so recht
Keine neuen Beiträge Word Serienbriefe: Word Seriendruck Etiketten funktioniert nicht 0 evonkula 796 07. Sep 2012, 08:44
evonkula Word Seriendruck Etiketten funktioniert nicht
Keine neuen Beiträge Word Formate: Tastenkombi für geschütztes Leerzeichen funktioniert nicht 2 raupiraupe 1922 26. Jul 2012, 11:59
raupiraupe Tastenkombi für geschütztes Leerzeichen funktioniert nicht
Keine neuen Beiträge Word Formate: Formatvorlagen aus Startup funktioniert nicht 0 JamesL 286 05. Jun 2012, 12:08
JamesL Formatvorlagen aus Startup funktioniert nicht
Keine neuen Beiträge Word Formate: Datum automatisch aktualisieren funktioniert nicht! Hilfe 3 Peter Otto 2199 28. Feb 2012, 18:32
matr Datum automatisch aktualisieren funktioniert nicht! Hilfe
Keine neuen Beiträge Word Serienbriefe: Serienbrief jede seite einzeln abspeichern 7 mayer 5879 23. Feb 2012, 09:49
xanne Serienbrief jede seite einzeln abspeichern
Keine neuen Beiträge Word Formate: Format Vorlage "funktioniert nur bei 1 Seite" 3 forumtipper 594 25. Feb 2011, 16:21
forumtipper Format Vorlage "funktioniert nur bei 1 Seite"
Keine neuen Beiträge Word Formate: Automatische Silbentrennung funktioniert nicht! 3 Lisbeth91 6882 16. Feb 2011, 18:06
Gast Automatische Silbentrennung funktioniert nicht!
Keine neuen Beiträge Word Formate: SmartArt - bearbeitete Hierarchie als Vorlage abspeichern?! 3 becks76 2211 26. Apr 2010, 14:28
Gast SmartArt - bearbeitete Hierarchie als Vorlage abspeichern?!
Keine neuen Beiträge Word Formate: Seitennummerierung bei 1 beginnen funktioniert nicht 14 Locke der Boss 2315 26. Okt 2009, 12:39
Locke der Boss Seitennummerierung bei 1 beginnen funktioniert nicht
Keine neuen Beiträge Word Formate: Silbentrennung funktioniert nur in einem Dokument nicht 0 super.valle 1508 11. Okt 2009, 11:33
super.valle Silbentrennung funktioniert nur in einem Dokument nicht
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln