iteration of table data in power query

[trackster]

I need help with using a table that has web page numbers. I am wanting to use those page numbers and gather the data from those webpages.

here is what I have so far:

(page as number) as table =>
let
Source = Web.Page(Web.Contents("http://www.wvculture.org/vrr/va_dcdetail.aspx?Id=" & Number.ToText(page))),
Data0 = Source{0}[Data],
#"Changed Type" = Table.TransformColumnTypes(Data0,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}}),
#"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Column3"}),
#"Transposed Table" = Table.Transpose(#"Removed Columns"),
#"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table", [PromoteAllScalars=true]),
#"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"Death Record Detail...", type text}, {"Name:", type text}, {"Sex:", type text}, {"Death Date:", type text}, {"Death Place:", type text}, {"Age at Death:", type text}, {"Burial Place:", type text}, {"Burial Date:", type text}, {"Cemetery:", type text}, {"Funeral Home:", type text}, {"Birth Date:", type text}, {"Birth Place:", type text}, {"Marital Status:", type text}, {"Spouse:", type text}, {"Occupation:", type text}, {"Address:", type text}, {"Residence:", type text}, {"Mother:", type text}, {"Mother's Birth Place:", type text}, {"Father:", type text}, {"Father's Birth Place:", type text}, {"Informant:", type text}, {"Records maintained by West Virginia Archives & History#(cr)#(lf)For Research Purposes Only#(cr)#(lf)West Virginia Division of Culture and History#(cr)#(lf)Copyright 2018. All Rights Reserved.#(cr)#(lf)Privacy Notice", type text}})
in
#"Changed Type1"


here is what I have for my invoked function code:

let
Source = {94318..467833},
#"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Renamed Columns" = Table.RenameColumns(#"Converted to Table",{{"Column1", "page"}})
in
#"Renamed Columns"

I am trying to get all that data into one excel worksheet. could someone please help me with this?

 

[VBA Geek]

Assuming your function is named Query1

then invoke it like this:

let
    Source = List.Accumulate(
                {94318..94330},
                [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=table]#table[/URL] ({},{}),
                (state, current) => Table.Combine({state,[SIZE=3][COLOR=#ff0000][B]Query1[/B][/COLOR][/SIZE](current)})
             )
in
    Source

 

[trackster]

I had to change a line or two in my original statement, but in combination with what you have it worked out very well. Thank you for the help!!!!