Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Копирование значений из других книг / 5 сообщений из 5, страница 1 из 1
15.03.2011, 07:47
    #37164901
plus_stick
plus_stick
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Копирование значений из других книг
Здравствуйте!
Копирую значения из одной книги в другую:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim TempWb As Workbook
Dim BazaSht As Worksheet
Dim iPath As String
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Set BazaSht = ActiveSheet
iPath = ActiveWorkbook.Path & "\"

Set TempWb = Workbooks.Open(Filename:="itg10.xls", UpdateLinks:=False, ReadOnly:=True)
TempWb.Sheets("Sheet1").Range("A1:C9").Copy
BazaSht.Range("G12").PasteSpecial xlValues

TempWb.Close saveChanges:=False
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
Но получается только из одного листа и на один активный лист.
Как сделать так, чтобы копировал из разных листов в разные листы соответственно?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2011, 08:24
    #37164926
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Копирование значений из других книг
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim TempWb As Workbook
Dim BazaSht As Worksheet
Dim iPath As String
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Set BazaSht = ActiveSheet   ' тут вы устанавливаете в переменную ссылку на активный лист, если вам нужен другой лист текущей книги
' нужно использовать конструкцию  Set BazaSht = ActiveWorkbook.Sheets("/ИмяНужногоЛиста/")
iPath = ActiveWorkbook.Path & "\"

Set TempWb = Workbooks.Open(Filename:="itg10.xls", UpdateLinks:=False, ReadOnly:=True)
TempWb.Sheets("Sheet1").Range("A1:C9").Copy  ' а тут явно указан лист "Sheet1" открываемой книги itg10.xls, 
'нужен другой?... Укажите имя другого
BazaSht.Range("G12").PasteSpecial xlValues

TempWb.Close saveChanges:=False
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2011, 08:33
    #37164932
plus_stick
plus_stick
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Копирование значений из других книг
Shamanus,

Спасибо, что ответили
Мне нужно из нескольких листов другой книги в несколько листов текущей книги
Листы можно указывать через запятые?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2011, 11:49
    #37165277
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Копирование значений из других книг
plus_stick,

нет, нужно делать или явное перечисление каждого листа или в цикле
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2011, 12:02
    #37165330
plus_stick
plus_stick
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Копирование значений из других книг
Shamanus,

Спасибо, сделал явное перечисление.
Все работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel. Копирование значений из других книг / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177084]:
 0ms
get settings:
 7ms
get forum list:
 21ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 149ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 206ms
total:  452ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]