Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Laufzeitfehler 462, Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar

Mitglied: Sani03

Sani03 (Level 1) - Jetzt verbinden

06.02.2008, aktualisiert 08.02.2008, 19099 Aufrufe, 2 Kommentare

Fehlermeldung beim 2. mal öffen einer Vorlage eines Word Dokumentes das über Makro aus einem mit VB6 Programmierten Programm ausgefüllt wird.

Hallo zusammen,

hab folgendes Problem,

und zwar hab ich zwar in VB6 einige Erfahrung, habe aber leider in VBA Programmierung, speziell bei einem Zugriff auf Word / Excel absolut keine erfahrung. Habe zwar schon seit 2 tagen bei google gesucht. Weiß jetzt zwar das die Fehlermeldung warscheinlich damit zusammenhängt, dass ich das Word irgendwie nicht richtig schließe. Daher das ich dort aber ein Grünschnabel bin benötige ich eure hilfe, weil ich zu keinem grünen Zweig komme. Hier meinen Programmtext: Und zwar greife ich auf ein Programm das ich mit VB6 Programmiere auf ein Word Dokument zu, der so lautet:


Private Sub cmdTestRechnungdruck_Click()
Dim word As New word.Application
Dim sBuffer As String
word.Documents.Add
word.Visible = True


sBuffer = "C:\Temp\"


ChangeFileOpenDirectory sBuffer
Documents.Open FileName:="Rechnung.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""


With word.ActiveWindow


.Selection.MoveDown
.Selection.MoveDown
.Selection.TypeParagraph
.Selection.TypeText Text:="Firma"
.Selection.MoveDown
.Selection.TypeText Text:="Name"
.Selection.TypeParagraph
.Selection.TypeText Text:="Straße"
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeText Text:="Adresse"
.Selection.MoveDown
.Selection.MoveDown
.Selection.TypeParagraph

Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend


.Selection.TypeText Text:="Ort"
.Selection.TypeText Text:=", den "
.Selection.TypeText Text:=Date
.Selection.MoveDown unit:=wdLine, Count:=8
.Selection.TypeText Text:="Rechnungsnummer"
.Selection.MoveRight unit:=wdWord, Count:=3
.Selection.TypeText Text:=" "
.Selection.TypeText Text:="Kundennummer"
.Selection.MoveDown unit:=wdLine, Count:=3
.Selection.MoveLeft unit:=wdWord, Count:=4


.Selection.TypeText Text:="Position1"
.Selection.MoveRight
.Selection.TypeText Text:="Leistung1"
.Selection.MoveRight
.Selection.TypeText Text:="Anzahl1"
.Selection.MoveRight
.Selection.TypeText Text:="Einzelpreis1"
.Selection.MoveRight
.Selection.TypeText Text:="Gesamtpreis1"
.Selection.MoveDown
.Selection.MoveLeft unit:=wdWord, Count:=4


.Selection.TypeText Text:="Position2"
.Selection.MoveRight
.Selection.TypeText Text:="Leistung2"
.Selection.MoveRight
.Selection.TypeText Text:="Anzahl2"
.Selection.MoveRight
.Selection.TypeText Text:="Einzelpreis2"
.Selection.MoveRight
.Selection.TypeText Text:="Gesamtpreis2"
.Selection.MoveRight


.Selection.TypeText Text:="Position3"
.Selection.MoveRight
.Selection.TypeText Text:="Leistung3"
.Selection.MoveRight
.Selection.TypeText Text:="Anzahl3"
.Selection.MoveRight
.Selection.TypeText Text:="Einzelpreis3"
.Selection.MoveRight
.Selection.TypeText Text:="Gesamtpreis3"
.Selection.MoveDown
.Selection.TypeText Text:="Gesamtrechnungsbetrag"
.PrintOut
word.ActiveDocument.Saved = True


word.Documents.Close

ChangeFileOpenDirectory sBuffer


word.Application.Quit


End With

End Sub



Wie muss ich das Deklarieren das ich das Word Dokument auch ein zweites mal öffnen kann, ohne das dort die Fehlermeldung auftaucht?

Wo muss ich das Einfügen?
Muss ich irgendwelche Variablen anders Deklarieren??



Schonmal vielen Dank für eure Hilfe.

Gruß Sani03
Mitglied: SvenGuenter
07.02.2008 um 09:13 Uhr
01.
Dim word As New word.Application 
02.
Dim sBuffer As String 
03.
word.Documents.Add 
04.
word.Visible = True 
05.
 
diesen Teil verstehe ich nicht ganz. Das sollte doch eigentlich so aussehen
01.
 
02.
DIM word as OBJECT 
03.
 
04.
Pivate sub test() 
05.
 
06.
if word is nothing then 
07.
set word = Createobject("Word.Document.xxx)'xxx steht für die Wordversion 
08.
end if 
09.
 
10.
with word.application 
11.
 
12.
.visible = true 
13.
14.
15.
16.
 
17.
 
18.
end with 
19.
 
20.
AppActivate "Microsoft Word" 
21.
Clipboard.clear 
22.
word.activeDocument.close wdDoNotSaveChanges 
23.
 
24.
 
25.
end sub 
26.
 
Gruß


Sven
Bitte warten ..
Mitglied: Sani03
08.02.2008 um 00:11 Uhr
Hi Sven,

vielen dank für deine Hilfe.

Habs nun mit ein paar kleinen Umbauten hinbekommen


Gruß

Sani03
Bitte warten ..
Ähnliche Inhalte
Windows 8
Explorer sucht Pfad der nicht existiert
Frage von godlieWindows 85 Kommentare

Hallo, ich sitz hier vor einem interessantem Problem, ein Win 8.1 Rechner welcher sich bei Dateioperationen immer wieder einbildet ...

Microsoft Office
Laufzeitfehler 13 in Word 2013
Frage von Wild-WolfMicrosoft Office5 Kommentare

Hallo zusammen. Ich habe einen blöden Fehler, den ich einfach nicht wegbekomme. Wenn ich aus Outlook eine Word-Datei öffne, ...

Vmware
VCenter Server Updates verfügbar
Information von sabinesVmware

Eine "moderate" Sicherheitslücke wird mit dem vCenter Update geschlossen. Das Update ist für 5.5, 6.0 und 6.5 verfügbar.

VB for Applications

Mit VBA prüfen, ob Tabellenblatt existiert

gelöst Frage von Anna2701VB for Applications9 Kommentare

Hallo zusammen, ich habe folgendes Problem: Ich prüfe in meinem Code, ob ein Tabellenblatt existiert und wenn es existiert ...

Neue Wissensbeiträge
Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 9 StundenDrucker und Scanner

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 1 TagRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Firewall

Möglicherweise neue Sicherheitslücke in Mikrotik-Firmware

Information von LordGurke vor 3 TagenFirewall3 Kommentare

Hallo zusammen, vor ein paar Monaten gab es ja bereits eine Sicherheitslücke in der Firmware von Mikrotik-Routern, über welche ...

Erkennung und -Abwehr
Rechner hacken mit Cortana, auch Remote
Information von Lochkartenstanzer vor 4 TagenErkennung und -Abwehr3 Kommentare

heise berichtet über den Vortrag von der Blackhat Open Sesame: Picking Locks with Cortana. Einige Fehler sind schon gefixt, ...

Heiß diskutierte Inhalte
Windows Netzwerk
Performance bei Terminalserver
Frage von azizalexanderWindows Netzwerk20 Kommentare

Hallo zusammen, Ich wusste nicht in welches Thema meine Frage passt ich Bitte um Vergebung falls ich hier falsch ...

Exchange Server
Exchange 2013 - Unable to Relay nach extern, SuperMailer
Frage von leon123Exchange Server15 Kommentare

Hallo zusammen, ich brauch mal wieder eure Hilfe. Ich beschäftige mich gerade mit dem SuperMailer und erhalte vom Exchange ...

Peripheriegeräte
Steckdose(nleiste) mit Schwellwert für off und mit externem Taster
Frage von ahstaxPeripheriegeräte15 Kommentare

Hallo, ich suche eine Steckdose oder Steckdosenleiste mit externem Taster und Schwellwerterkennung. Zu realisieren ist folgendes: Ein PC soll ...

Windows Server
Remote Desktop Services User Profile Disk - DFS
Frage von einzelkindWindows Server14 Kommentare

Hallo Miteinander, ich richte gerade eine neue RDS Farm auf Basis von Windows Server 2016 ein. Von Server 2012 ...