AW: Internet Explorer schliessen
04.01.2007 23:04:27
bully
Hallo Jens,
wie du siehst, auch ich werde schneller. Ich denke mir auch, dass der Rest eigentlich nicht so schwer sein kann, aber ich als Excelanfänger komme nicht drauf. Dem Forum sei dank kann ich mein Werk unter dem Motto zusammenfassen:
Zusammenklauben ist nicht schwer,.....weiterentwickeln aber schon! ;-)
Hier nun mein bisheriger Code:
In Modul5, Allgemein:
Option Explicit
Private Declare
Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public
Sub download()
URLDownloadToFile 0&, _
<a href=""http://www.Beispiel.de/bsp.txt",">"http://www.Beispiel.de/bsp.txt",</a> _
"A:\bsp.txt", 0&, 0&
End Sub
und im Tabellenblatt:
Private
Sub CommandButton9_Click()
'Liste downloaden ---> Internetverbindung muss aktiv sein!!
If MsgBox("Liste Herunterladen? - Ja/Nein", vbYesNo + vbQuestion, " ") = vbYes Then
If MsgBox("Ziel-Diskette in Laufwerk A einlegen", _
vbOKCancel + vbQuestion, " ") = vbOK Then
Else
Worksheets("Start").Activate
Exit Sub
End If
Else
Worksheets("Start").Activate
Exit Sub
End If
'öffnen der Website
ActiveWorkbook.FollowHyperlink <a href="Address:="http://www.Beispiel.de/bsp.txt",">Address:="http://www.Beispiel.de/bsp.txt",</a> NewWindow:=True
'download der txt-Datei mit Modul5
download
Die MsgBox stellt kein Problem dar, aber was folgt danach?
Gruss bully