如何从Excel执行PowerShell脚本？

我有全function的poweshell脚本，但是当我尝试从MS Excel 2010运行它时，我收到一条错误消息“你不能调用一个空值expression式的方法”和“不能索引到一个空数组”。 我不知道问题在哪里，因为正如我所提到的，当我不试图从Excel执行它时，脚本没有任何问题。

谢谢你的任何build议。

$paths = Get-ChildItem 'E:\TEMP' -Filter '*.txt' $delete = Get-Content 'E:\TEMP\TEMP1\delete.log' ForEach ($path in $paths) { $pathtmp = "$path.tmp" $sr = New-Object -TypeName System.IO.StreamReader -ArgumentList $path $sw = New-Object -TypeName System.IO.StreamWriter -ArgumentList $pathtmp Do { $line = $sr.ReadLine() $Column = $line.split(",") If ($delete -notcontains $Column[1]) { $sw.WriteLine($line) } } Until ( $sr.EndOfStream ) $sr.close() $sw.close() Remove-Item $path Rename-Item $pathtmp $path } 

如果文本文件的第一列与delete.log文件中的string匹配，则此脚本将从目录中的所有文本文件中删除整行。

Answer 1

这个脚本的一个问题是，它通常只有在脚本被放置在自己的目录内运行，我想。
在这种情况下，它将是e：\ temp \ temp1。
这可能是excel抱怨的原因，因为工作目录已经被设置到脚本之外的其他地方。
如果稍微修改一下，就可以在任何地方工作。
其中一个可能的解决scheme可能是分配一个完整的工作path来读取和写入文件variables。
尝试使用这些脚本：

test.ps1脚本（在e：\ temp \ temp1中）

 $paths = Get-ChildItem 'e:\TEMP' -Filter '*.txt' $delete = Get-Content 'e:\TEMP\TEMP1\delete.log' ForEach ($path in $paths) { $fpath = $path.fullname $pathtmp = "$fpath.txt" $sr = New-Object -TypeName System.IO.StreamReader -ArgumentList "$fpath" $sw = New-Object -TypeName System.IO.StreamWriter -ArgumentList "$pathtmp" Do { $line = $sr.ReadLine() $Column = $line.split(",") If ($delete -notcontains $Column[0]) { $sw.WriteLine($line) } } Until ( $sr.EndOfStream ) $sr.close() $sw.close() Remove-Item "$fpath" Rename-Item "$pathtmp" "$fpath" } 

macros观macros观

 Sub test() Call Shell(Environ$("COMSPEC") & " /c powershell -file E:\temp\temp1\test.ps1", vbNormalFocus) End Sub