Excel総合相談所 155

129 ：名無しさん＠そうだ選挙にいこう：2023/09/17(日) 02:41:28.25 .net

>>127
1. あらかじめ元のURLを、「テキスト」(デフォルトのhtmlとしてではなく)として読み込むだけのクエリーを作っておく
2. その際、文字コードの自動認識では文字化けするので、ステップの「ソース」を開いて、
　そのWebページに適合した文字コード（932：日本語（シフトJIS）とか）に変更しておく
3. ワークシート上で、URLの固定部分と変動部分をそれぞれ別セルに分けておく
4. クエリーで参照するURLを、3.の文字列結合などで生成して、そのセルを名前定義（例：R_URL）しておく
5. 1. で作っておいたクエリーを詳細エディターで開いて、「let」と「ソース」の間に、以下の行を入れ、
　R_URL = Excel.CurrentWorkbook(){[Name="R_URL"]}[Content]{0}[Column1],
6. 「ソース」の記述の中のURLの部分を、前後の""を消して R_URL に置き換える

行番号も振ると、こんな↓感じ。

let
R_URL = Excel.CurrentWorkbook(){[Name="R_URL"]}[Content]{0}[Column1],
ソース = Table.FromColumns({Lines.FromBinary(Web.Contents(R_URL), null, null, 932)}),
追加されたインデックス = Table.AddIndexColumn(ソース, "行番号", 1, 1, Int64.Type),
並べ替えられた列 = Table.ReorderColumns(追加されたインデックス,{"行番号", "Column1"})
in
並べ替えられた列

これで、5chのWebページをクエリーでテキストとして読み込むと、
この中から各レスを抽出するのは、ちょっと面倒臭そうな
特殊な作りの模様。