Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Sam_nit
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
23.05.2013 17:53:30
Окей спасибо всем
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 23:11:30
Там было такоее маааленькое слово "путь" он же путь к папке. Собственно я имел в виду только это. А не то что вроде бы в макросе перебор есть, но выполняет он не то что нужно. Доработать можно, но знаний моих не хватит, собственно помощь в этом я и просил
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 21:32:05
ии??
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 21:28:33
Помогите в вышестоящий код впихнуть массив Dir names() As String ))
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 21:07:04
Таак, насколько я понял,
Код
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.05.2013 21:11:36
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 20:53:00
все равно не совсем то, тем более ругается на метод:
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
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 20:17:30
Пытался пользоваться поиском, нужного не обнаружил. Мне нужен конкретный кусок кода, где путь прописывается в ручную. А не готовый макрос.
 
Перейти    
VBA Список названий файлов из директории в массив, Нужно получить названия файлов в заданной директории и записать их в массив
 
#
22.05.2013 19:51:53
Нужно получить названия файлов в заданной директории и записать их в динамический массив, недавно начал изучать VBA, и не могу придумать как это сделать.
 
Перейти    
Страницы: 1
Наверх