vba - Powershell脚本将Microsoft Access查询或表导出到CSV文件

Question

我有一个基本脚本的开头。理想情况下，它将在Access中运行查询，然后获取查询结果并输入CSV，但似乎没有在CSV中写入任何内容(尽管其修改的日期/时间已更改)。

我想念什么？

$Acc = New-Object –Com Access.Application

$Acc.OpenCurrentDataBase("H:\TEST.mdb")

#Runs the query
$Acc.DoCmd.OpenQuery("Query1")

#Dealing with results
$Results = $Acc.DoCmd.OpenQuery("Query1")

$Results | Select-Object $Results | Export-Csv -Path H:\test.csv -Delimiter ";"

我也尝试过以此结尾:

$Results | Out-File -Append H:\test2.csv -Encoding UTF8

Answer 1

OpenQuery()方法仅在Access中打开查询。它不返回查询结果。您可以使用 TransferText() 方法将查询定义的结果集另存为CSV:

$acc.DoCmd.Transfertext(2, [Type]::Missing, 'Query1', 'H:\test.csv', $true)