将变量从 PowerShell 传递到 VBA 宏？

Question

我有一个 PowerShell 脚本可以自动处理一些报告，并且我有许多单独的宏来执行非常相似的自动筛选功能，但标准不同。

是否可以将此条件从 PowerShell 传递到宏中？然后我可以只使用 1 宏。

ColNum = Application.Match("*header", Range("A1:Z1"), 0)

If Not IsError(ColNum) Then
    ActiveSheet.Range("A1").AutoFilter Field:=ColNum, Criteria1:="$criterafromPowerShell", Operator:=xlAnd
End If

我目前正在做类似的事情，但反过来，我将这些宏的输出插入工作簿并提取回 PowerShell，如下所示：

$counts = $workbook.worksheets.item(2)
$xRows = $counts.cells.item(1,1).Text
$yeRows = $counts.cells.item(1,2).Text

我承认我可以反过来做，并在文件打开之后和宏运行之前将我想在工作表中使用的文本插入，然后在宏中提取它......但是它看起来很乱。

有什么建议吗？

Answer 1

例子：

$xlApp = New-Object -ComObject "Excel.Application"
$xlApp.Workbooks.Open("C:\Users\MacroMan\Documents\MyMacroWorkbook.xlsm")
$returnValue = $xlApp.Run("'MyMacroWorkbook.xlsm'!GenerateString", 6)
Echo $returnValue
FOOBAR

$returnValue = $xlApp.Run("'MyMacroWorkbook.xlsm'!GenerateString", 3)
Echo $returnValue
FOO

在“MyMacroWorkbook”（VBA）中：

Public Function GenerateString(strLength As Integer) As String
    GenerateString = Left("FOOBAR_SOMETHING", strLength)
End Function

Answer 2

我使用下面的代码从我的 VBscript 传递两个参数来打开一个特定的工作簿并启动所需的宏，你可以将你想要的变量作为变量传递给 sub，即Sub test(passedvariablehere) 并让 sub 考虑它：

'Create a WshShell to get the current directory
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

If (Wscript.Arguments.Count < 2) Then 
  Wscript.Quit 
End If 

'retrieve the arguments

Dim strWorkerWB 
strWorkerWB = Wscript.Arguments(0) 

Dim strMacroName
strMacroName = Wscript.Arguments(1) 

' Create an Excel instance
Dim myExcelWorker
Set myExcelWorker = CreateObject("Excel.Application") 

myExcelWorker.Application.Visible = True

' Open the Workbook specified on the command-line 
Dim oWorkBook

Set oWorkBook = myExcelWorker.Workbooks.Open(strWorkerWB)

on error resume next 
' Run the calculation macro
myExcelWorker.Run strMacroName
if err.number <> 0 Then
   ' Error occurred - just close it down.
    oWorkBook.Close
    Set oWorkBook = Nothing
    myExcelWorker.Quit
    Wscript.Quit 
End If
err.clear

oWorkBook.Close
Set oWorkBook = Nothing

myExcelWorker.Quit

Set myExcelWorker = Nothing
Set WshShell = Nothing

on error goto 0 

第一个参数是工作簿的完整路径/名称，第二个参数是子名称