HTML Datei mit VBA beenden
06.02.2004 11:12:44
Alex K.
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