Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[ Закрыто ] Как название 100 фотографий копировать в excel
 
#1
30.03.2013 15:56:01
Ребята помогите....
 
 
 
#2
30.03.2013 16:13:34
ищите "список файлов в папке"
Учимся сами и помогаем другим...
 
 
 
#3
30.03.2013 17:16:23
Вариант.
 
 
 
#4
30.03.2013 17:20:22
Вариант для файлов с англицкими названиями:
Код
Public Sub www()
    Call Shell(ThisWorkbook.Path & "\1.cmd", 1)
    With Workbooks.Open("1.csv")
        .Sheets(1).[a1].CurrentRegion.Copy ThisWorkbook.Sheets(1).[a1]
        .Close 0
    End With
End Sub

Содержание файла 1.cmd:
Код
dir g:\foto\*.* /b  > 1.csv


P.S. Автор, если не хотите неприятностей от модераторов - смените ник.
Изменено: KuklP - 30.03.2013 17:31:35
Я сам - дурнее всякого примера! ...
 
 
 
#5
30.03.2013 19:47:17
Если потом ещё и сами изображения надо будет вставлять - попробуйте это решение:
http://ExcelVBA.ru/programmes/PastePictures

Там в меню «Дополнительно» есть опция и для вставки имен файлов-картинок из заданной папки
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
30.03.2013 20:26:51
Если отвечать именно на поставленный вопрос - я бы в Тотале выделил файлы, скопировал полные cm_CopyFullNamesToClip (или не полные) пути, Ctrl+V в Эксель.
Изменено: Hugo - 30.03.2013 20:27:33
 
 
 
#7
30.03.2013 20:36:31
openid.mail.ru/mail/swert1k, я уже писал Вам по поводу ника - Вы не реагируете. Все Ваши темы будут закрываться/удаляться!
 
 
 
Страницы: 1
Читают тему
Наверх