Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

HTML Datei mit VBA beenden

HTML Datei mit VBA beenden
06.02.2004 11:12:44
Alex K.
Hallo Excels,
habe mir folgendes Makro zusammengebastelt.
Es soll als Fortschrittsanzeige(Ersatz) dienen.
Klappt alles ganz gut, wie aber kann ich aus Excel heraus den Explorer wieder schlissen.
Danke schon mal für eure Hilfe.
Gruss
Peter

Private Sub speichern()
Dim FileName$
Dim Farbe1
Dim Farbe2
FileName = "C:/Dummi" & ".htm"
Farbe1 = "#00ffff"
Farbe2 = "#0000ff"
' Farbe1 = "#FFFFFF"
'Farbe2 = "#000000"
name = Application.UserName
Close #1
Open FileName For Output As 1
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, "Peter.Guttke"
Print #1, "  Angemeldet als:" & "   " & name
Print #1, "

Betrifft: AW: HTML Datei mit VBA beenden
Hallo Peter,
hier mein Vorschlag:

Private objExplorer As Object 'modulglobal definieren, damit in Öffnen
' und Schliessen darauf zugegriffen werden kann
Private Sub schliessen()
objExplorer.Quit
Set objExplorer = Nothing
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: HTML Datei mit VBA beenden
06.02.2004 11:12:44
Alex K.
Hallo Peter,
hier mein Vorschlag:

Private objExplorer As Object 'modulglobal definieren, damit in Öffnen
' und Schliessen darauf zugegriffen werden kann
Private Sub schliessen()
objExplorer.Quit
Set objExplorer = Nothing
End Sub

AW: HTML Datei mit VBA beenden
06.02.2004 11:21:19
peter
Hi Alex,
danke erst mal für die schnelle Antwort.
Aber leider bleibt das Makro hier hängen => objExplorer.Quit
Gruss Peter
AW: HTML Datei mit VBA beenden
06.02.2004 11:26:32
Alex K.
Hallo Peter,
hast du objExplorer auch modulglobal definiert und wichtig: die Definition in Sub Öffnen gelöscht?
Du kannst noch folgendes probieren:

Private Sub schliessen()
If Not objExplorer Is Nothing then
objExplorer.Quit
Set objExplorer = Nothing
end if
End Sub

Anzeige
AW: HTML Datei mit VBA beenden
06.02.2004 11:28:49
alles klar Funktionier DANKE!!
.

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige