VBA で PowerQuery サポート無しでフォルダー取得クエリ作成

Sub Macro1()
' Macro1 Macro
    ActiveWorkbook.Queries.Add Name:="08", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & _
        "    ソース = Folder.Files(""D:\自ブックFolder\CSV\2021\08"")," & Chr(13) & "" & Chr(10) & _
        "    追加されたカスタム = Table.AddColumn(ソース, ""カスタム"", each [Content])" & Chr(13) & "" & Chr(10) & _
        "in" & Chr(13) & "" & Chr(10) & "    追加されたカスタム"
    Workbooks("MakeQuery.xlsm").Connections.Add2 "クエリ - 08", _
        "ブック内の '08' クエリへの接続です。", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=08;Extended Properties=""""" _
        , "SELECT * FROM [08]", 2
End Sub

let
    ソース = Folder.Files("D:\自ブックFolder\CSV\2021\08"),
    追加されたカスタム = Table.AddColumn(ソース, "カスタム", each [Content])
in
    追加されたカスタム

let
    ソース = Folder.Files(GetParamValue("MyPath") & GetParamValue("Source")),
    #"ファイル変換" = Table.AddColumn(ソース, "CSV変換", each Table.PromoteHeaders(Csv.Document([Content],[Delimiter=",",
        Encoding=932, QuoteStyle=QuoteStyle.None]))),
    不要な列を削除 = Table.RemoveColumns(ファイル変換,{"Content", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path"}),
    #"名前が変更された列" = Table.RenameColumns(不要な列を削除,{{"Name", "FileName"}}),
    展開されたヘッダー = Table.ExpandTableColumn(#"名前が変更された列", "CSV変換",{"販売日","品名","数量","店舗コード"}),
    変更された型 = Table.TransformColumnTypes(展開されたヘッダー,{{"販売日", type date}, {"品名", type text}, {"数量", Int64.Type}, {"店舗コード", type text}}),
    追加されたカスタム = Table.AddColumn(変更された型, "曜日", each Date.ToText([販売日],"ddd")),
    変更された型1 = Table.TransformColumnTypes(追加されたカスタム,{{"曜日", type text}})
in
    変更された型1

'フォルダーからCSVデータ取得を（サンプルクエリなしで）セット
Sub AddQueryGetFolder()
    Dim qname As String
    'クエリ名はインプットボックスで入力指定を可能にする
    qname = Application.InputBox("作成するクエリの名前を入力してください！", "クエリ名入力", "Sample")
    If qname = "False" Then Exit Sub
    'パラメーターによりフォルダ内ファイルを展開できるカスタム列作成までのMコードをセット
    ActiveWorkbook.Queries.Add Name:=qname, Formula:= _
    "let" & Chr(13) & Chr(10) & _
    "    ソース = Folder.Files(GetParamValue(""MyPath"") & GetParamValue(""Source""))," & Chr(13) & _
    "    ファイル変換 = Table.AddColumn(ソース, ""CSV変換"", " & _
                            "each Table.PromoteHeaders(Csv.Document([Content],[Delimiter="",""," & _
                            "Encoding=932, QuoteStyle=QuoteStyle.None])))," & Chr(13) & _
    "    不要な列を削除 = Table.RemoveColumns(ファイル変換,{""Content"", ""Extension"", ""Date accessed"", " & _
                            """Date modified"", ""Date created"", ""Attributes"", ""Folder Path""})," & Chr(13) & _
    "    名前が変更された列 = Table.RenameColumns(不要な列を削除,{{""Name"", ""FileName""}})" & Chr(13) & _
    "in" & Chr(13) & Chr(10) & _
    "    名前が変更された列"
End Sub