|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Excel: создание кнопки -> запуск PowerShell |
|
2010 - [решено] Excel: создание кнопки -> запуск PowerShell
|
Пользователь Сообщения: 94 |
Профиль | Отправить PM | Цитировать Подскажите пожалуйста, каким образом можно реализовать следующее:
1. Есть ячейка, необходимо создать кнопку на листе; 2. При нажатии на кнопку должен открываться Windows PowerShell ISE и вставляться туда содержимое ячейке, которая выделена. |
|
Отправлено: 12:28, 30-09-2019 |
Ветеран Сообщения: 27449
|
Профиль | Отправить 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 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 94
|
Профиль | Отправить PM | Цитировать Iska, а как сделать тak, чтобы перед вставленной ячейкой, всегда автоматически вставлялись следующие строки:
|
Отправлено: 13:06, 01-10-2019 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата it3:
…
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 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|