First let me state, I'm a complete noobie at PS and am having some difficulties working thru this issue. Please excuse my coding if it appears a bit rudimentary. I have a script that opens a text file containing the following information: path\foldername, folder sizes, number of files, prepurge and post purge information. I can mport all information into Excel, However, it will not perform a SaveAs c:\filename.xlsx.
I'm at a complete loss. Please Help
Below is my code.
Get-Content '\\srv001\itdocs\Audits\WorldFolderAudits\WorldFolderSizes.txt' | select-string -pattern " TOTAL: " | out-file c:\foldersizeParsed.txt
$file = 'c:\foldersizeParsed.txt'
[Threading.Thread]::CurrentThread.CurrentCulture = 'en-US'
$Excel = New-Object -comobject Excel.Application
$Excel.Visible = $true
################
$Excel.workbooks.OpenText($file,437,1,1,1,$True,$True,$False,$False,$True,$False)
#################
$Excel.Application.ActiveWindow.SplitRow = 1
$Excel.application.activewindow.freezepanes = $true
$Excel.Rows.Item(1).Font.Bold = $true # Bold heading text
$Excel.Rows.Item(1).VerticalAlignment = -4108 # Centre (vertically) heading
$Excel.Rows.Item(1).HorizontalAlignment = -4108 # Centre (horizontally) heading
$Excel.Columns.Item(1).columnWidth=10
$Excel.Columns.Item(2).columnWidth=15
$Excel.Columns.Item(3).columnWidth=15
$Excel.Columns.Item(4).columnWidth=0
$Excel.Columns.Item(5).columnWidth=20
$Excel.Columns.Item(6).columnWidth=15
$Excel.Cells.Item(1,1) = "Task"
$Excel.Cells.Item(1,2) = "Directory Size"
$Excel.Cells.Item(1,3) = "Qty Files"
$Excel.Cells.Item(1,5) = "Path"
$Excel.Cells.Item(1,6) = "Difference in MB"
$Excel.range("F3:F3").cells.formula = "=b2-b3"
$Excel.range("F5:F5").cells.formula = "=b4-b5"
$Excel.range("F7:F7").cells.formula = "=b6-b7"
$Excel.range("F9:F9").cells.formula = "=b8-b9"
$Excel.range("F11:F11").cells.formula = "=b10-b11"
$Excel.range("F13:F13").cells.formula = "=b12-b13"
$Excel.range("F15:F15").cells.formula = "=b14-b15"
$Excel.range("F17:F17").cells.formula = "=b16-b17"
$Excel.range("F19:F19").cells.formula = "=b18-b19"
$Excel.range("F21:F21").cells.formula = "=b20-b21"
$Excel.range("F23:F23").cells.formula = "=b22-b23"
$Excel.range("F25:F25").cells.formula = "=b24-b25"
$Excel.range("F27:F27").cells.formula = "=b26-b27"
$Excel.range("F29:F29").cells.formula = "=b28-b29"
$Excel.range("F31:F31").cells.formula = "=b30-b31"
$Excel.range("F33:F33").cells.formula = "=b32-b33"
$Excel.range("F35:F35").cells.formula = "=b34-b35"
$Excel.range("F37:F37").cells.formula = "=b36-b37"
$Excel.range("F39:F39").cells.formula = "=b38-b39"
$Excel.range("F41:F41").cells.formula = "=b40-b41"
$Excel.range("F43:F43").cells.formula = "=b42-b43"
$Excel.range("F45:F45").cells.formula = "=b44-b45"
$Excel.range("F47:F47").cells.formula = "=b46-b47"
$Excel.range("F49:F49").cells.formula = "=b48-b49"
$Excel.range("F51:F51").cells.formula = "=b50-b51"
$Excel.range("F53:F53").cells.formula = "=b52-b53"
$Excel.range("F55:F55").cells.formula = "=b54-b55"
$Excel.range("F57:F57").cells.formula = "=b56-b57"
$Excel.range("F59:F59").cells.formula = "=b58-b59"
$Excel.range("F61:F61").cells.formula = "=b60-b61"
$Excel.range("F63:F63").cells.formula = "=b62-b63"
$Excel.range("F65:F65").cells.formula = "=b64-b565"
$Excel.range("F67:F67").cells.formula = "=b66-b67"
$Excel.range("F69:F69").cells.formula = "=b68-b69"
$Excel.range("F71:F71").cells.formula = "=b70-b71"
$Excel.range("F73:F73").cells.formula = "=b72-b73"
$Excel.range("F75:F75").cells.formula = "=b74-b75"
$Excel.range("F77:F77").cells.formula = "=b76-b77"
$Excel.range("F79:F79").cells.formula = "=b78-b79"
$Excel.range("F81:F81").cells.formula = "=b80-b81"
$Excel.range("F83:F83").cells.formula = "=b82-b83"
$Excel.Cells.Item(2,1) = "PrePurge"
$Excel.Cells.Item(3,1) = "PostPurge"
$Excel.Cells.Item(4,1) = "PrePurge"
$Excel.Cells.Item(5,1) = "PostPurge"
$Excel.Cells.Item(6,1) = "PrePurge"
$Excel.Cells.Item(7,1) = "PostPurge"
$Excel.Cells.Item(8,1) = "PrePurge"
$Excel.Cells.Item(9,1) = "PostPurge"
$Excel.Cells.Item(10,1) = "PrePurge"
$Excel.Cells.Item(11,1) = "PostPurge"
$Excel.Cells.Item(12,1) = "PrePurge"
$Excel.Cells.Item(13,1) = "PostPurge"
$Excel.Cells.Item(14,1) = "PrePurge"
$Excel.Cells.Item(15,1) = "PostPurge"
$Excel.Cells.Item(16,1) = "PrePurge"
$Excel.Cells.Item(17,1) = "PostPurge"
$Excel.Cells.Item(18,1) = "PrePurge"
$Excel.Cells.Item(19,1) = "PostPurge"
$Excel.Cells.Item(20,1) = "PrePurge"
$Excel.Cells.Item(21,1) = "PostPurge"
$Excel.Cells.Item(22,1) = "PrePurge"
$Excel.Cells.Item(23,1) = "PostPurge"
$Excel.Cells.Item(24,1) = "PrePurge"
$Excel.Cells.Item(25,1) = "PostPurge"
$Excel.Cells.Item(26,1) = "PrePurge"
$Excel.Cells.Item(27,1) = "PostPurge"
$Excel.Cells.Item(28,1) = "PrePurge"
$Excel.Cells.Item(29,1) = "PostPurge"
$Excel.Cells.Item(30,1) = "PrePurge"
$Excel.Cells.Item(31,1) = "PostPurge"
$Excel.Cells.Item(32,1) = "PrePurge"
$Excel.Cells.Item(33,1) = "PostPurge"
$Excel.Cells.Item(34,1) = "PrePurge"
$Excel.Cells.Item(35,1) = "PostPurge"
$Excel.Cells.Item(36,1) = "PrePurge"
$Excel.Cells.Item(37,1) = "PostPurge"
$Excel.Cells.Item(38,1) = "PrePurge"
$Excel.Cells.Item(39,1) = "PostPurge"
$Excel.Cells.Item(40,1) = "PrePurge"
$Excel.Cells.Item(41,1) = "PostPurge"
$Excel.Cells.Item(42,1) = "PrePurge"
$Excel.Cells.Item(43,1) = "PostPurge"
$Excel.Cells.Item(44,1) = "PrePurge"
$Excel.Cells.Item(45,1) = "PostPurge"
$Excel.Cells.Item(46,1) = "PrePurge"
$Excel.Cells.Item(47,1) = "PostPurge"
$Excel.Cells.Item(48,1) = "PrePurge"
$Excel.Cells.Item(49,1) = "PostPurge"
$Excel.Cells.Item(50,1) = "PrePurge"
$Excel.Cells.Item(51,1) = "PostPurge"
$Excel.Cells.Item(52,1) = "PrePurge"
$Excel.Cells.Item(53,1) = "PostPurge"
$Excel.Cells.Item(54,1) = "PrePurge"
$Excel.Cells.Item(55,1) = "PostPurge"
$Excel.Cells.Item(56,1) = "PrePurge"
$Excel.Cells.Item(57,1) = "PostPurge"
$Excel.Cells.Item(58,1) = "PrePurge"
$Excel.Cells.Item(59,1) = "PostPurge"
$Excel.Cells.Item(60,1) = "PrePurge"
$Excel.Cells.Item(61,1) = "PostPurge"
$Excel.Cells.Item(62,1) = "PrePurge"
$Excel.Cells.Item(63,1) = "PostPurge"
$Excel.Cells.Item(64,1) = "PrePurge"
$Excel.Cells.Item(65,1) = "PostPurge"
$Excel.Cells.Item(66,1) = "PrePurge"
$Excel.Cells.Item(67,1) = "PostPurge"
$Excel.Cells.Item(68,1) = "PrePurge"
$Excel.Cells.Item(69,1) = "PostPurge"
$Excel.Cells.Item(70,1) = "PrePurge"
$Excel.Cells.Item(71,1) = "PostPurge"
$Excel.Cells.Item(72,1) = "PrePurge"
$Excel.Cells.Item(73,1) = "PostPurge"
$Excel.Cells.Item(74,1) = "PrePurge"
$Excel.Cells.Item(75,1) = "PostPurge"
$Excel.Cells.Item(76,1) = "PrePurge"
$Excel.Cells.Item(77,1) = "PostPurge"
$Excel.Cells.Item(78,1) = "PrePurge"
$Excel.Cells.Item(79,1) = "PostPurge"
$Excel.Cells.Item(80,1) = "PrePurge"
$Excel.Cells.Item(81,1) = "PostPurge"
$Excel.Cells.Item(82,1) = "PrePurge"
$Excel.Cells.Item(83,1) = "PostPurge"
#$Excel.UsedRange.EntireColumn.AutoFit()
SaveAs has been removed from code since it doesnt work anyway.
HELP!!! :-)