[Fors1k]

Код:

Param(
    $pathXls = "C:\База.xlsx",
    $pathTxt = "C:\bm.txt"
)cls

$i=2;$a = gc $pathTxt -To 10;$Excel = New-Object -ComObject Excel.Application
$WorkBook=$Excel.Workbooks.Open($pathXls);$WorkSheet=$WorkBook.Sheets.Item(1)
do{
    $b=$a;$i++;$b+=''
    $b[0] = "[$($Worksheet.Range("b$i").text)]"
    $b[1] = "name=$($Worksheet.Range("c$i").text)"
    $b[2] = "bdate=$($Worksheet.Range("d$i").text)"
    if ($( $Worksheet.Range("b$i").text )  -eq  '')
    {break}$b|Add-Content $pathTxt
}
while($true);$Excel.Quit();notepad $pathTxt