![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Excel: создание кнопки -> запуск PowerShell |
|
2010 - [решено] Excel: создание кнопки -> запуск PowerShell
|
Пользователь Сообщения: 94 |
Подскажите пожалуйста, каким образом можно реализовать следующее:
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 |
|