Страницы: 1
RSS
как открыть файлы * .csv в цикле?
 
Всех с 1 Мая!

К своему стыду не разберусь, как открыть файлы *.csv по очереди из заданной папки.
вот кусок кода, (взял у The_Prist)
Код
   sFiles = Dir(sFolder & "*.csv*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        'Запишем на первый лист книги в ячейку А1 - www.excel-vba.ru
        ActiveWorkbook.Sheets(1).Range("A1").Value = "www.excel-vba.ru"
        'Закрываем книгу с сохранением изменений
        ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop

в sFolder только файлы *.csv? ни одного не открывает (просто не видит)
Что не так?

вот весь макрос
Скрытый текст
Изменено: Михаил С. - 01.05.2017 10:39:43
 
разобрался. нужно
Код
 sFiles = Dir(sFolder)
Страницы: 1
Наверх