Advertisement
Hippolito

Untitled

Sep 20th, 2019
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $Patch_Dist="\\DC1-APP12\SSIS-Pkgs\Solutions\MgmtFolder\IsNewXcode_SetiReport_PF\"
  2.  
  3. $ExcelRD = New-Object -ComObject Excel.Application
  4.  
  5. # Создаём Excel
  6. $filePath = "\\DC1-APP12\SSIS-Pkgs\Solutions\MgmtFolder\IsNewXcode_SetiReport_PF.xlsm"
  7.  
  8. $xlExcel8 = 56
  9.    
  10. # Делаем Excel видимым
  11. $ExcelRD.Visible = $true
  12.  
  13. # Отключаем уведомления
  14. $ExcelRD.DisplayAlerts = $false;
  15.  
  16. # Добавляем рабочую книгу
  17. $WorkBook = $ExcelRD.Workbooks.Open($filePath)
  18.  
  19. # Цепляемся к ExcelRD листу
  20. $WorkSheet = $ExcelRD.WorkSheets.Item(1)
  21.  
  22. # Обновляем
  23. $ExcelRD.ActiveWorkbook.RefreshAll();
  24.  
  25. $Filename = 'IsNewXcode_SetiReport_PF'
  26.  
  27. $Workbook.SaveAs($Patch_Dist+$Filename+".xls",56)
  28.  
  29. $WorkSheet = $null
  30. $WorkBook.Close($false)
  31. $ExcelRD.Quit()
  32. $ExcelRD = $null
  33.  
  34. [GC]::Collect()
  35. [GC]::WaitForPendingFinalizers()
  36. [GC]::Collect()
  37. [GC]::WaitForPendingFinalizers()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement