Поиск *.csv и *.xls файлов

[Len@]

Можно ли осуществить автоматический поиск файлов формата *.csv через VBA? Если да, то где можно посмотреть пример реализации данной задачи.
У нас есть пример поиска файлов *.xls. Может возможно изменить его для поиска csv.

Dim filename As String
Dim files As String
filename = Dir("E:\")
While filename <> ""
If files = "" Then
files = filename
Else
files = files + Chr(13) + filename
End If
filename = Dir
Wend
MsgBox files

Для начала выводим просто на экран, чтобы было понятно, ищет или нет. Выполняем по нажатию кнопки в Excel'е


И можно ли изменить расширение файла с *.csv на *.xls?

[dsapa]

Хм... Данный код находит также и файлы *.doc
Это не есть хорошо.

[дмидми]

dirF1
Там всё подробно прописано, и с примерами. Я лучше не объясню.

[SAS888]

Len@, Вы просто ленивы. Есть куча конкретных примеров даже в этом топике.
Можно, например так:

Sub SearсhFiles()
    
    Dim myName As String, Msg As String
    myName = Dir("D:\Temp\" & "*.csv") 'Подставьте Ваш путь к файлу.
    Do While myName <> ""
        Msg = Msg & myName & vbCrLf
        myName = Dir
    Loop
    If Msg = "" Then MsgBox "Искомых файлов нет" Else MsgBox "Найдены файлы:" & vbCrLf & Msg
    
End Sub

Также, можно добавить фильтр по атрибутам файла, проверку существования заданного пути и т.д. Если нужно подробнее, то Вам дмидми уже указал путь.

[дмидми]

Сообщение от SAS888

Также можно добавить фильтр по атрибутам файла

Позволю себе уточнить: прописать атрибуты значит не добавить фильтр, но проделать дырки в фильтре:
"If omitted, returns files that match pathname but have no attributes" (Подчёркнуто мной. - ДмиДми).

Поэтому в приведённом примере нужно как минимум
myName = Dir("D:\Temp\" & "*.csv", vbNormal + vbArchive)
и, скорее всего, еще + vbReadOnly

[Len@]

Большое Спасибо!
вы нам очень помогли!

[Len@]

Еще один вопрос.
Какая функция отвечает за открытие файла с расширением .csv? Дело в том, что получилось написать скрипт только на нормальное открытие файла с расширением xlsx, а файлы csv открываются с использованием разделителя ";", т.е. все запихивается в один столбец.
При открытии файла не через скрипт, он открывается нормально.
Вот этот скрипт, написанный с использованием справки. Поскольку с VBA мы работаем 3-й день, то мы не понимаем, что конкретно нужно искать для работы с csv...

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "путь\имя.xlsx"
Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

[дмидми]

Сообщение от Len@

При открытии файла не через скрипт, он открывается нормально.

Включите макрорекордер
(Сервис -- Макрос -- Начать запись...),
откройте файл *.csv вручную,
остановите запись и посмотрите, как это делается.

[Len@]

То же самое. Открывает вручную нормально, при использовании скрипта макроса, опять же использует ";"

[дмидми]

Любопытная обнаружилась особенность.
Если расширение .csv, то ёксель плюёт на все параметры, но достаточно сменить расширение на .txt, и тот же самый файл прекрасно открывается командой

    Workbooks.OpenText Filename:= _
        "C:\хламCSV.txt" _
        , Origin:=xlWindows _
        , DataType:=xlDelimited _
        , Semicolon:=True