Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketMakro som henter IE data til celle
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
andreasmadsen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 27.Aug.2017
Land: Denmark
Status: Offline
Point: 1 		Direkte link til dette indlæg Emne: Makro som henter IE data til celle
    Sendt: 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?
Til top



Til top
ThorØstergaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 13.Sep.2017
Land: Danmark
Status: Offline
Point: 59 		Direkte link til dette indlæg Sendt: 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
Til top
ThorØstergaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 13.Sep.2017
Land: Danmark
Status: Offline
Point: 59 		Direkte link til dette indlæg Sendt: 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.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk