如何使用Out-File将变量按规范格式写入CSV，实现每次循环数据单独占一行？

问题原因 #

你当前的写法存在三个核心问题：

• 将包含多个字段的数组直接传递给Out-File，默认数组的每个元素都会单独换行输出，即使加了-NoNewline参数，字段之间也没有CSV需要的分隔符，格式不符合要求
• 从Word表格单元格提取的文本末尾默认自带\r\a（回车+响铃）控制字符，没清理的话会导致意外换行
• 每次循环都新建Word COM对象，执行效率低还容易残留僵尸进程

推荐解决方案（使用PowerShell原生CSV导出cmdlet） #

用Export-Csv替代手动拼接写文件，它会自动处理字段分隔、特殊字符转义、编码兼容等问题，不容易出错。修正后的代码如下：

# 导入AD模块
Import-Module activedirectory

# 提前创建Word应用对象，避免循环内重复创建
$word = New-Object -ComObject Word.Application
$word.Visible = $false # 隐藏Word窗口提升效率

# 读取所有Word文件
$files = Get-ChildItem "C:\Users\username\Desktop\NewUserForms\"
# 定义CSV输出路径
$outputCsv = "C:\Users\username\Desktop\newusers.csv"

# 如果CSV已存在先删除，避免重复追加旧数据
if (Test-Path $outputCsv) {
    Remove-Item $outputCsv -Force
}

foreach ($doc in $files) {
    $documentPath = $doc.FullName
    # 打开文档
    $document = $word.Documents.Open($documentPath)

    # 提取字段并清理Word自带的控制字符
    $pager = $document.Tables[1].Cell(4,2).Range.Text.TrimEnd("\r\a")
    $fname = $document.Tables[1].Cell(6,2).Range.Text.TrimEnd("\r\a")
    $lname = $document.Tables[1].Cell(8,2).Range.Text.TrimEnd("\r\a")
    $jobtitle = $document.Tables[1].Cell(15,2).Range.Text.TrimEnd("\r\a")
    $department = $document.Tables[1].Cell(16,2).Range.Text.TrimEnd("\r\a")
    $manager = $document.Tables[1].Cell(17,2).Range.Text.TrimEnd("\r\a")
    $pagernumber = $pager.Substring(17)

    # 构造自定义对象，对应CSV的每一行，属性名就是CSV的表头
    $userInfo = [PSCustomObject]@{
        名 = $fname
        姓 = $lname
        职位 = $jobtitle
        部门 = $department
        上级 = $manager
        寻呼机号 = $pagernumber
    }

    # 追加到CSV，自动处理格式
    $userInfo | Export-Csv -Path $outputCsv -Append -Encoding UTF8 -NoTypeInformation

    # 关闭当前文档
    $document.Close()
}

# 退出Word释放资源
$word.Quit()
# 清理COM对象避免残留
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null

pause

如果你坚持要用Out-File实现，可以用以下修改方式 #

将多个字段用CSV分隔符（默认逗号）拼接成单行字符串再写入即可：

# 把原来的$information数组拼接成逗号分隔的单行字符串
$information = $fname, $lname, $jobtitle, $department, $manager, $pagernumber -join ','
# 直接写入不需要加-NoNewline，每次写入一行
$information | Out-File -Append -Encoding UTF8 -FilePath C:\Users\username\Desktop\newusers.csv

注意这种方案如果字段本身包含逗号，会导致CSV列错位，因此优先推荐使用Export-Csv方案。

内容的提问来源于stack exchange，提问作者user16603959