Создание и запись в файл Excel в формате .xlsx

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $false
$WorkBook = $Excel.Workbooks.Add()
$LogiclDisk =$WorkBook.Worksheets.Item(1)
$LogiclDisk.Name = 'Логические диски'
$LogiclDisk.Cells.Item(1,1) = 'Буква диска'
$WorkBook.SaveAs('C:\Bot\1\Report.xlsx')
$Excel.Quit()
[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null;
Remove-Variable WorkBook, LogiclDisk, Excel;
[GC]::Collect();
echo 1

_sendpipe(w1251tod866("$LogiclDisk.Cells.Item(1,1) = ^'Название^'"));//Надо
_sendpipe("$LogiclDisk.Cells.Item(1,1) = ^'Name^'");//Не надо

if (createpipeprocess("powershell.exe -NoLogo")))
{
_sendpipe("Set-ExecutionPolicy Unrestricted -Force");
_sendpipe("$Excel = New-Object -ComObject Excel.Application");
_sendpipe("$Excel.Visible = $True"); // если false окно не будет отображаться
_sendpipe("$WorkBook = $Excel.Workbooks.Add()");
_sendpipe("$LogiclDisk = $WorkBook.Worksheets.Item(1)");
_sendpipe("$LogiclDisk.Name = ^'Local Disk^'");
_sendpipe("$LogiclDisk.Cells.Item(1,1) = ^'Text^'");
_sendpipe("$Excel.DisplayAlerts=$False");
_sendpipe("$WorkBook.SaveAs(^'D:\MyExcel.xlsx^')");
_sendpipe("$WorkBook.Close()");
_sendpipe("$Excel.Quit()");

closepipeprocess();
}


function _sendpipe(string command)
{
string S;
sendpipe(command+"^n");
waitpipe();
getpipe(#S);
}

string A="$Excel = New-Object -ComObject Excel.Application;$Excel.Visible = $false;$WorkBook = $Excel.Workbooks.Add();$LogiclDisk =$WorkBook.Worksheets.Item(1);$LogiclDisk.Name = ^'Логические диски^';$LogiclDisk.Cells.Item(1,1) = ^'Буква диска^';$WorkBook.SaveAs(^'C:\Bot\1\Report.xlsx^');$Excel.Quit();[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null;Remove-Variable WorkBook, LogiclDisk, Excel;[GC]::Collect();echo 1;";
if (createpipeprocess("powershell.exe -Command ^""+A+"^""))
{
waitpipe();
closepipeprocess();
}

WriteToExcel("D:\Report.xlsx", "Текст 123", "A", 1); // записать строку в ячейку A1
WriteToExcel("D:\Report.xlsx", "Text 456", "D", 3); // записать строку в ячейку D3
WriteToExcel("D:\Report.xlsx", "Qverty йцукен", "F", 2); // записать строку в ячейку F2
int x = 1234567;
WriteToExcel("D:\Report.xlsx", format(x), "A", 2); // записать строку в ячейку A2

function WriteToExcel(string PathToExcel, string Text, string Column, int Row)
{
string S, RN = "^n";
string Command = "$Excel = New-Object -ComObject Excel.Application"+RN+
"$Excel.Visible = $false"+RN+
"$Excel.DisplayAlerts=$False"+RN+
"$WorkBook = $Excel.Workbooks.Open(^"" + PathToExcel + "^")"+RN+
"$Worksheets = $WorkBook.Worksheets.Item(1)"+RN+
"$Worksheets.Cells.Item(" + format(Row) +",^'"+ Column + "^') = ^"" + w1251tod866(Text) +"^""+RN+
"$WorkBook.Save()"+RN+
"$Excel.Quit()"+RN+
"[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)|Out-Null"+RN+
"Remove-Variable Worksheets, WorkBook, Excel"+RN+
"[GC]::Collect()"+RN+
"EndScript";

// messagebox(Command);

if (createpipeprocess("powershell.exe -NoLogo -NoExit")))
{
sendpipe(Command);
waitpipe();

looptime(5000)
{
if(getpipe(#S) > 0)
{
if(regexsearch(1, #S, S, "EndScript")) return 1;
}
sleep(100);
}
closepipeprocess();
}
return 0;
}

// данные и формат ячейки разделяются ;
// 123;A1 - означает записать 123 в ячейку A1

string Array[99]; // массив с данными

// заполнить массив
Array[0] = "Текст123;A1"; // эта строка запишется в ячейку A1
Array[1] = "Text 456;D3"; // эта строка запишется в ячейку D3
string s = "Qwerty йцукен";
Array[2] = s + ";F2"; // эта строка запишется в ячейку F2
int x = 1234567;
Array[3] = format(x) + ";A2"; // эта строка запишется в ячейку A2

// файл D:\Report.xlsx должен существовать
WriteToExcel("D:\Report.xlsx", #Array[0], 4); // записать в таблицу массив, 4 элемента



function WriteToExcel(string PathToExcel, string #Data, int Count)
{
string S, Text, Column, Row, Cells, RN = "^n";

for(int i=0; i < Count; i++)
{
if(regexsearch(1, #Text, Data[i], ".+(?=;)")==0) continue;
if(regexsearch(1, #Column, Data[i], "(?<=;)[A-Z]+")==0) continue;
if(regexsearch(1, #Row, Data[i], "\d+", RIGHTTOLEFT)==0) continue;
Cells = Cells + "$Worksheets.Cells.Item(" + Row +",^'"+ Column + "^') = ^"" + w1251tod866(Text) +"^""+RN;
}

string Command = "$Excel = New-Object -ComObject Excel.Application"+RN+
"$Excel.Visible = $false"+RN+
"$Excel.DisplayAlerts=$False"+RN+
"$WorkBook = $Excel.Workbooks.Open(^"" + PathToExcel + "^")"+RN+
"$Worksheets = $WorkBook.Worksheets.Item(1)"+RN+
Cells+
"$WorkBook.Save()"+RN+
"$Excel.Quit()"+RN+
"[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)|Out-Null"+RN+
"Remove-Variable Worksheets, WorkBook, Excel"+RN+
"[GC]::Collect()"+RN+
"EndScript";

// messagebox(Command);

if (createpipeprocess("powershell.exe -NoLogo -NoExit")))
{
sendpipe(Command);
waitpipe();

looptime(5000)
{
if(getpipe(#S) > 0)
{
if(regexsearch(1, #S, S, "EndScript")) return 1;
}
sleep(100);
}
closepipeprocess();
}
return 0;
}

cls
$Excel = New-Object -ComObject Excel.Application
$WorkBook = $Excel.workbooks.Open('D:\Report.xlsx')
$Sheet = $workbook.Sheets.Item(1)
$CellValue = $sheet.Cells.Item(2, 'A').Value2 # получить значение ячейки A2
$Excel.Quit()
[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)|Out-Null
Remove-Variable Sheet, WorkBook , Excel
[GC]::Collect()
$CellValue # вывести значение в консоль

string range = "A1;A2;D4"; // ячейки для чтения
string Result = ReadExcel("D:\Report.xlsx", range); // прочитать таблицу
messagebox(Result); // результат в виде json
if(Result != "")
{
parserjson(Rez_Json, Result);
messagebox(Rez_Json.A1); // значение ячейки A1
messagebox(Rez_Json.A2); // значение ячейки A2
}


function ReadExcel(string PathToExcel, string Range)
{
string S, Cell[9999], Column, Row, Cells, Result, Tmp, RN = "^n";

int Count = regexsearch(9999, #Cell[0], Range, "[A-Z\d]+");
if (Count > 0)
{
for(int i = 0; i < Count; i++)
{
if(regexsearch(1, #Column, Cell[i], "[A-Z]+")==0) continue;
if(regexsearch(1, #Row, Cell[i], "\d+", RIGHTTOLEFT)==0) continue;
Cells = Cells + "$CellValue.Add(^'" + Cell[i] + "^', $sheet.Cells.Item(" + Row + ", ^'" + Column + "^').Value2)" + RN;
}

string Command = "$Excel = New-Object -ComObject Excel.Application"+RN+
"$WorkBook = $Excel.Workbooks.Open(^"" + PathToExcel + "^")"+RN+
"$Sheet = $WorkBook.Sheets.Item(1)"+RN+
"$CellValue = @{}"+RN+
Cells+
"$Excel.Quit()"+RN+
"[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)|Out-Null"+RN+
"Remove-Variable Sheet, WorkBook, Excel"+RN+
"[GC]::Collect()"+RN+
"$CellValue|ConvertTo-Json"+RN+
"write EndScript";

//messagebox(Command);

if (createpipeprocess("powershell.exe -NoLogo -NoExit")))
{
sendpipe(Command);
waitpipe();
looptime(5000)
{
if(getpipe(#S) > 0)
{
Result = Result + S;
if(regexsearch(1, #Tmp, Result, "EndScript"))
{
if(regexsearch(1, #Tmp, d866tow1251(Result), "^\{.+\}", MULTILINE | SINGLELINE)) return Tmp;
}
}
sleep(100);
}

closepipeprocess();
}
}
return "";
}