Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
Нужно получить названия файлов в заданной директории и записать их в динамический массив, недавно начал изучать VBA, и не могу придумать как это сделать.
 
Цитата
Sam_nit пишет:
не могу придумать как это сделать.
Читать форум. Примеров полно, поиск работает.
Я сам - дурнее всякого примера! ...
 
Пытался пользоваться поиском, нужного не обнаружил. Мне нужен конкретный кусок кода, где путь прописывается в ручную. А не готовый макрос.
 
http://excelvba.ru/code/FilenamesCollection
 
все равно не совсем то, тем более ругается на метод:
Function FilenamesCollection(ByVal FolderPath As String, Optional ByVal Mask As String = "", _
                            Optional ByVal SearchDeep As Long = 999) As Collection

method or data member not found
 
Просмотреть все файлы в папке
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Таак, насколько я понял,
Код
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
       [QUOTE] 'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
        ActiveWorkbook.Sheets(1).Range("A1").Value = "www.excel-vba.ru"
        ActiveWorkbook.Close True[/QUOTE] [SIZE=5]на сколько я понял вместо этого надо поставить мой массив, мне так сложно вникать в синтаксис([/SIZE]
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
Изменено: Sam_nit - 22 Май 2013 21:11:36
 
Помогите в вышестоящий код впихнуть массив Dir names() As String ))
 
Цитата
Sam_nit пишет:
Мне нужен конкретный кусок кода, где путь прописывается в ручную. А не готовый макрос.
Я сам - дурнее всякого примера! ...
 
ии??
 
Что и? Вам дали конкретный кусок кода для перебора файлов в папке. Готовый макрос Вам был НЕ НУЖЕН - сами написали. Так вот изучайте, меняйте, дорабатывайте под свои нужды самостоятельно. Как и просили.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Там было такоее маааленькое слово "путь" он же путь к папке. Собственно я имел в виду только это. А не то что вроде бы в макросе перебор есть, но выполняет он не то что нужно. Доработать можно, но знаний моих не хватит, собственно помощь в этом я и просил
 
Цитата
Sam_nit пишет:
Мне нужен конкретный кусок кода, где путь прописывается в ручную.
Цитата
Sam_nit пишет:
Там было такоее маааленькое слово "путь" он же путь к папке. Собственно я имел в виду только это.
Да пожалуйста:
Код
s = InputBox("Ввведите полный путь к папке", "Путь")

Вопрос исчерпан?
Я сам - дурнее всякого примера! ...
 
Вариант.
 
Окей спасибо всем
Страницы: 1
Читают тему (гостей: 1)