[Iska]

Например, так:

Скрытый текст

Код:

Option Explicit

Sub Кнопка1_Щелкнуть()
    Dim strTempFile As String
    Dim objRange As Range
    
    strTempFile = GetTemporaryName()
    
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True)
        For Each objRange In Selection
            .WriteLine objRange.Text
        Next
        
        .Close
    End With
    
    CreateObject("WScript.Shell").Run """PowerShell_ISE.exe"" -File """ & strTempFile & """", 1, False
End Sub

'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
    Const TemporaryFolder = 2
    
    Dim strTempName
    
    With CreateObject("Scripting.FileSystemObject")
        Do
            strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetBaseName(.GetTempName) & ".ps1")
        Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
    End With
    
    GetTemporaryName = strTempName
End Function
'=============================================================================

[it3]

Iska, а как сделать тak, чтобы перед вставленной ячейкой, всегда автоматически вставлялись следующие строки:

Код:

$UserCredential = Get-Credential
$Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri http://exch.domain.ru/PowerShell/ -Authentication Kerberos -Credential $UserCredential
Import-PSSession $Session -DisableNameChecking

[Iska]

а как сделать тak, чтобы перед вставленной ячейкой, всегда автоматически вставлялись следующие строки: »

Например, так:

Код:

…
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True)
        .WriteLine "$UserCredential = Get-Credential"
        .WriteLine "$Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri http://exch.domain.ru/PowerShell/ -Authentication Kerberos -Credential $UserCredential"
        .WriteLine "Import-PSSession $Session -DisableNameChecking"
        .WriteLine
        
        For Each objRange In Selection
…