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

[Len@]

не поняла...просто указать в названии файла расширение .txt? Так он тогда его просто не находит...

[дмидми]

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

просто указать в названии файла расширение .txt?

...и переименовать файл, изменив его расширение на .txt

Можно просто дописать: file.csv --> file.csv.txt

[Len@]

Сообщение от дмидми

...и переименовать файл, изменив его расширение на .txt

Можно просто дописать: file.csv --> file.csv.txt

Это делается в самом скрипте? Если да, то каким образом?

[дмидми]

VBE: nameF1

[Serge_Bliznykov]

дмидми, Вы безусловно правы. Ответ верный, полный и исчерпывающий.. но все же, позвольте мне добавить немножко...

Len@, очень рекомендую посетить веточку дружественного форума - http://programmersforum.ru/showthread.php?p=122689
посмотрите там пост #8 от божественного SAS888...
строчка
Name FilePath As RenPath
переименовывает файл с именем, имя, которой задано в переменной FilePath, в файл, имя которого задано в RenPath...

[Len@]

Большое спасибо за помощь! Нам не совсем было понятно, что приблизительно искать в справке, отсюда и дотошность

[slan]

и там указать, как разбирать данные

[Len@]

А каким образом можно последовательно открывать файлы, находящиеся в определенной папке, не указывая конкретное имя файла? Т.е. по сути, нужно открывать файлы, которые находятся Dir'ом.

[Serge_Bliznykov]

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

по сути, нужно открывать файлы, которые находятся Dir'ом.

ну, Dir'ом можно найти ЛЮБЫЕ файлы...
о каких файлах идёт речь - XLS ?

вот, ПРИМЕР (читай "болванка"...)

(c) Лузер™

Sub ss()
  Dim Mask As String, fName As String
  Dim wb As Workbook
  Mask = "C:\Dir\*.xls"
  fName = Dir(Mask)
  While fName <> ""
     ' открыли очередной файлик...
     Set wb = Workbooks.Open("C:\Dir\" + fName)

     ' например, что с открытым файликом делаем....
     '    set sh=ActiveSheet
     '    sh.Copy Before:=ThisWorkbook.Sheets(1)

    ' закрываем открытый файл
    wb.Close False
  
    ' следующий файл в списке DIR
    fName = Dir
  Wend
End Sub

подправил код. вроде так работает!