Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: Sani03

Sani03 (Level 1) - Jetzt verbinden

06.02.2008, aktualisiert 08.02.2008, 18010 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...