Необходимо прочитать название файлов и записать ...

[alex77777]

Всем привет!

Есть каталог с файлами 111.txt, 222.txt и тд .
Необходимо прочитать название файлов и записать данные в Excell.

[uhm]

Способов много. Например, пишем макрос в Экселе

Код: Выделить всё

    Set fs = Application.FileSearch
    With fs
        .LookIn = "c:\temp"
        .Filename = "*.txt"
        a = .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending)
        If a > 0 Then
        For i=1 to a
             Msgbox .FoundFiles(i)
        Next i
   End With



[alex77777]

ошибка . Sub or Function not defined.

[uhm]

Сорри, должно быть

.FoundFiles(i)

Забыл точку перед FoundFiles поставить.

[Andrev]

Записать в Excel? Названия файлов или их содержимое? Если названия, то вот:

Код: Выделить всё

Private Sub Command1_Click()
Excel.Application.SheetsInNewWorkbook = 1
Excel.Application.Workbooks.Add
    On Error GoTo err
    Dim nList As Variant, sFile As String, nCounter As Long
    sFile = Dir(Path & "c:\*.txt")
    While sFile <> vbNullString
        nCounter = nCounter + 1
        Excel.ActiveSheet.Cells(nCounter, 0) = sFile
        List1.AddItem sFile
        sFile = Dir()
    Wend
Excel.Application.Visible = True
    Exit Sub
err:
    If err.Number > 0 Then MsgBox err.Description, vbCritical Or vbOKOnly Or vbDefaultButton1, "Error #" & CStr(err.Number)
End Sub


При этом должны быть подключены библиотеки VS Office и MS Excel

[Andrev]

О-о-ох!!! Извиняюсь! В строке №9 ошибка - вместо нуля должна быть единица.
Строка должна выглядеть вот так:

Код: Выделить всё

Excel.ActiveSheet.Cells(nCounter, 0) = sFile


[Andrev]

Да что за день сегодня? Вот ведь я дурак... Опять нолдь не исправил.
Вот:

Код: Выделить всё

Excel.ActiveSheet.Cells(nCounter, 1) = sFile


[alex77777]

uhm, Andrev спасибо.

uhm мне надо чтобы в Excell добавлял

[alex77777]

Andrev, каждый раз при запуске ошибка вылетает :

Object required

Можно как то обойти эту ошибку

[Andrev]

А ты библиотеки требуемые подключил? Если нет - подключи. Если да - подключи еще до кучи и библиотеку DAO 3.6

[uhm]

Ну елы-палы, если есть массив fs.Foundfiles, содержащий все имена, неужели трудно самому его в нужные ячейки записать?!