This is my attempt to take, process, and post a picture every day of 2008. The links below right are the other participants in this project and Martin Bailey, on whose forum we all met and decided to give this a try. I hope you enjoy the project. Clicking on the pictures will give a larger view. Please feel free to leave comments.
Monday, December 29, 2008
December 29, 2008
Finally a day that was not completely cloudy. Shot with a Canon Powershot G9, this morning at Oak Hollow Lake. Two More to go :)
Hi, your post at http://www.15seconds.com/Issue/991021.htm gives me the courage to ask you with help on the following: . how to capture the details of multiple pages in a single excel worksheet? say, I want to capture details of few of the Asterix series (ISBNs-> 0752866281 , 0752866109 , 0752866052 , 0752888765) I want to caputre The title, Author, Description, Price, Pages, Publisher etcetera- ALL of which are in table 19 on respective pages And, I want all of them to pop up one below the other in the same excel worksheet (if possible) else at least all in one workbook. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ i used this for individual book ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ WEB 1 http://www.a1books.co.in/searchdetail.do?itemCode=0752866109
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ and tried this (in VBA) for multiple, but it did not work ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub monu_post_query() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.a1books.co.in/searchdetail.do?itemCode=[""ISBN"",""Enter ISBNs to search at A1Books, separated by commas.""]", _ Destination:=Range("a1"))
'Select a specific table. .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone
'Import the table containing the exchange rates. .WebTables = "19"
'Save the query with workbook. .SaveData = True
'Adjust columns to fit the data. .AdjustColumnWidth = True .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SaveData = True End With End Sub
ofcourse there was a lot of google, lot of crtl-c ctrl-v and some editing in it.. so you may find these codes funny
please accept my thanks, for your time and patience to read till here.
apologies if it wasnt you at http://www.15seconds.com/Issue/991021.htm
1 comment:
Hi,
your post at http://www.15seconds.com/Issue/991021.htm gives me the courage to ask you with help on the following:
.
how to capture the details of multiple pages in a single excel worksheet?
say, I want to capture details of few of the Asterix series (ISBNs-> 0752866281 , 0752866109 , 0752866052 , 0752888765)
I want to caputre The title, Author, Description, Price, Pages, Publisher etcetera- ALL of which are in table 19 on respective pages
And, I want all of them to pop up one below the other in the same excel worksheet (if possible) else at least all in one workbook.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i used this for individual book
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
WEB
1
http://www.a1books.co.in/searchdetail.do?itemCode=0752866109
Selection=19
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
and tried this (in VBA) for multiple, but it did not work
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub monu_post_query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.a1books.co.in/searchdetail.do?itemCode=[""ISBN"",""Enter ISBNs to search at A1Books, separated by commas.""]", _
Destination:=Range("a1"))
'Select a specific table.
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
'Import the table containing the exchange rates.
.WebTables = "19"
'Save the query with workbook.
.SaveData = True
'Adjust columns to fit the data.
.AdjustColumnWidth = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub
ofcourse there was a lot of google, lot of crtl-c ctrl-v and some editing in it.. so you may find these codes funny
please accept my thanks, for your time and patience to read till here.
apologies if it wasnt you at http://www.15seconds.com/Issue/991021.htm
~sailaab~ [at] gmail [dot] com
Post a Comment