Trouble getting a ps1 file to execute

Question

I am having trouble getting a ps1 file to execute.
All the powershell.exe does is go to the next prompt without executing anything.
powershell.exe -noprofile -command "&{ start-process powershell -ArgumentList '-noprofile -file C:\Users\Administrator\Documents\Powershell\Excel.ps1' -verb RunAs}"
Excel.ps1
$strPath="c:\path.xlfile.xls"
$objExcel=New-Object -ComObject Excel.Application
$objExcel.Visible=$true
$Workbook=$objExcel.Workbooks.Add()
$Workbook=$objExcel.Workbook.Add()
$sheet=$Workbook.worksheet.item(1)
$sheet.Cells.item(1,1)=("Title")
$sheet.Cells.item(3,1)=("col1Title")
$sheet.Cells.item(3,2)=("col2Title")
$sheet.Cells.item(3,3)=("col3Title")
$x=100
$y=200
$z=300
$sheet.Cells.item(3,1)=($x)
$sheet.Cells.item(3,1)=($y")
$sheet.Cells.item(3,1)=($z)6
$range=$sheet.UsedRange
$range.EntireColumn.AutoFit()
IF(Test-Path $strPath)
Remove-Item $strPath
$objExcel.ActiveWorkbook.SaveAs($strPath)
ELSE
$objExcel.ActiveWorkbook.SaveAs($strPath)

Answer 1

Hi Philosophiae,
In addition, please also try to change these script:
$Workbook=$objExcel.Workbooks.Add()
$Workbook=$objExcel.Workbook.Add()
$sheet=$Workbook.worksheet.item(1)
To:
$WorkBook = $objExcel.Workbooks.Add()
$WorkSheet = $WorkBook.Worksheets.Item(1)
To work with Excel in powershell, please also refer to the script below:
$objExcel = new-object -comobject excel.application
$objExcel.Visible = $True
$FinalExcelLocation = "D:\Users\FinalUsersList.xlsx"
# Create final worksheet
if (Test-Path $FinalExcelLocation)
{ # Open the document
$finalWorkBook = $objExcel.WorkBooks.Open($FinalExcelLocation)
$finalWorkSheet = $finalWorkBook.Worksheets.Item(1)
else {
# Create It
$finalWorkBook = $objExcel.Workbooks.Add()
$finalWorkSheet = $finalWorkBook.Worksheets.Item(1)}
# Add Header
$finalWorkSheet.Cells.Item(1,1) = "User Name";
$finalWorkSheet.Cells.Item(1,1).Font.Bold = $True
$finalWorkSheet.Cells.Item(1,2) = "Email"
$finalWorkSheet.Cells.Item(1,2).Font.Bold = $True
# As the first row is already filled with header, the row count will start from 2
$FinalExcelRow = 2
Do {
$finalWorkSheet.Cells.Item($FinalExcelRow,1) = "Sample"
$finalWorkSheet.Cells.Item($FinalExcelRow,2) = [email protected]
$FinalExcelRow++
# To wrap the text
$d = $finalWorkSheet.UsedRange
$null = $d.EntireColumn.AutoFit()
if (Test-Path $FinalExcelLocation)
# If already existing file is opned, save the file
$finalWorkBook.Save()
else
# If a new file is created, save the file with the given name
$finalWorkBook.SaveAs($FinalExcelLocation)
Reference from:
Excel with PowerShell
Best Regards,
Anna