Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Создание файла Word из Excel, редактирование существующего макроса
 
Сделал.
Код
FindText = Cells(9, i): ReplaceText = Trim$(.Cells(i)) 'менять номер строки с фигурными скобками
Ещё ошибки возникают, если объединённая ячейка попадается ((
Создание файла Word из Excel, редактирование существующего макроса
 
Доброго времени суток.
Подскажите пожалуйста, какие параметры надо изменить в коде макроса, если мне надо добавить слева один столбик и сверху 8 строк?
Поменял в строках:
r = Cells(Rows.Count, "B").End(xlUp).row: rc = r - 10
For Each row In ActiveSheet.Rows("11:" & r)
ФИО = Trim$(.Cells(2)) & " " & Trim$(.Cells(3)) & " " & Trim$(.Cells(4))
Вордовские документы формируются, но данные не вставляются.
Инвентаризация установленного ПО с помощью VBS+WMI+EXCEL, Инвентаризация установленного ПО с помощью VBS+WMI+EXCEL
 
Цитата
Ivan.kh написал:
не понял каким боком Excel, это на форум по VBS нужно ... наверно
Нигде не нашел.
Может есть такой вариант?
passport.xlsm - шаблон (как вариант можно в нем сделать кнопку с макросом, который будет список полученного ПО раскидывать нужным образом)
Инвентаризация установленного ПО с помощью VBS+WMI+EXCEL, Инвентаризация установленного ПО с помощью VBS+WMI+EXCEL
 
Доброго времени суток.

Прошу помочь в решении задачи. Есть скрипт VBS, который сканирует компьютеры по заданным диапазонам IP адресов, с помощью WMI получает с них заданную информацию и в результате формирует экселевский файл по заданному шаблону. Проблема у меня с получением списка установленных программ.
Мне надо, чтобы программы вставлялись одна ячейка (B136) = одна программа, одна ячейка (M136) = версия программы из ячейки (B136). Ниже в строке одна ячейка (B137) = одна программа, одна ячейка (M137) = версия программы из ячейки (B13) и т.д.
Сейчас же получается в одну ячейку B136 вставляется всё, пример:
Microsoft .NET Framework 4 Client Profile RUS Language Pack, ver. 4;20150611
Microsoft .NET Framework 4 Client Profile, ver. 4;20150313
Microsoft .NET Framework 4 Extended RUS Language Pack, ver. 4;20141215
Microsoft .NET Framework 4 Extended, ver. 4;20160314
Microsoft Office Access MUI (Russian) 2010,ver. 14;20150707
Microsoft Office Excel MUI (Russian) 2010,ver. 14;20141215
Microsoft Office Groove MUI (Russian) 2010,ver. 14;20160314
Microsoft Office InfoPath MUI (Russian) 2010,ver. 14;20141215
Microsoft Office OneNote MUI (Russian) 2010,ver. 14;20160314
Microsoft Office Outlook MUI (Russian) 2010,ver. 14;20141215 и т.д.

Прикладываю файлы:
inventar_source.zip - содержимое:
inventar.vbs - сам скрипт
passport.xlsm - шаблон (как вариант можно в нем сделать кнопку с макросом, который будет список полученного ПО раскидывать нужным образом)
sotrudniki.xlsx - спиок с ФИО сотрудников, должностями, отделами, подразделениями

inventar_itog.zip - содержимое:
inventar.txt - текстовой файл с результатом работы скрипта
Zharikov-KK.xlsm - сформированный итоговый файл с результатом инвентаризации

А вот в этом файле (Zharikov-KK-должно получиться.xlsm) то, что мне хотелось бы получить.

P.S. Изначальный скрипт не мой, нашел среди древних файлов своих предшественников, автора к сожалению указать не могу. Скрипт и экселевский файл уже неоднократно мною переделывался. Если вдруг это увидит автор - спасибо ему за идею.
Страницы: 1
Наверх