VBA - Expect表达式/ AdvancedFilter，CopyToRange

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
Dim exec As Object
Set exec = wsh.Exec("your_command_here")

' 发送输入
exec.StdIn.WriteLine "your_input_here"

' 读取输出
Dim output As String
output = exec.StdOut.ReadAll()

' 处理输出
MsgBox output

Sub AdvancedFilterExample()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim rngSource As Range
    Dim rngCriteria As Range
    Dim rngDestination As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("SourceSheet")
    Set wsDestination = ThisWorkbook.Sheets("DestinationSheet")
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:D100")
    
    ' 设置筛选条件范围
    Set rngCriteria = wsSource.Range("F1:G2")
    
    ' 设置目标复制范围
    Set rngDestination = wsDestination.Range("A1")
    
    ' 执行高级筛选
    rngSource.AdvancedFilter Action:=xlFilterCopy, _
                            CriteriaRange:=rngCriteria, _
                            CopyToRange:=rngDestination, _
                            Unique:=False
End Sub