Word-Objekt erzeugt mehrere http-Requests

23/12/2009 - 11:19 von Patrick Finger | Report spam
Hallo Group

Aus meinem Excel soll ein Word-Dokument geöffnet werden, welches
'on-the-fly' auf einem Server generiert wird.

Die Schlüsselstelle aus untenstehendem Code ist:

wdApp.Documents.Open(sServerCallAdress)

Diese Code-Zeile erzeugt mir 2 Http-Requests anstatt nur einem.

Kennt jemand das Problem?
Weiss jemand Abhilfe?

Vielen Dank und Grüsse

Sub GeneratePreisInfo_click()
Dim sSavePath As String

'Aktuelle Eingaben speichern
ActiveWorkbook.Save

sSavePath = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
OpenWordDoc curpath:=sSavePath

End Sub

Sub OpenWordDoc(curpath)

Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Dim sServerCallAdress As String

sServerCallAdress = "http://localhost:3048/GenerateWord.aspx" & "?path="
& curpath

On Error GoTo ErrHandler
Set wdDoc = wdApp.Documents.Open(sServerCallAdress)

wdApp.Visible = True
wdApp.Activate

Exit Sub
ErrHandler:
' error handling code
MsgBox "Error Nb:" & Err.Number & " " & Err.Description
Resume Next
End Sub
 

Lesen sie die antworten

#1 Patrick Finger
24/12/2009 - 14:49 | Warnen spam
Habe zwar keine Lösung für das konkrete Problem gefunden, dafür einen
anderen Weg, wie ich eine Url aufrufen kann.

ActiveWorkbook.FollowHyperlink Address:=sServerCallAdress, NewWindow:=True

Damit bin ich auch unabhàngig von irgendwelchen Word-Installationen.

LG

Ähnliche fragen