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

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

02.02.2017, 00:06. Показов 1421. Ответов 11
Метки (Все метки)

Добрый день. Помогите написать скрипт который будет:

У меня есть много файлов в папке С:\1\ имя1.csv имя2.csv .... имя99.csv
Нужно чтобы скрипт открывал файлы по очереди и запускал макрос, после выполнения макроса сохранял файл в С:\2\ как имя1.xlsx имя2.xlsx .... имя99.xlsx


Добавлено через 1 час 25 минут
Нашел на сайте вот этот скрипт:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
strTempPath = "D:\PRIBOR"
Set objFSO=CreateObject("Scripting.FileSystemObject") 
Set objFolder=objFSO.GetFolder(strTempPath) 
 
 
For Each objFile In objFolder.Files 
Ext = Mid(objFile, InstrRev(objFile, ".") + 1)
 
If Ext = "xls" Then 
OutFile = Left(objFile.Path, Len(objFile.Path) - Len(Ext) - 1)
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Open objFile
XL.ActiveWorkbook.SaveAs OutFile & ".csv",6
XL.ActiveWorkbook.Saved = True
XL.ActiveWindow.Close
XL.Quit
End If
Next
Он открывает файл и сохраняет с другим расширением. Помогите дописать его, чтобы перед закрытием он сначала выполнял макрос

Добавлено через 1 час 10 минут
Заметил такую проблему, если запустить первую часть скрипта:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 strTempPath = "D:\PRIBOR"
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
End
То имя.csv открывается и значения всех ячеек переносятся в столбец А и разделяются между собой знаком ; (2;5;65;56;34;76).
А если открыть файл имя.csv вручную, то все нормально, каждое значение в своей ячейки. Подскажите как открыть скриптом этот долбанный.csv чтобы значения оставались в своих ячейках?

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

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

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

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

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

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