Форум программистов, компьютерный форум, киберфорум
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, 11:09  [ТС] 0
VBS

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

23.03.2017, 11:09. Показов 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
strTempPath = "C:\Do*cuments and Settings*\757-Shishov\Рабочий стол\груздов"
Set objFSO=CreateObj*ect("Scripting.FileS*ystemObject")
Set objFolder=objFSO*.GetFolder(strTempPa*th)    
For Each objFile In objFolder.Files
Ext = Mid(objFile, InstrRev(objFile, ".") + 1)  
If Ext = "csv" Then OutFile = Left(objFi*le.Path, Len(objFile*.Path) - Len(Ext) - 1)
 
Set XL = CreateObjec*t("Excel.Application*")
XL.Visible = True
'XL.Workbooks.Open objFile,,,,,,,,,,,,,T*rue
 
XL.Workbooks.OpenText objFile, , , , , , , True
 
 
XL.Columns("A:A").Se*lect
    XL.Selection.Del*ete Shift = xlToLeft
    XL.Rows("1:1").S*elect
    XL.Selection.Del*ete Shift = xlUp
    XL.Selection.Del*ete Shift = xlUp
    XL.Cells.Select
    XL.Range("HO208"*).Activate
    XL.Selection.Col*umnWidth = 0.25
    XL.Cells.EntireR*ow.AutoFit               
    XL.Selection.Row*Height = 2.25
    XL.ActiveWindow.*ScrollRow = 1
    XL.ActiveWindow.*ScrollColumn = 1
 
    XL.Selection.For*matConditions.AddCol*orScale ColorScaleTy*pe = 3
XL.Selection.For*matConditions(Select*ion.FormatConditions*.Count).SetFirstPrio*rity
XL.Selection.For*matConditions(1).Col*orScaleCriteria(1).T*ype = _
        xlConditionV*alueLowestValue
    With XL.Selectio*n.FormatConditions(1*).ColorScaleCriteria*(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
XL.Selection.For*matConditions(1).Col*orScaleCriteria(2).T*ype = _
        xlConditionV*aluePercentile
XL.Selection.For*matConditions(1).Col*orScaleCriteria(2).V*alue = 50
    With XL.Selectio*n.FormatConditions(1*).ColorScaleCriteria*(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
XL.Selection.For*matConditions(1).Col*orScaleCriteria(3).T*ype = _
        xlConditionV*alueHighestValue
    With XL.Selectio*n.FormatConditions(1*).ColorScaleCriteria*(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
 
 
'XL.ActiveWorkbook.S*aveAs OutFile & ".xl*sx" , 51
'XL.ActiveWorkbook.S*aved = True
'XL.ActiveWindow.Clo*se
'XL.Quit
 
Next
Строка: 28
Символ: 5
Ошибка: Индекс выходит за пределы допустимого диапазона.
До этой строки все работает как нужно.

Добавлено через 14 минут
Сори, В коде появились звездочки почему-то, не могу убрать их. Вот еще раз код без звездочек.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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 ColorScaleType = 3
XL.Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
XL.Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With XL.Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
XL.Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
XL.Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With XL.Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
XL.Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With XL.Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
 
 
'XL.ActiveWorkbook.SaveAs OutFile & ".xlsx" , 51
'XL.ActiveWorkbook.Saved = True
'XL.ActiveWindow.Close
'XL.Quit
 
Next


Вернуться к обсуждению:
По очереди открывать каждый CSV-файл, запускать макрос и сохранять этот файл в формате XLSX
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2017, 11:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Если я пишу программу на языке Delphi в блокноте, то в каком формате нужно сохранять файл?
если я пишу программу на языке Delphi в блокноте , то в каком формате нужно сохранять ?

Как программно сохранять файл xls в текстовом формате, и всё время в одно и тоже место?
Коллеги, доброго времени суток! Помогите, как програмно сохранять файл *.xls в текстовом формате и...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

Java Server-Client. Сервер должен сохранять время запроса, сам запрос(сообщение) и IP, с которого пришел запрос в CSV файл
Работал на одном компе, так что адрес локальный. Проблема в том, что мой CSV файл пустой. Java...

Макрос: запускать таймер каждый раз в разных ячейках
Добрый день!Кто может помочь,нужен макрос,который запускает таймер каждый раз в разных...

Найти файл, и в папку где лежит этот файл скопировать другой файл)
Задача описана в названии, но повторюсь. Надо найти папку с известным названием файла (123.txt),...

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