Страницы: 1
RSS
[ Закрыто ] Как название 100 фотографий копировать в excel
 
Ребята помогите....
 
ищите "список файлов в папке"
Учимся сами и помогаем другим...
 
Вариант.
 
Вариант для файлов с англицкими названиями:
Код
1
2
3
4
5
6
7
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:
Код
1
dir g:\foto\*.* /b  > 1.csv


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

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