Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Изменить расширение файла
 
#1
13.09.2012 22:09:03
Можно ли изменить расширения автоматически у всех файлов в папке, если оно другое. Например, программа выбирает только файлы .xls, но так же там содержатся файлы других форматов (например .sxc). Как переименовать все неподходящие файлы в .xls? названия файлов заранее не известны, количество тоже
 
 
 
#2
13.09.2012 22:12:54
Переименовать не проблема, но что это будет? Зачем это? Одним переименованием они в нормальные правильные xls не превратятся.
 
 
 
#3
13.09.2012 22:14:10
А если там графический файл, например, .jpeg,- его тоже в .xls?
 
 
 
#4
13.09.2012 22:20:23
Нет, там только 2 вида файлов, .xls или .sxc, то есть оба - это таблицы
 
 
 
#5
13.09.2012 22:21:51
Не понимаю, чего Вы хотите в итоге добиться?
 
 
 
#6
13.09.2012 22:23:35
Что бы все файлы были в формате .xls
 
 
 
#7
13.09.2012 22:26:44
Так Вы этого не добьётесь. Расширение будет, формат - нет.
 
 
 
#8
13.09.2012 22:28:35
А файлы .sxc в Excel сами по себе открываются?
 
 
 
#9
13.09.2012 22:32:30
ну если изменить у одного такого файла а настройках - открывать все файлы такго типа, то да
 
 
 
#10
13.09.2012 22:34:15
Переформулирую: Excel САМ такие файлы открывает?
 
 
 
#11
13.09.2012 22:34:39
Попробуйте вручную заменить расширение одному файлу - он после этого открывается Экселем?  
Или таким кодом, если вручную не получается (кто знает...)  
 
Sub tt()  
   OldName = "c:\Temp\Радистка_Кет\test.sxc"    'старое имя  
   NewName = "c:\Temp\Радистка_Кет\test.xls"    'новое имя  
   Name OldName As NewName  
End Sub
 
 
 
#12
13.09.2012 22:37:00
Если получится, то лучше вероятно так делать:  
 
   NewName = "c:\Temp\Радистка_Кет\test.sxc.xls"    'новое имя  
 
чтоб позже не путались. И назад несложно вернуть.
 
 
 
#13
13.09.2012 22:44:48
Да, вот это как раз и пробовала. вроде работает. никак не могу это сделать на всех файлах
 
 
 
#14
14.09.2012 00:25:52
Этот текст сохранить с расширением vbs, запустить.  
Можно естественно править в блокноте.  
Можно "завернуть" в sub и использовать как макрос.  
 
 
Dim FSO  
Dim TheFolder, TheFiles, AFile  
 
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set TheFolder = FSO.GetFolder("c:\Temp\Радистка_Кет\") 'Каталог  
Set TheFiles = TheFolder.Files  
 
For Each AFile In TheFiles  
   If UCase(FSO.GetExtensionName(AFile.Path)) = "SXC" then  
FSO.MoveFile afile , afile & ".xls"  
   End If  
Next
 
 
 
#15
16.09.2012 23:05:01
Так данные код не изменяет расширение файла, а просто добавляет новое, то есть было: "5.2.sxc", а стало - "5.2.sxc.xls"
 
 
 
#16
16.09.2012 23:08:19
Оно Вам мешает? Экселю думаю нет :)  
Я же сказал - так проще Вам будет разобраться, что родной файл, а что искусственный.  
Можно конечно и полностью заменить... Но зачем?
 
 
 
#17
16.09.2012 23:10:58
Странно - писал сообщение в эту тему, а его нет?!  
 
shell "cmd/c ren c:\Temp\Радистка_Кет\*.sxc *.xls"
 
 
 
#18
16.09.2012 23:15:13
Хорошо, большое спасибо
 
 
 
#19
16.09.2012 23:15:58
Казанский предложил решение получше, но и я своё уж добью :)  
Замените одну строку на такую:  
FSO.MoveFile afile , replace(lcase(afile), ".sxc", ".xls")
 
 
 
#20
16.09.2012 23:23:09
Или корректней так (так не заменит всюду где найдёт):  
 
           FSO.MoveFile AFile, Left(AFile, Len(AFile) - 3) & "xls"
 
 
 
#21
16.09.2012 23:26:44
{quote}{login=Казанский}{date=16.09.2012 11:10}{thema=}{post}Странно - писал сообщение в эту тему, а его нет?!{/post}{/quote}  
Радистка_Кет устроила проверку на внимательность :)  
Это была другая тема.
 
 
 
#22
17.09.2012 08:05:14
.sxc это электронная таблица OpenOffice.Org 1. Переименовывать его бесполезно. Ни 2007-10, ни тем более 2003 его не открывают. Об этом Вас и спрашивали форумчане. Можно только открыть в ОО и сохранить, как xls.
Я сам - дурнее всякого примера! ...
 
 
 
#23
17.09.2012 08:10:05
Вот для примера файл, так тупо переименованный. Сможет кто-нить открыть его в эксе?
Я сам - дурнее всякого примера! ...
 
 
 
#24
17.09.2012 09:08:49
2003 не открыл.
 
 
 
#25
17.09.2012 13:29:54
{quote}{login=KukLP}{date=17.09.2012 08:05}{thema=}{post}.sxc это электронная таблица OpenOffice.Org 1. Переименовывать его бесполезно. Ни 2007-10, ни тем более 2003 его не открывают. Об этом Вас и спрашивали форумчане.{/post}{/quote}И ведь ДЕЙСТВИТЕЛЬНО спрашивали!
 
 
 
#26
17.09.2012 13:42:23
Тогда может быть открывают файлы не в Экселе :)
 
 
 
Страницы: 1
Читают тему
Наверх