Here is my first approach with getting information from the internet into my Excel spreadsheet. I have bluntly stolen some code from the Tek-Tip Forum to get started.
My aim is to visit a database in the internet
I know how to retrieve entries from the database, but what I don't is how can I
a) compare text on the webpage
b) how can I copy information from the webpage when I found a match
I am looking for this string "Also known as" which is then followed by some information that is interesting for me.
FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
I am looking for the the string "Also known as" and then I would like to write all the content after "Also known as" such as FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
into my MS Excel workbook.
"My code so far" Well most of it is copied from Tek-Tip Forum. Can open IE and visit different entries in the database.
For i = 1 To 10
'Remove all the controls since we Don't want the user to
'monkey with it
GeneAccesionNumber = Sheets("Content Information").Cells(6 + i, 14)
With objIE
.AddressBar = False
.StatusBar = False
.MenuBar = False
.Toolbar = 0
'Or leave everything alone and just hide the sucker
.Visible = True
.Navigate " & GeneAccesionNumber
End With
'let IE do it's thing and Settle before we touch it
While objIE.Busy
'Do Nothing
Wend
While objIE.Document.ReadyState <> "complete"
'AgaIn Do Nothing
Wend
Next
I know how to retrieve entries from the database, but what I don't is how can I
a) compare text on the webpage
b) how can I copy information from the webpage when I found a match
Also known as
FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
I am looking for the the string "Also known as" and then I would like to write all the content after "Also known as" such as FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
into my MS Excel workbook.
My aim is to visit a database in the internet
I know how to retrieve entries from the database, but what I don't is how can I
a) compare text on the webpage
b) how can I copy information from the webpage when I found a match
I am looking for this string "Also known as" which is then followed by some information that is interesting for me.
FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
I am looking for the the string "Also known as" and then I would like to write all the content after "Also known as" such as FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
into my MS Excel workbook.
"My code so far" Well most of it is copied from Tek-Tip Forum. Can open IE and visit different entries in the database.
For i = 1 To 10
'Remove all the controls since we Don't want the user to
'monkey with it
GeneAccesionNumber = Sheets("Content Information").Cells(6 + i, 14)
With objIE
.AddressBar = False
.StatusBar = False
.MenuBar = False
.Toolbar = 0
'Or leave everything alone and just hide the sucker
.Visible = True
.Navigate " & GeneAccesionNumber
End With
'let IE do it's thing and Settle before we touch it
While objIE.Busy
'Do Nothing
Wend
While objIE.Document.ReadyState <> "complete"
'AgaIn Do Nothing
Wend
Next
I know how to retrieve entries from the database, but what I don't is how can I
a) compare text on the webpage
b) how can I copy information from the webpage when I found a match
Also known as
FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
I am looking for the the string "Also known as" and then I would like to write all the content after "Also known as" such as FLJ23712; FLJ25931; FLJ31060; FLJ42882; FLJ45252; KIAA1048; MGC138170; MGC164568; MGC164570; DKFZp686F03202; DKFZp686K16132
into my MS Excel workbook.