Sub demo()
 Dim chromePath As String
 chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
 Shell (chromePath & " -url https://tradegreat.smartup.one/login.html")
End Sub

Sub rrr()
    Dim objIe As Object
    Set objIe = CreateObject("InternetExplorer.Application")
    Dim doc As HTMLDocument
    objIe.Visible = 1
    'вставить нужный url
    objIe.Navigate "https://tradegreat.smartup.one/login.html"
    Do
        DoEvents
    Loop Until objIe.ReadyState = 4
    
    Set doc = objIe.Document
    doc.getElementsByName("login").Item(0).Value = "user200"
    doc.getElementsByName("password").Item(0).Value = "300300"
    doc.querySelector(".serp-header__nav>form").submit
End Sub

= Table.AddColumn(Пользовательская2,"j", each  let a=[Z][Месяц] in Table.AddColumn([b],"Сцепка", each [Товар]&[Индекс]&a{[id]}))

= Table.AddColumn(Пользовательская2,"j", each  let a=[Z][Месяц] in Table.AddColumn([b],"Сцепка", each a))

= Table.AddColumn(Пользовательская2,"j", each  let a=[Z][Месяц] in Table.AddColumn([b],"Сцепка", each a{0}))

= Table.AddColumn(Пользовательская2,"j", each let a=[Z][Месяц] in Table.AddColumn([b],"Сцепка", each a{ [id] }))

// Таблица
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Type = Table.TransformColumnTypes(Источник,{{"Месяц", type text}}),
    Group = Table.Group(Type,{"Товар","Индекс"}, {{"a", each let
    a=_[Месяц],b=List.Count(a),c=Table.Pivot(_,a,"Месяц","Цена"),
    d=Table.Repeat(c,b),e=Table.AddIndexColumn(d,"id")
    in Table.AddColumn(e, "Сцепка Товар-Индекс-Месяц", each [Товар]&[Индекс]&a{[id]}), type table}}),
    Expand = Table.ExpandTableColumn(Group, "a", {"Сцепка Товар-Индекс-Месяц"}&List.Sort(List.Distinct(Type[Месяц]),0))
in
    Expand

= Xml.Tables(File.Contents("C:\ferre.xml"), null, 1251){0}[item]

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Add = Table.AddColumn(Источник, "старый", each let 
i=Excel.CurrentWorkbook(){[Name="фильтр"]}[Content]{0}[Column1],
l=Excel.CurrentWorkbook(){[Name="фильтр"]}[Content]{0}[Column2],
a=[Новый],b=[Старый] in 
if l="a" then if a-b=i then a else b
         else if a = i then a else b
)[[Префикс],[старый]]
in
    Add

= Table.AddColumn(Источник, "старый", each let a=[Новый],b=[Старый] in if a-b=1 then a else b)[[Префикс],[старый]]

         If Len(arrL(i)) > 0 Then
            arrD = Split(arrL(i), ",")
            arrD(0) = Format(CDate(arrD(0)), "dd.MM.yyyy")
            
            For j = 1 To 4
               arrD(j) = CStr(Round(Val(arrD(j)), 2))
            Next
            arrD(6) = CStr(Round(Val(arrD(6)), 0))
            
            cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
         End If

arrD(j) = Replace(CStr(Round(CDbl(cnum), 2)), ",", ".")

Sub Content_for_etfs_convert()
Kill "D:\Новая папка\IN\*.*"
Kill "D:\Новая папка\OUT\*.*"
  Dim fso
  Set fso = CreateObject("scripting.filesystemobject"):  fso.CopyFolder "E:\downloads1", "D:\Новая папка\IN"

 
Set fso = CreateObject("Scripting.FileSystemObject")
cPath = fso.GetParentFolderName(ThisWorkbook.FullName)
 
cPathIn = cPath & "\In\"
cPathOut = cPath & "\Out\"

Set Folder = fso.GetFolder(cPathIn)
For Each File In Folder.Files
   If fso.GetExtensionName(File.Name) = "txt" Then
      With fso.OpenTextFile(cPathIn & File.Name, 1, True)
         cIn = .ReadAll
         .Close
      End With
      cOut = vbCrLf & "DATE"
      'cOut = "DATE"
      arrL = Split(cIn, vbLf)
      For i = LBound(arrL) To UBound(arrL)
         If Len(arrL(i)) > 0 Then
            arrD = Split(arrL(i), ",")
            arrD(0) = Right(arrD(0), 2) & "." & Mid(arrD(0), 5, 2) & "." & Left(arrD(0), 4)
            For j = 1 To 4
               cnum = Replace(arrD(j), ".", ",")
               arrD(j) = Replace(CStr(Round(CDbl(cnum), 2)), ",", ".")
            Next
            cnum = Replace(arrD(6), ".", ",")
            arrD(6) = Replace(CStr(Round(CDbl(cnum), 0)), ",", ".")
            cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
         End If
      Next
      With fso.OpenTextFile(cPathOut & File.Name, 2, True)
         .Write cOut
         .Close
      End With
   End If
Next

MsgBox "Ok"

End Sub

Sub replaceTxts()
    Dim fso As New FileSystemObject, curFolder As Folder, curFile As File
    folderPath = "D:\option programs\отбор акций\OUT\"
    Set curFolder = fso.GetFolder(folderPath)
    For Each curFile In curFolder.Files
        If Right(curFile.Path, 4) = ".txt" Then
            curFile.copy Replace(curFile.Path, ".txt", ".csv")
            curFile.Delete
        End If
    Next curFile
End Sub