VBA和PowerShell集成？

Question

我想创建一个宏，当数据输入到单元格区域时，它将触发PowerShell脚本。在此PowerShell脚本中，我试图从我的PowerShell查询中获取对象，以返回到活动工作表，该宏被触发。唯一困难的部分是，工作簿位于SharePoint服务器上。

有没有人有任何见识如何实现我的目标，或任何链接帮助指向正确的方向。

谢谢。

Answer 1

您将需要更改事件，以便您可以处理单元格中的数据何时发生更改的检查。

其次你需要一个方法从powershell命令返回数据。我只是使用命令行操作中的>>操作符将数据放入文本文件中，然后再读取文本文件。

第三，你需要对这些数据做些什么。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$A$1" Then ' If A1 changes... 
    Dim FileNum As Integer 
    Dim FileName As String 
    Dim DataLine As String 
    Dim objShell 
    Dim fso 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set objShell = CreateObject("WScript.Shell") 
    FileName = "C:\data.txt" 
    cmdString = "Powershell DIR >>" + FileName ' Cmd String for Powershell 
    Call objShell.Run(cmdString, 0, True) ' Run the command, data is exported to FileName path 

    FileNum = FreeFile() 
    Open FileName For Input As #FileNum ' Open the File we generated 
    While Not EOF(FileNum) 
     Line Input #FileNum, DataLine ' read in data 1 line at a time 
     ' Do something with data line that was saved from the shell script. 
    Wend 
    Close #FileNum 
    Call fso.DeleteFile(FileName) ' Delete the file we generated 
    End If 

End Sub