Код:

Set-ExecutionPolicy Unrestricted
$excel = new-object -comobject excel.application

$curDir = $MyInvocation.MyCommand.Definition | split-path -parent
$FDir = $curDir;
$FName = "\TEST.xlsm";
$strFileName = $FDir + $FName;

$excelFiles = Get-ChildItem -Path($strFileName)
$app = $excel.Application
$workbook = $app.workbooks.open($excelfiles)
$app.Visible = $False
$excel.displayalerts = $False
$workbook.Activate()
$app.Run("CreateTXT")

Код:

Sub CreateTXT()

    List = "Лист2"
    Sheets(List).Activate

    Cells(1, 1) = 1
    Cells(1, 2) = 2
    Cells(1, 3) = 3
    Cells(1, 4) = 4
    Cells(1, 5) = 5
    
    FPath = ActiveWorkbook.Path
    FName = "Лист2.xlsx"
    
    Sheets(List).Copy
    aFile = FPath & "\" & FName
 
    If Dir(FPath & "\" & FName) <> "" Then
    
        'Перезапись файла
        
        If Len(Dir$(aFile)) > 0 Then
            Kill aFile
        End If
    
        ActiveWorkbook.SaveAs Filename:=aFile
        
        ActiveWorkbook.Close (False)
        
    Else
        
        'Запись файла
        
        ActiveWorkbook.SaveAs Filename:=aFile
        
        ActiveWorkbook.Close (False)
        
    End If
       
    ThisWorkbook.Activate
 
    strFile_Path = FPath & "\Check.txt"
    
    Open strFile_Path For Output As #1
    Print #1, "CheckMask"
    Close #1
    
    ActiveWorkbook.Close (False)

End Sub