Преобразовать .xlsx в .csv и сохранить в конкретный каталог

Question

У меня есть запланированная задача, настроенная (в отдельной программе), которая отправит по электронной почте файл .xlsx. У меня есть правило, которое будет сохранено в папке Outlook под названием 04_CFW REPORT

Мне нужен 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-запрос и выводить CSV, который может быть преобразован в XLSX.

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} 

*** EDIT, получив PowerShell, чтобы закрыть comobject Excel правильно. Это вопрос правильного выпуска COM-объекта. Сначала (если этого не сделать), мы сохраним книгу и закройте Excel.

Далее мы выпускаем COM-объекты из самых маленьких (здесь переменная, содержащая диапазон ячеек), в самую большую (переменную Excel ComObject) в цикле, если требуется более, чем одна итерация. Теперь последние две строки, которые я заметил, на самом деле не нужны, но в тестовых сценариях приятно делать, но запускать сборку мусора. Посмотрите диспетчер задач, чтобы подтвердить его работу.

$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