Чтение/перенос таблицы из закрытого файла.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Чтение/перенос таблицы из закрытого файла. (Макросы/Sub)

Юрий_Нд

Дата: Пятница, 08.12.2017, 20:02 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 441

Репутация: 19 ±

Замечаний: 0% ±

Excel 2013

Доброго вечера всем.
В одной из прошлых тем _Boroda_ подсказал мне, как можно перенести данные из одного, закрытого файла в другой.
[vba]

Код

Sub tt()
    p_ = "g:\Моя\Стереть\"
    f_ = "5699082.xlsx"
    s_ = "Лист1"
    r_ = 1
    c_ = 2
    t_ = "'" & p_ & "[" & f_ & "]" & s_ & "'!R" & r_ & "C" & c_
    Range("B1") = ExecuteExcel4Macro(t_)
End Sub

[/vba]
Но всё это касалось вопроса переноса "поячейно".
А если нужно перенести всю таблицу, вместе с шапкой?
При чём должны соблюдаться следующие условия
- в ячейках таблицы читающего файла нет формул, только данные;
- в ячейках таблицы исходного файла могут быть формулы;
- первая и вторая колонка - текстовые данные;
- третья колонка - числовые данные, два знака после запятой;
- четвертая колонка - числовые данные, без знаков после запятой;
- в третьей и четвертой колонках, в ячейках без значений проставить нолики.
Прилагаются два файла, первый исходный файл типа xlsm, там есть исходная таблица.
Второй читающий файл. Там представлена таблица, которая должна получиться после прочтения.
С благодарностью ___________ Юрий.

К сообщению приложен файл: -1_.xlsm (14.6 Kb) · -2_.xlsm (14.7 Kb)

Сообщение отредактировал Юрий_Нд - Пятница, 08.12.2017, 20:04

Ответить

Wasilich

Дата: Суббота, 09.12.2017, 17:36 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Слишком мало информации для решения вашей задачи.
1. Исходник всегда один или несколько?
2. Координаты таблицы по столбцам в исходнике всегда постоянны?
3. Кол-во строк в таблице исходника меняется или нет?
4. Имя листа в исходнике постоянно?
5. В "читающем" файле таблица должна дописываться или заменяться на новую.
Ибо, вам предложат решение по примерам, а окажется, всё не так.

Ответить

Чтение/перенос таблицы из закрытого файла. (Макросы/Sub)

Страница 1 из 1
1