Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Excel: создание кнопки -> запуск PowerShell

Ответить
Настройки темы
2010 - [решено] Excel: создание кнопки -> запуск PowerShell
it3 it3 вне форума

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать


Подскажите пожалуйста, каким образом можно реализовать следующее:
1. Есть ячейка, необходимо создать кнопку на листе;
2. При нажатии на кнопку должен открываться Windows PowerShell ISE и вставляться туда содержимое ячейке, которая выделена.

Отправлено: 12:28, 30-09-2019

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Например, так:
Скрытый текст

Код: Выделить весь код
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
'=============================================================================
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:13, 30-09-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

it3 it3 вне форума Автор темы

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 13:06, 01-10-2019 | #3


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата it3:
а как сделать т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
…
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:35, 01-10-2019 | #4



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Excel: создание кнопки -> запуск PowerShell

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
PowerShell - Получение значения ячейки Excel в переменную Powershell dyshes90 Скриптовые языки администрирования Windows 1 05-04-2019 00:55
PowerShell - Извлечение информации из Excel с помощью PowerShell Alexchandr Скриптовые языки администрирования Windows 14 24-10-2016 16:07
2008 R2 - Работа с excel в Powershell Valik87 Windows Server 2008/2008 R2 0 22-03-2012 12:33
PowerShell - PowerShell и Excel tarasov.evgeny Скриптовые языки администрирования Windows 11 15-11-2011 16:27




 
Переход