Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: Sani03

Sani03 (Level 1) - Jetzt verbinden

06.02.2008, aktualisiert 08.02.2008, 18565 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
Microsoft Office
Laufzeitfehler 13 in Word 2013 (5)

Frage von Wild-Wolf zum Thema Microsoft Office ...

Microsoft Office
Laufzeitfehler 438 bei Word und Exel-AddIns (1)

Frage von klanax zum Thema Microsoft Office ...

Windows Server
Remote Desktop - Remote APP Services unter Windows Server 2012 R2 (6)

Frage von speedy26gonzales zum Thema Windows Server ...

Neue Wissensbeiträge
Mac OS X

Apple hat macOS High Sierra veröffentlicht

(4)

Information von Frank zum Thema Mac OS X ...

Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

(4)

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(8)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

Heiß diskutierte Inhalte
Windows Server
Seit IP Umstellung DC DNS Fehler (29)

Frage von Yaimael zum Thema Windows Server ...

Windows 10
gelöst Netzwerkkarte schaltet sich erst nach dem Logon ein (24)

Frage von DerWoWusste zum Thema Windows 10 ...

Grafik
gelöst CAD Arbeitsplätze (17)

Frage von Diddi93 zum Thema Grafik ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (16)

Frage von Voiper zum Thema Weiterbildung ...