看来你已经搞定了用PowerShell触发MyMacro这一步，接下来就是处理弹出的SampleForm、输入John并点击OK对吧？这里给你两个靠谱方案，按需选择：

方案1：修改VBA宏（最稳定推荐） #

如果能修改原Excel文件的VBA代码，这是最不容易出问题的方式，直接让宏帮我们自动填充姓名：

1. 打开Excel文件的VBA编辑器（按Alt+F11），找到SampleForm的代码，给它加上初始化赋值的逻辑：

Private Sub UserForm_Initialize()
    ' 假设姓名输入框的控件名叫txtName，直接赋值为John
    txtName.Value = "John"
End Sub

要是你想保留手动输入的灵活性，也可以给MyMacro加个可选参数：

Sub MyMacro(Optional userName As String = "")
    If userName <> "" Then
        SampleForm.txtName.Value = userName
    End If
    SampleForm.Show
End Sub

然后在PowerShell里调用时直接传参：

$excel = New-Object -ComObject Excel.Application
$workbook = $excel.Workbooks.Open("C:\Path\To\Your\TargetFile.xlsx")
# 带参数调用宏
$excel.Run("MyMacro", "John")
$workbook.Save()
$workbook.Close()
$excel.Quit()
# 清理COM对象避免内存泄漏
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

方案2：PowerShell模拟UI操作（不修改VBA的情况） #

如果没法改VBA代码，就用PowerShell模拟键盘输入或控件点击，这里给两种实现方式：

用SendKeys快速实现（简单但依赖窗口焦点） #

注意要确保Excel窗口处于激活状态，不然输入会发到别的窗口：

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $true  # 必须让Excel可见，SendKeys才能定位到窗口
$workbook = $excel.Workbooks.Open("C:\Path\To\Your\TargetFile.xlsx")

# 后台启动宏，避免卡住PowerShell主线程
Start-Job -ScriptBlock { $args[0].Run("MyMacro") } -ArgumentList $excel
Start-Sleep -Seconds 1  # 等待表单加载完成，时间可按需调整

# 激活Excel窗口
$excel.Activate()
# 输入John后按回车（假设OK按钮是默认按钮，回车就能触发）
[System.Windows.Forms.SendKeys]::SendWait("John{ENTER}")

$workbook.Save()
$workbook.Close()
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

用UIAutomation模块（更稳定，推荐） #

先安装UIAutomation模块：

Install-Module -Name UIAutomation -Scope CurrentUser

然后编写自动化脚本：

Import-Module UIAutomation

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $true
$workbook = $excel.Workbooks.Open("C:\Path\To\Your\TargetFile.xlsx")

# 后台启动宏
Start-Job -ScriptBlock { $args[0].Run("MyMacro") } -ArgumentList $excel
Start-Sleep -Seconds 1

# 定位到SampleForm窗口
$formWindow = Get-UIAWindow -Name "SampleForm"
# 找到姓名输入框（可通过控件ID或名称定位，这里假设ID是txtName）
$nameInput = $formWindow | Get-UIATextBox -AutomationId "txtName"
# 输入John
$nameInput.SetValue("John")
# 找到OK按钮并点击
$okButton = $formWindow | Get-UIAButton -Name "OK"
$okButton.Click()

$workbook.Save()
$workbook.Close()
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

小提示：如果不知道控件的AutomationId，可以用UIAutomation模块的Get-UIAElement工具查看控件详情。

内容的提问来源于stack exchange，提问作者vamosdipa