Импорт названия файла из папки в ячейку

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

24.08.2010 09:34:04

Можно ли как-то создать кнопку или макрос для добавления в ячейку названия файла из папки. К примеру, когда нажимаем, кнопку "Гипперсылка" и выбираем файл, то Excel, если ячейка пустая, вставляет название файла. Мне точно также нужно, только без гипперсылки к файлу и что расширение не вставлял.

Пытливый Пользователь Сообщений: 4725 Регистрация: 22.12.2012	#2 24.08.2010 09:37:13 =ЯЧЕЙКА("имяфайла") это? Лучше б пример, конечно. Вот есть, вот в таком виде хочу получить. Кому решение нужно - тот пример и рисует.

Sidd.nv

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

24.08.2010 09:57:39

{quote}{login=Пытливый}{date=24.08.2010 09:37}{thema=}{post}=ЯЧЕЙКА("имяфайла")
это?
Лучше б пример, конечно. Вот есть, вот в таком виде хочу получить.{/post}{/quote}
Есть папка в ней файлы (рисунок сверху). Нужно чтоб можно было выбрать файл, как по типу добавления гипперсылки, и чтоб вставлялись названия этих файлов в ячейки, или может выбрать папку сразу.

Прикрепленные файлы

post_148702.png (348.51 КБ)

sva

Пользователь

Сообщений: 1027 Регистрация: 23.12.2012

24.08.2010 10:21:55

Sub Filename()
Dim Directory As String '
Dim f As String
Dim r As Integer
Dim d

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
d = .SelectedItems(1) & "\"
End With
Directory = d
f = Dir(Directory, vbDirectory)
Do While f <> ""
If Left(f, 1) <> "." Then
r = r + 1
Cells(r, 1) = f
ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 1), Address:=Directory & Cells(r, 1)
End If
f = Dir()
Loop
End Sub

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#5 24.08.2010 15:28:50 Посмотрите пример в прикреплённом файле: http://excelvba.ru/code/FilenamesCollection Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему