Сделать свод из нескольких файлов

[Monk]

Здравствуйте! Подскажите пожалуйста пример следующей ситуации: Имеется 3 файла (допустим) trm0, trm1 и trm2, как при помощи метода Table объекта Range вставить результат в файл trm0 ячейка А1 (допустим) из trm1 ячейка А1 + файл trm2 ячейка А1? Заранее спасибо.

[Денис]

Создаешь все три файла. открываешь их все. в одном из них (видимо в том, в котором нужно вставить результат) включаешь запись макроса. Делаешь все нужные тебе действия. останавливаешь запись макроса. Открываешь редактор VBA. Смотришь на код.
...
Я так сам VBA учил.

[tyomitch]

Денис, у автора неслабое ограничение: "при помощи метода Table объекта Range"

[Monk]

Создаешь все три файла. открываешь их все. в одном из них (видимо в том, в котором нужно вставить результат) включаешь запись макроса. Делаешь все нужные тебе действия. останавливаешь запись макроса. Открываешь редактор VBA. Смотришь на код.
...
Я так сам VBA учил.

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

[Денис]

Денис, у автора неслабое ограничение: "при помощи метода Table объекта Range"

Да, я заметил, но я заметил, что когда пользователи ставят такие неслабые ограничения, то это как правило, результат неправильных логических заключений (по себе помню)

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

Эх, товарищ! Так кто ж вас заставляет писать в ячейки формулы? Пишите в ячейки готовый результат. В чем проблема-то?
Примерчик:

Код: Выделить всё

Dim t1 As Long
Dim t2 As Long
   
    Range("A100").Select 'Выбираем левую ячейку
   
    'Создаем в этой ячейке формулу и соханяем значение в нашей переменной
    ActiveCell.FormulaR1C1 = "=[f2.xls]Лист3!R1C1"
    t1 = ActiveCell.Value2
   
    'Создаем в этой ячейке другую формулу и соханяем значение в нашей переменной
    ActiveCell.FormulaR1C1 = "=[f3.xls]Лист3!R1C1"
    t2 = ActiveCell.Value2
   
    'Переходим в ячейку назначения
    Range("A1").Select
    'Суммируем значения
    ActiveCell.Value2 = t1 + t2

[Monk]

Спастбо Денис! Просто я не связывался с VBA никогда, на работе задали задачку. Конечно не совсем то что хотелось, но фундамент так сказать есть, если ячеек 30 то для каждой по 2 переменные создавать, слишком громоздко.