Перенос данных из закрытой таблице (макрос)

[The_Prist]

Как получить данные из закрытой книги?

[Loshara]

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

Как получить данные из закрытой книги?

Спасибо Дмитрий!
А как выгрузить используя Ваш пример ADODB в массив не выгружая его на страницу.
И второй вопрос как отфильтровать записи
Скажем так вторая колонка - это в текстовом виде дата выбрать данные за сегодня.

P.S. Странно Ваш пример великолепно работает на локальных дисках и отказывается работать в случае явного сетевого окружения.
sPacth='\\172.18.13.112\Archiv\"
(Невозможно найти устанавливаемый ISAM.)
Office 2013 название файла 1.xls.
файл обновляется один раз в час.

[Loshara]

Сообщение от Казанский

Да ну? В шапке страницы слово "Поиск", клик - adodb - и вот например
http://programmersforum.ru/showpost....6&postcount=10
Спросите у своего Excel'я
Включите запись макроса, Ctrl+O, выберите файл, в выпадающей кнопке Открыть выберите "Открыть для чтения", ОК. Остановите запись и посмотрите, что получится.

Еще разхочу Вас поблагодарить за ответ. Но сейчас проявилась в полном объеме эта проблема.
Смысл проблемы заключается в следующем при использовании приведенного кода ни файл Excel и ни текстовые файлы не открываються для чтения а код полученный рекодеров (пришлось поставить 10 офис) все нормально работает.
Помогите пожалуйста преобразовать приведенный ниже код чтобы можно было бы отфильтровать записи и помещать их не на странице а в массиве

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\172.18.13.112\Archiv\Pech1_pr\P_1_Pr0.csv", Destination:=Range("$A$1" _
        ))
        .Name = "P_1_Pr0"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertEntireRows
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 15
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

[Hugo121]

Создайте файл или страницу, выгрузите этим кодом данные, возьмите их в массив, страницу удалите. Это если иначе никак не получится.

[Loshara]

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

Создайте файл или страницу, выгрузите этим кодом данные, возьмите их в массив, страницу удалите. Это если иначе никак не получится.

Я так делаю сейчас. но хотелось бы напрямую запихнуть все в массив