Publish-Command gelegentlich verweigert

Moin,
also diesmal habe ich ein etwas anderes Problem und weiß nicht, inwieweit ihr mir da helfen könnt, da es evtl über Excel hinaus geht.
Also wir haben eine Excel-Datei aufm Server, welche sich halbstündig aktuelle Informationen aus Datenbanken zieht und die Tabelle aktualisiert.
Jetzt sollen einige dieser Informationen rausgefiltert und für einen anderen Rechner zur Verfügung gestellt werden.
Dieser Rechner besitzt keine MS Office, kein Open Office und kein Adobe Reader.
Daher bin ich dazu übergegangen es alt HTML-Datei zu speichern, da der Rechner einen Internet-Explorer besitzt.
Nach dem Filtern benutze ich zum Speichern folgenden Code:

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"P:\QDM\qnbestand\Bohmeyer\Sequenz.htm", "html", _
"$A$1:$F$" & zeilen, xlHtmlStatic, "f100qnbestand_Systembetreuer_13666", "")
.Publish (True)
.AutoRepublish = True
End With

Zuerst dachte ich alles gut und schön, es funktioniert. Im Laufe des Tages, habe ich aber des Öfteren festgestellt, dass er irgendwann beim Ausführen des Makros einen Fehler bekommt.
Ungefähr:

Die Methode 'Publish' des Objektes 'PublishObject' ist fehlgeschlagen.

Das Problem löst sich sofort, wenn ich den Zieldateinamen (Sequenz.htm) ändere, aber meist nur für eine gewisse Zeit.
Meine erste Vermutung war, dass, wenn die Datei an einem anderen Rechner geöffnet ist, er diese Datei nicht überschreiben kann, aber nachdem ich genau das ausgetestet habe, schien es keine Probleme zu geben.
Wenn wir jedoch von dem Fall ausgehen, dass es daran liegt, dass die Datei im Internet Explorer irgendwo geöffnet ist, gibt es eine Möglichkeit die Datei trotzdem zu überschreiben?
Das Ziel ist es eigentlich die Datei an dem Zielrechner dauerhaft offen zu lassen und nur per Seitenaktualisierung den Inhalt im Browser zu aktualisieren.
PS: kann mir jmd. den Publish- und Autopublish-Befehl für Dumme erklären?
Liebe Grüße
Burak

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For i= 1 to 5 ' maximal 5 Versuche on error goto WARTE With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "P:\QDM\qnbestand\Bohmeyer\Sequenz.htm", "html", _ "$A$1:$F$" & zeilen, xlHtmlStatic, "f100qnbestand_Systembetreuer_13666", "") .Publish (True) .AutoRepublish = True End With on error goto 0 ' Fehlerbehandlung ausschalten Exit for WARTE: Application.Wait(Now + TimeValue("0:00:01")) ' warte 1 Sekunde next i

Hallo Burak,
in der Prozedur fehlt etwas entscheidendes:

Public Sub Test()
    Dim i As Long
    Dim zeilen As Long
    zeilen = 10
    On Error GoTo warte
    For i = 1 To 5 ' maximal 5 Versuche
        With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
                "P:\QDM\qnbestand\Bohmeyer\Sequenz.htm", "html", _
                "$A$1:$F$" & zeilen, xlHtmlStatic, "f100qnbestand_Systembetreuer_13666", "")
            .Publish (True)
            .AutoRepublish = True
        End With
        Exit For
        warte:
        Application.Wait (Now + TimeValue("0:00:01")) ' warte 1 Sekunde
        Resume weiter
        weiter:
    Next i
    On Error GoTo 0 ' Fehlerbehandlung ausschalten
End Sub

Ohne Resume .. läufst du beim nächsten fehlerhaften Versuch in einen Laufzeitfehler da die Fehlerbehandlung nicht abgeschlossen ist.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Publish-Command gelegentlich verweigert

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread