download csv file va het internet middels vba

[manueld]

ik wil graag periodiek een csv bestand in mijn access database importeren. importeren en updaten is geen probleem voor mij maar het downloaden lukt me niet echt. wat ik wil is dat hij het bestand "http://finance.yahoo.com/d/quotes.csv?e=.csv&f=c4l1&s=twd=X""(de laatste dubbele " hoort er bij) wordt gedownload en uiteindelijk in een tabel komt. de tabel moet nog gemaakt worden en zal uit 1 record en 1 veld bestaan. puur de huidige waarde. wie kan mij helpen hoe te downloaden?

 

[jkpieterse]

Maak gebruik van de URLDownloadTOFIle API:

#If VBA7 Then
    Private Declare PtrSafe 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
#Else
    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
#End If

Private Sub DownloadFile(strWebFilename As String, strSaveFileName As String)
    ' Download the file.
    URLDownloadToFile 0, strWebFilename, strSaveFileName, 0, 0
End Sub

 

[snb]

Iets minder exotisch:

Sub M_snb()
   Application.DisplayAlerts = False
   With Workbooks.Open("http://finance.yahoo.com/d/quotes.csv?e=.csv&f=c4l1&s=twd=X""")
      .SaveAs "G:\OF\fluitje.csv", 23
      .Close
   End With
End Sub

of toch:

Sub M_snb_001()
    With CreateObject("CDO.Message")
        .addrelatedbodypart "http://finance.yahoo.com/d/quotes.csv?e=.csv&f=c4l1&s=twd=X""", "snb", 0
        .GetStream.SaveToFile "G:\OF\fluitje_000.csv"
    End With
End Sub

 

[manueld]

de code

Sub M_snb_001()
    With CreateObject("CDO.Message")
        .addrelatedbodypart "http://finance.yahoo.com/d/quotes.csv?e=.csv&f=c4l1&s=twd=X""", "snb", 0
        .GetStream.SaveToFile "G:\OF\fluitje_000.csv"
    End With
End Sub

werkt prima voor mij. simpel en doel treffend. ik zal er nog even een error routine in bouwen maar de basis is goed. thanx. de eerste code liep vast. object of methode niet gevonden.