Download ohne Anzeige

Dim txt 'As String  
Dim txt1 'As String  
Dim txt2 'As String   

Dim txt3 'As String  
txt2 = DownloadString("http://tspo...info.txt")   
txt3 = DownloadString("http://tspoi.....Info.txt")   

If not txt2 = "" Then   
MsgBox txt2 
End If 


Const xlToRight = -4161

Set oXL = WScript.CreateObject("EXCEL.application")  
With oXL
.Visible = False
.Workbooks.Open ("http://tspo.....o.xlsx")   

txt = .Worksheets(1).Range("B13").Value  
txt1 = .Worksheets(1).Range("B11").Value  
.ActiveWorkbook.Close False
.Application.Quit
End With
MsgBox "Hallo " & txt1 & vbNewLine & txt  & vbNewLine  & vbNewLine & time & vbNewLine & txt3  


Public Function DownloadString(ByVal URL) 'As String   
Dim WebReq 'As MsXml2.XmlHttp   
Dim FSO 'As Scripting.FileSystemObject   
Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")   
Set FSO = CreateObject("Scripting.FileSystemObject")   
WebReq.Open "get", URL, False   
WebReq.Send 
DownloadString = WebReq.ResponseText 
End Function