VPF::Копирование диапазона из закрытой книги (строчкой)

nikhardy

Дата 26.12.2011, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.12.2011

Репутация: нет
Всего: нет

Хочу скопировать много ячеек из книги А в текущую книгу.

path - путь
file - имя файла
Тепло свое произв. - имя листа.
E38 - P38 - диапазон для копирования

Код


[E38].Formula = "='" & path & "[" & file & "]" & "Тепло свое произв.'!E38"
[E38].AutoFill Destination:=[E38:P38], Type:=xlFillDefault
[E38:P38].Value = [E38:P38].Value

Есть ли способ делать это не в 3 команды, а в одну? А то у меня быдлокод.

В идеале, чтобы диапазон был не одномерный (строчка), а двумерный (E38:P40).
А мой код это не поддерживает.

LOPUH

Дата 27.12.2011, 05:05 (ссылка)

(нет голосов)

Загрузка ...

Растение

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4

В общем случае копирование из книги File1.xls в книгу File2.xls выполняется следующим образом

Код


'Range  может быть и типа "E38:P40"
Workbooks("File1.xls").Sheets("Sheet1").range("A1").Copy Workbooks("File2.xls").Sheets("Sheet2").range("A1")

Если копируемый диапазон находится на активном рабочем листе активной рабочей книги то можно указать только его

Код


Range("A1:B2").Copy Workbooks("File2.xls").Sheets("Sheet2").range("A1:B2")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »