Automatisk upload af kildekode

Hvordan ser sådan et link ud?

Det kunne være

www.eksperten.dk
www.bold.dk
www.eb.dk

o.s.v.

Mvh
Kim

Så kan du bruge eksemplet her som udgangspunkt

Sub HentInfo()
Dim oIE As SHDocVw.InternetExplorer
Dim sPage As String
Dim intStart, intSlut As Long
Dim Info As String
Set oIE = New SHDocVw.InternetExplorer
oIE.Navigate "http://www.dr.dk"
Do Until oIE.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop

sPage = oIE.Document.body.InnerHtml
Range("A1").Value = sPage
End Sub

Når jeg kører den, kommer denne meddelelse:

Compile error:

User-defined type not defined

og "oIE As SHDocVw.InternetExplorer" er highlighted.

Jeg kan lige give lidt flere detaljer om hvor det er jeg vil hen.

Altså jeg har et antal links i nogle celler i Sheet1. Makroen skal hente kildekoden fra det første link og sætte ind i Sheet2. Her køre en ny makro (som jeg har lavet) der trækker relevante data ud af kildekoden. De relevante data bliver kopieret over i Sheet3. Sheet2 bliver nu renset (helt). Nu skal kildekode fra næste link hentes som så får samme tur.

Prøv at oprette reference til "Microsoft Internet Controls"

Sub HentInfo()
Dim oIE As SHDocVw.InternetExplorer
Dim sPage As String
Dim intStart, intSlut As Long
Dim Info As String
dim c as range
for each c in range("A1", range("A1").end(xldown)).cells
  Set oIE = New SHDocVw.InternetExplorer
  oIE.Navigate c.value
  Do Until oIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
  Loop

  sPage = oIE.Document.body.InnerHtml
  worksheets("Sheet2").range("A65536").end(xlup).offset(1,0) = sPage
next
End Sub

.

.