sanitar9700 05-02-2014 12:21
quote:
в самой консоли "корпорация майкрософт" тоже такими же написано?
нет
sanitar9700 05-02-2014 12:22
quote:
или VBS...
а макросы в экселе не на VBS пишутся что ли?
sanitar9700 05-02-2014 12:39
Sub Ôàéëîïîèñê()
Dim Path As String
Dim FileName As String
Range("A1").Activate
Path = "C:\123" '
FileName = Dir(Path & "*.doc")
Do Until FileName = ""
ActiveCell.Value = FileName
Range("A" & ActiveCell.Row + 1).Activate
FileName = Dir
Loop
End Sub
создал ваш макрос в экселе. запускаю пусто. куда генерятся результаты? может вам проще мою папку скинуть а вы мне конечный текстовый файл?
Nataasya 05-02-2014 09:04
Path = "C:\123\" '
макросы в экселе пишутся на VBA (Visual Basic for Application) а VBS это Visual Basic Script
т.е. второй код копируем в текстовый файл, меняем расширение на VBS - профит
Ваш КЭП
jaw 05-02-2014 11:12
quote:
Originally posted by sanitar9700:
1103 "' ' __"" - 2, -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, _R R_R , _'' ь 6 - __˜ ь 2, __˜ ь 2 - _ _. ь 317, аГ_. ьь 2251, 2250, _R __R 2006.doc
Такие кракозябры выдает
chcp 1251
В самый верх добавьте
John Wehin 05-02-2014 15:00
виндопроблемы такие занимательные %)
sanitar9700 05-02-2014 18:07
спасибо макрос в экселе выручил.
uncle_ziga 05-02-2014 18:41
quote:
виндопроблемы такие занимательные
Тут люди знают толк в извращениях
Макросы на ёкселе для такой задачи - это вообще сильно.
kammm 06-02-2014 02:14
quote:
Макросы на ёкселе для такой задачи - это вообще сильно.
Кто чем балуется.
Я маросы в экселе писал. (по работе надо было)
Для быстрого переиманования файлов написал макросы (в экселе 2003м работает файл)
Делал для удобства переименования кучи музыкальных файлов.
Получает список файлов из папки. (при желании из всех вложенных тоже)
Можно копировать в текст или так распечатать.
Можно обрезать несколько первых символов. (например отрезать номера от списка песен, как они на дисках бывают пронумерованы)
Добавить номера или произвольный текст в начале названия каждого файла.
Ну это типа певца к названию песни.
А для тех файлов названия которых записаны латиницей есть корявая замена английских букв на русские.
Потом проще разобрать что за название и поправить.
Удобная для меня вещь получилась.
blind human 10-02-2014 22:07
есть. ценник 500
kammm 11-02-2014 12:14
quote:
есть. ценник 500
опоздал кажись
quote:
спасибо макрос в экселе выручил.