説明が面倒なんですよ。たぶん伝わらないとは思いますが...
こんな表を作成して
URL
https:// . . / / / /index_R101.html
https:// . . / / / /index_R102.html
https:// . . / / / /index_R103.html
【1】関数作成
最初のURLだけをコピーして「Webから」で必要なテーブルを選択して読み込む
→詳細エディター を開く
let
ソース = Web.Contents("https:// . . / / / /index_R101.html"),
#"HTML から抽出されたテーブル" = Html.Table(ソース, ),
変更された型 = Table.TransformColumnTypes(#"HTML から抽出されたテーブル", )
in
変更された型
→最初に1行追加して Web.Contents の後ろを WebURL に書き換え
(WebURL)=>
let
ソース = Web.Contents(WebURL),
#"HTML から抽出されたテーブル" = Html.Table(ソース, ),
変更された型 = Table.TransformColumnTypes(#"HTML から抽出されたテーブル", )
in
変更された型
→プロパティで 名を GetWeb にする
→閉じて読み込む
【2】上の関数GetWebを利用してURLすべてを読み込んで展開する
テーブルまたは範囲からで最初の表を全て読み込む
let
ソース = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
変更された型 = Table.TransformColumnTypes(ソース,{{"URL", type text}})
in
変更された型
→列の追加 カスタム列 カスタム列の式 = GetWeb([URL]) とする
→カスタム列を展開する
let
ソース = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
変更された型 = Table.TransformColumnTypes(ソース,{{"URL", type text}}),
追加されたカスタム = Table.AddColumn(変更された型, "カスタム", each GetWeb([URL])),
#"展開された カスタム" = Table.ExpandTableColumn(追加されたカスタム, "カスタム", )
in
#"展開された カスタム"
