Dim Excel As Object
Dim LFlag As Boolean
Dim doku-id as string
Dim url as string
Dim IeAppli as Object
 
Set IeAppli = createobject(“InternetExplorer.Application”)
IeAppli.visible = True
 
 Set Excel = CreateObject("Excel.Application")
  Excel.Visible = False
   Excel.Workbooks.Open “H:\Eigene\SAP-BW\Dokumente1.xls”
    LFlag = True
 
For each c in excel.range(“A1:A5”)
‘Werte auslesen
doku-id = c.Value
‘URL basteln
url = “http://oklbwe.kl.int:8100/SAP/BW/DOC/TRAN/FLDTRAN/” & doku-id
 
IeAppli.navigate2 url
 
End for
 
 
 
  Excel.ActiveWorkbook.Close SAVECHANGES:=LFlag
 
  Excel.Quit
  Set Excel = Nothing
End Sub