Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBScript/JScript Дописать скрипт вывода информации по компьютерам домена https://www.cyberforum.ru/ vbscript-wsh/ thread1910972.html
во вложенном архиве 2 файла: prosto v Excel.wsf и info.vbs скрипт info.vbs собирает информацию о компьютере. как мне этот скрипт допилить что бы он выводил еще и имя пользователя? работает всё это...
VBScript/JScript Закрепить программу на панели задач с запуском от имени Администратора
Как известно можно закрепить программу на панели задач Windows 7/8/... при помощи такого скрипта: mshta.exe vbscript:Execute("dim exe: exe=""%WinDir%\explorer.exe"":Set fs =...
Создать BAT-файл с помощью VBS-файла VBScript/JScript
Привет всем. Интересует вопрос, возможно ли создать bat файл напрямую через VBS файл и вписать туда определенный код? Я научился открывать bat через vbs, но можно ли создать его через него и...
VBScript/JScript Скрипт, срабатывающий при открытии Блокнота Добрый день ! Как сделать такой скрипт который будет запускатся при запуске Notepad ? https://www.cyberforum.ru/ vbscript-wsh/ thread1909183.html
VBScript/JScript Ошибка: "Неправильный сертификат безопасности, необходимый для доступа к этому ресурсу" https://www.cyberforum.ru/ vbscript-wsh/ thread1907319.html
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP") adr="https://test.ru/zapros.php?command=111" auth="" xmlHTTP.Open "GET", adr, False xmlHTTP.setRequestHeader "Authorization", "Basic " +...
VBScript/JScript Две функции с одинаковыми именами
Есть vbs-скрипт, в нём 2 функции с одинаковы именем, всегда выполняется "нижняя" функция. t1 WScript.Quit Function t1 WScript.Echo 1 End Function Function t1 WScript.Echo 2
VBScript/JScript При запуске процесса 1 завершать процесс 2
Здравствуйте эксперты! Проблема такая: не знаю как написать vbs скрипт который при запуске процесса monitor.exe завершал процесс zakaz.exe и при завершении процесса monitor.exe заного запускать...
VBScript/JScript Можно ли отправить popup-окно определенному пользователю компьютера? В общем задача стояла такая - определить какое количество времени пользователь неактивен и если больше получаса - выключить комп. Решил так: У всех пользователей через какое то время (минут... https://www.cyberforum.ru/ vbscript-wsh/ thread1905824.html
VBScript/JScript Возможно ли создать ярлык, который будет открывать папку и одновременно запускать VBS-скрипт? https://www.cyberforum.ru/ vbscript-wsh/ thread1904204.html
Глубокое гугление ничего не дало. Возможно ли сделать ярлык на папку, который не только откроет папку, но и запустит вместе с открытием папки VBS скрипт, или это невозможно чисто технически? Сделать...
VBScript/JScript Запуск кода cmd Есть такой маленький скриптик: WScript.CreateObject("WScript.Shell").Run """%comspec%"" /c ""pro.bat""", 0, False Он запускает в фоновом режиме (окно консоли не показывается) мой батник такого... https://www.cyberforum.ru/ vbscript-wsh/ thread1901535.html
0 / 0 / 0
Регистрация: 01.02.2017
Сообщений: 6
23.03.2017, 13:03  [ТС] 0
VBS

По очереди открывать каждый CSV-файл, запускать макрос и сохранять этот файл в формате XLSX

23.03.2017, 13:03. Показов 1421. Ответов 11
Метки (Все метки)

Ответ

Спасибо, помогло. Оставил только эту строчку, остальные убрал, так как они все равно не дают нужный мне результат.
Сейчас код работает, но есть один недостаток.
Когда он раскрашивает ячейки, то он меньшие значения красит в красный, а большие в зеленый. Впринципе можно оставить и так, но так как это тепловизионный снимок, то гарячие места хотелось бы видеть красным, а не зеленым.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
strTempPath = "C:\Documents and Settings\757-Shishov\Рабочий стол\груздов"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(strTempPath)    
For Each objFile In objFolder.Files
Ext = Mid(objFile, InstrRev(objFile, ".") + 1)  
If Ext = "csv" Then OutFile = Left(objFile.Path, Len(objFile.Path) - Len(Ext) - 1)
 
Set XL = CreateObject("Excel.Application")
XL.Visible = True
'XL.Workbooks.Open objFile,,,,,,,,,,,,,True
 
XL.Workbooks.OpenText objFile, , , , , , , True
 
 
XL.Columns("A:A").Select
    XL.Selection.Delete Shift = xlToLeft
    XL.Rows("1:1").Select
    XL.Selection.Delete Shift = xlUp
    XL.Selection.Delete Shift = xlUp
    XL.Cells.Select
    XL.Range("HO208").Activate
    XL.Selection.ColumnWidth = 0.25
    XL.Cells.EntireRow.AutoFit               
    XL.Selection.RowHeight = 2.25
    XL.ActiveWindow.ScrollRow = 1
    XL.ActiveWindow.ScrollColumn = 1
 
    XL.Selection.FormatConditions.AddColorScale 3
 
'XL.ActiveWorkbook.SaveAs OutFile & ".xlsx" , 51
'XL.ActiveWorkbook.Saved = True
'XL.ActiveWindow.Close
'XL.Quit
 
Next


Вернуться к обсуждению:
По очереди открывать каждый CSV-файл, запускать макрос и сохранять этот файл в формате XLSX
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2017, 13:03
Готовые ответы и решения:

Как можно открывать и сохранять файл через диалоговые окна?
Есть типизированная файловая переменная, как можно открывать и сохранять файл через диалоговые окна?

Ряд динамически созданных MaskedTextBox сохранять в файл/открывать из файла
Помогите разобраться с SaveFileDialog. Вот наворотил : private void...

Макрос. Файл закрыть и не сохранять
Всем доброго времени суток. собственно, вопрос прописан в теме . этот код ...

Помогите пожалуйста, не могу разобраться как сохранять файл, например в формате bmp?
Помогите пожалуйста, не могу разобраться как сохранять файл, например в формате bmp? uses ...

__________________
11
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.