Excel総合相談所 149

656 ：643：2022/05/12(木) 09:44:21.26 .net

>>655 の続き

// データ部の読込み (「ソース」行をコピペして、ステップ名重複回避のために名前を「ソース1」に変更
ソース1 = Csv.Document(File.Contents(R_TargetFile),[Delimiter=" ", Columns=3, Encoding=932, QuoteStyle=QuoteStyle.None]),
削除された最初の行 = Table.Skip(ソース1,3),
昇格されたヘッダー数1 = Table.PromoteHeaders(削除された最初の行, [PromoteAllScalars=true]),
変更された型1 = Table.TransformColumnTypes(昇格されたヘッダー数1,{{"サンプル番号", Int64.Type}, {"測定値A", Int64.Type}, {"測定値B", Int64.Type}}),
日付列の追加 = Table.AddColumn(変更された型1, "日付", each H_Date), // カスタム列の追加
測定者列の追加 = Table.AddColumn(日付列の追加, "測定者", each H_Measurer), // カスタム列の追加
変更された型2 = Table.TransformColumnTypes(測定者列の追加,{{"日付", type date}, {"測定者", type text}})
in
変更された型2

以上

sheet上のセルのどこかを"R_TargetFile"と名前定義し、そこにtest1.txtのフルパスを貼った上で、
空のクエリーに上記記述をコピペすれば、
動くと思う、多分。