Automatisch open bestand

[Bergv]

Beste Helpmij-ers.

Ik zou graag met een macro automatisch een Excel bestand van internet downloaden en dit gaat goed, alleen verschijnt er steeds een Dialog box met "Bestand downloaden" en de opties Open,Opslaan of Annuleren. Heeft iemand een idee hoe ik de macro ook automatisch op "open" kan laten drukken zodat het bestand direct opent?

Code:

Sub Internet()
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.tennet.org/bedrijfsvoering/ExporteerData.aspx?exporttype=dertigdagenspotruimte&tso=3&format=xls&submit=2"
End Sub

Mvg Victor

 

[Mark xl]

Beste Bergv,

Via internet explorer krijg je altijd een "opslaan als" dialog

Je kunt het doen via de Windows API, bijvoorbeeld als hieronder

Je moet dan wel een pad voor het bestand selecteren alvorens je hem kan openen. ik heb ervoor gekozen om het bestand op de desktop te plaatsen met de naam "webdownload.xls" maar dat kun je natuurlijk naar behoefte aanpassen

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
                                        ByVal pCaller As Long, _
                                        ByVal szURL As String, _
                                        ByVal szFileName As String, _
                                        ByVal dwReserved As Long, _
                                        ByVal lpfnCB As Long) As Long
Private Const urlFile As String = _
   "http://www.tennet.org/bedrijfsvoering/ExporteerData.aspx?exporttype=dertigdagenspotruimte&tso=3&format=xls&submit=2"
Private Const destinationfile As String = "webdownload.xls"

Sub DownloadOpenXLsFile()
Dim tempfile As String

    tempfile = Desktopdir & destinationfile
    URLDownloadToFile 0, urlFile, tempfile, 0, 0
    
    On Error Resume Next
    Workbooks.Open destinationfile

End Sub

Private Function Desktopdir() As String
    Desktopdir = CreateObject("Wscript.Shell").Specialfolders("Desktop") & "\"
End Function

 

[Bergv]

Beste Mark xl,
Het werkt prima, dank je wel!:thumb:

 

[dprod]

@Bergv

Even op opgelost zetten als je hiermee voldoende geholpen bent

Gr,
dprod