Print side | Luk vindue

Makro som henter IE data til celle

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3139
Udskrevet den: 05.Maj.2024 kl. 20:00


Emne: Makro som henter IE data til celle
Besked fra: andreasmadsen
Emne: Makro som henter IE data til celle
Posteringsdato: 27.Aug.2017 kl. 10:56
Hej alle.
 
Jeg har brug for en makro, som kan åbne en wikipedia-side (fx https://da.wikipedia.org/wiki/Ibuprofen - https://da.wikipedia.org/wiki/Ibuprofen). Makroen skal derefter kunne identifere "systematisk navn" i tabellen til højre og så skrive det systematiske navn ind i en celle i Excel-arket. Jeg har allerede skrevet den del som åbner hjemmesiden, men jeg kan ikke finde ud af at få fat i det systematiske navn.
 
Nogen forslag?


Svar:
Besked fra: ThorØstergaard
Posteringsdato: 13.Sep.2017 kl. 15:01
Skud fra hoften...

 
sPage = oIE.Document.body.InnerHtml
 intStart = InStr(1, sPage, "<h1 id=""firstHeading"" class=""firstHeading"" lang=""da"">")
 intSlut = InStr(intStart, sPage, "</h1>")
 Info = Mid(sPage, intStart, intSlut - intStart + 55)
 MsgBox Info

Besked fra: ThorØstergaard
Posteringsdato: 13.Sep.2017 kl. 15:10
Alternativt kan du kigge på et produkt som UIPath, der har smarte funktioner til indsamlig af data fra nettet.

Besked fra: EXCELGAARD
Posteringsdato: 13.Sep.2017 kl. 15:50
Hvorfor kun det systematiske navn??
Hvorfor ikke også alle de andre oplysninger, der er om de kemiske forbindelser, som f.eks. formel, vælgt, smeltepunkt, o.s.v.?
Oplysningerne står jo alle på de kemiske forbindelser på Wikipedias sider...
Hvilke informationer er interessante?
Så laver jeg lige en funktion, der henter de ønskede oplysninger - det kan ikke være så svær  Smile
Hvilke af de oplyste informationer skal funktionen kunne hente?


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: EXCELGAARD
Posteringsdato: 16.Sep.2017 kl. 12:51
Tja, konen har været på natarbejde, og jeg er tvungen til at sidde stille hele formiddagen...
...så kan man vel lige så godt benytte lørdag formiddag til at strikke en funktion sammen Geek

Jeg har valgt, at kalde min funktion for =WIKEMIDIA(), der er en sammenfletning af ordene 'Wikipedia' og 'kemi', hvor jeg har udskiftet stavelsen 'kipe' i 'Wikipedia', ud med ordet 'kemi'.
Altså bliver funktionens navn til =WIKEMIDIA()  (kort, hvor er jeg kreativ LOL)

Da jeg ikke har hørt fra spørgeren om, hvilke informationer, det kunne være interessant, at 'høste' fra Wikipedia, så har jeg selv udvalgt 7 stk:

  1. Den kemiske formel for den kemiske forbindelse
  2. Molekylær (atom-) vægt
  3. Massefylde
  4. Opløselighed (i vand)
  5. Smeltepunkt
  6. Kogepunkt
  7. IUPAC's systematiske navn
Så, hvis man ønsker det systematiske navn for en kemisk forbindelse, f.eks. Ibuprofen, så skriver man blot i en celle: 
= WIKEMIDIA ( "Ibuprofen" ; 7 )
Og, man kan naturligvis have navnet på den kemiske forbindelse stående i en celle, og henvise til cellen, f.eks. 
= WIKEMIDIA ( A1 ; 7 )
I kan finde det hele her:
www.excelgaard.dk/Bib/WIKEMIDIA/ www.excelgaard.dk/Bib/WIKEMIDIA/







-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: EXCELGAARD
Posteringsdato: 01.Okt.2017 kl. 21:29
Hvaaa'????
 
Var det noget, du kunne bruge, Andreas???


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Print side | Luk vindue