Импорт нескольких txt файлов макросом

[slan]

Сообщение от R Dmitry

Второй вариант(1 предложил - Slan) который можно еще придумать в данном случае, создать свой собственный мастер импорта текста, и тут уж делай что хочешь
--------------
Но способ весьма затратный по времени (в плане разработки ), но зато один раз сделаете и будете пользоваться.

я даже не стал предлагать - ибо уж очень затратный

[slan]

можно совсем заморочиться:

создать автозагружаемый макрос в отдельной книге, который средствами api будет отслеживать появление окна мастера текстов и передавать ему имя файла

тогда действия такие:

запускаем еще один экземпляр иксель( через createobject или через shell)
в нем запускается макрос отслеживания

запускаем мастер текстов

как только макрос отслеживания обнаруживает такое окно, он вставляет туда имя файла и нажимает интер.. и закрывает свой экземпляр приложения.

должно работать..

[Snekich]

.... я думал обойдется введением пары переменных

[bgr]

Подскажите пожалуйста, а возможно ли импортировать несколько файлов без диалоговых окон, с ранее заданными параметрами?

[kuklp]

См. пост #6.

[bgr]

Если есть энтузиасты помогите плз...
задачка у меня большая, но на данный момент такая частичка: макрос загружает список файлов по фильтру с указанием размера файла и даты создания, а требуется из этого списка загрузить только файлы указанные во временном интервале (например в календаре) и импортировать в последовательности на этот же лист. с меня шоколадка

[EducatedFool]

возможно ли импортировать несколько файлов без диалоговых окон, с ранее заданными параметрами?

Да, возможно.
Например, при помощи этой программы: http://excelvba.ru/programmes/Unification

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

Возможно, в вашем случае имеет смысл написать отдельный макрос (попроще, ибо моя программа предназначена для обработки сложных файлов разной структуры, - а у вас задача, видимо, попроще), но ... без примеров ваших исходных файлов (и желаемого результата) вряд ли стоит ожидать какой-то конкретной помощи.

[bgr]

попробую описать ситуацию...
имеем 3 папки, в которые ежедневно создаются файлы типа 2013_03_05.dat (см вложение). И ежеминутно в файл текущего дня пишутся данные построчно:

[05.03.2013 00:00:00]> датчик1=15,6875 Датчик2=21,375

дата, время, имя датчика, показания датчика;
датчиков может быть от 1 до 30 шт
требуется:
по выбранному временному диапазону импортировать данные из соответствующих файлов, на их основе создать сводную таблицу и построить график (во вложении примерная сводная таблица с графиком) (если временной интервал задан от определённого времени по настоящее время, то график нужен (желателен) динамический или обновляемый раз в минуту....).
как я понимаю картину...
1. нажимаю кнопку загружается список файлов (может и не нужен даже сам список файлов ...) и из списка календарём выбрать промежуток дат (или одну дату, или две-три-пять разных дат) для импорта соответствующих файлов.
2. после импорта автоматом создаётся сводная таблица и график.

[Скрипт]

bgr, у вас задача большая. На большую задачу нужно потратить много времени. Не у каждого есть много времени. Поэтому лучше разбейте вашу задачу на несколько задач, а затем соберите всё в одну задачу.

Попросите, чтобы вам показали, как можно перенести данные из текстового файла в Excel-книгу. Ведь ваша первая задача - это перенести данные из текстовых файлов в Excel-книгу.

[bgr]

Sub загрузка()
'
' загрузка Макрос
' Макрос записан 05.03.2013 (Windows User)
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;F:\bm1707\BM1707\log\2013_02_05.dat", Destination:=Range("M1"))
        .Name = "2013_02_05"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 1
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileOtherDelimiter = "="
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

думаю так... НО как это сделать для нескольких файлов? и именно тех которые будут отвечать заданным временным интервалам....