將.xlsx轉換爲.csv並保存到特定目錄

Question

我有一個計劃任務（在單獨的程序中），它將通過電子郵件發送.xlsx文件。我有一個規則設置，將電子郵件保存到名爲04_CFW的Outlook文件夾中。我需要Outlook以Excel打開文件並將其保存爲.csv到網絡驅動器。

這將發生在晚上，當我離開計算機

我發現的最接近的是這裏的函數： http://www.devhut.net/2012/05/14/ms-access-vba-convert-excel-xls-to-csv/

，但我不知道如何把這個功能在一個子中使用。

任何幫助將不勝感激。

Answer 1

這可能是一個開始的地方。取自here

然後您可以研究creating a powershell job每天運行一次並循環，直到找到指定的電子郵件主題。

另一點需要考慮的是，如果您有權限，Powershell可以執行SQL查詢並輸出可以轉換爲XLSX的CSV。

Add-type -assembly "Microsoft.Office.Interop.Outlook" | out-null 
$olFolders = "Microsoft.Office.Interop.Outlook.olDefaultFolders" -as [type] 
$outlook = new-object -comobject outlook.application 
$namespace = $outlook.GetNameSpace("MAPI") 
$folder = $namespace.getDefaultFolder($olFolders::olFolderInBox) 

然後，我可以使用過濾收件箱項目，例如任何未讀項目。

$folder.items | where {$_.UnRead -eq $true} 

***編輯，讓PowerShell正確關閉Excel的comobject。這是正確釋放COM對象的問題。首先（假設沒有完成）我們保存工作簿並退出Excel。

接下來，我們從一個循環中的最小（這裏是變量保存一個單元格範圍的變量）到最大（Excel ComObject變量）的COM對象應該需要多次迭代。現在我注意到的最後兩行並不是真正需要的，但是在測試腳本中，很好做，但運行垃圾收集。觀看任務管理器以確認其操作。

$xlsObj.ActiveWorkbook.SaveAs($xlsFile) | Out-Null 
$xlsObj.Quit() 

While ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsRng)) {'cleanup xlsRng'} 
While ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsSh)) {'cleanup xlsSh'} 
While ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsWb)) {'cleanup xlsWb'} 
While ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($xlsObj)) {'cleanup xlsObj'} 

[gc]::collect() | Out-Null 
[gc]::WaitForPendingFinalizers() | Out-Null