Excal 2003 och Internet

[CGD]

Kan jag få Excel att per automatik hämta prisuppgifter från Internet.

Exempelvis att jag vill ha priset från några olika butiker kommer upp i bestämda celler Excel. Så om priset ändrar sig så ändrar sig talet i cellen. 

[fredde]

Denna kod hämtar ppm-kurser till en excelfil. Går att modifiera till att göra annat också.

Sub DownloadPPM_Vardag()
Dim ActualDay As Integer
    Dim myURL As String
    Dim FileName As String
    Dim WinHttpReq As Object
    
    ActualDay = WorksheetFunction.Weekday(Date)

    Select Case ActualDay
    Case 1
        'MsgBox "Ej Vardag"
        'Application.DisplayAlerts = False ' gör att du inte får fråga om att spara först...
        'Application.Quit 'avslutar
        Exit Sub
        
    Case 7
        'MsgBox "Ej Vardag"
        'Application.DisplayAlerts = False ' gör att du inte får fråga om att spara först...
        'Application.Quit 'avslutar
        Exit Sub
          
    Case Else
       myURL = "http://www.pensionsmyndigheten.se/fundfact/kurser.csv"
    
        Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
        WinHttpReq.Open "GET", myURL, False
        WinHttpReq.Send
    
        myURL = WinHttpReq.ResponseBody
        If WinHttpReq.Status = 200 Then
            Set oStream = CreateObject("ADODB.Stream")
            oStream.Open
            oStream.Type = 1
            oStream.Write WinHttpReq.ResponseBody
            On Error Resume Next
            oStream.SaveToFile ("C:\sökväg till mapp där filen ska lagras\kurser_" & Date & ".xls")
            oStream.Close
        End If
    End Select
   
End Sub

 

 

[CGD]

Tack för ditt försök att visa mig men det här förstod jag inte.

Var skall denna kod skrivas in?

Jag tänkte mig planera inför ett kommande köp av helt ny dator och hade hoppats på att kunna lista vissa intressanta delar i ett Excel ark. Tänk dig att jag vill hålla koll på SSD priser och en av dem jag är intresserad utav är denna; http://www.inet.se/produkt/4304474/samsung-ssd-pro-basic-840-series-128gb

Hur skall jag bete mig för att få in priset på just den i en bestämd ruta i kalkylarket?

[si3rra]

för att bryta ut lite från tråden men på http://www.prisjakt.nu/ kan du skapa listor och prisbevaka produkter om du har ett konto.