Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Список имен файлов в Exel
 
#1
23.12.2012 11:10:42
Подскажите пожалуйста как можно перенести список имен файлов без расширений из какой либо папки в exel?
 
 
 
#2
23.12.2012 11:22:38
Воспользуйтесь функцией получения списка файлов из папки:
http://excelvba.ru/code/FilenamesCollection
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
23.12.2012 11:29:54
все работает, но эта функция выдает название файла полностью с расширением, а надо чтоб было просто название файла допустим чтоб xxx.rtf выносил в список как xxx. Вообще я работаю с файлами .rtf и можно какнибудь сделать чтоб в сформированном списке ".rtf" подменялось пробелом? мб так проще?
 
 
 
#4
23.12.2012 11:34:09
Прочитайте самый верхний комментарий в статье:
Цитата
Чтобы имя файла выводилось без расширения, вместо строки
ИмяФайла = Dir(ПутьКФайлу)
напишите
ИмяФайла = Left(Dir(ПутьКФайлу), InStrRev(Dir(ПутьКФайлу), ".") - 1)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
23.12.2012 11:37:36
Если без правки кода, то можно стандартным Ctrl+H
Верхнее поле: .rtf
Нижнее поле оставляем пустым.
Ещё вариант: идём в старый форум и в поиске вводим запрос: имя файла без расширения
 
 
 
#6
23.12.2012 11:45:22
Цитата
Юрий М пишет:
Ещё вариант: идём в старый форум и в поиске вводим запрос: имя файла без расширения
Нажимаем ссылку, и вываливаемся на какую-то (стартовую?) страничку нового форума.
 
 
 
#7
23.12.2012 11:49:13
Я попадаю на старую Планету. Значит ещё не везде DNS обновились...
Пробуем набрать в адресной строке эту ссылку: http://62.76.186.34/forum.php?forum_id=119
 
 
 
#8
23.12.2012 11:54:21
Юр, на старую Планету я тоже попадаю.
Ввожу поиск, получаю результат.
А вот при нажатии на ссылку в результате поиска, вместо перехода на найденную тему, выбрасывает сюда.
 
 
 
#9
23.12.2012 12:01:49
Николай писал, что нужно подменить в адресной строке - сейчас не могу найти...
 
 
 
#10
23.12.2012 12:12:18
www.planetaexcel.ru заменить на 62.76.186.34
Я у себя в опере все ссылки поменял на новые, теперь сразу попадаю куда надо:)
Изменено: KuklP - 23.12.2012 12:14:01
Я сам - дурнее всякого примера! ...
 
 
 
#11
23.12.2012 12:14:22
А еще проще открыть сохраненную копию :)
Спасибо
 
 
 
#12
23.12.2012 14:05:22
Цитата
Илья xxx пишет: Подскажите пожалуйста как можно перенести список имен файлов без расширений из какой либо папки в exel?
http://planetaexcel.ru/techniques/3/45/
 
 
 
#13
23.12.2012 14:38:57
Код
?
1
2
3
4
5
6
7
8
Sub EnumerateFiles()
    Dim fso As Object, theFile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    For Each theFile In fso.GetFolder("C:\Windows\").Files
        Debug.Print theFile.Path
    Next
End Sub
There is no knowledge that is not power
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...