Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / простой вопрос... / 4 сообщений из 4, страница 1 из 1
16.04.2007, 10:53:39
    #34462694
maccen
maccen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простой вопрос...
Суть, открывается файлик svodnaya.xls, запускается макрос который открывает файлик ira.xls и выдерает с него нужные данные, потом его закрывает, и должен уже открыть файлик olya.xls и так же выдрать с него данные, вот код, только он не эффективный это же 256 строчек как минимум только по 1 файлу, а их 10 будет, подскажите по проще решение если вас не затруднит!
есть код:
Public Sub Kyst0() FilePath = Workbooks("svodnaya.xls").Path + "\" Workbooks.Open (FilePath + "01/ira.xls")'Êóñò 1'01'1 Workbooks("svodnaya.xls").Worksheets("Лист1").Cells(5 5).Value = Workbooks("ira.xls").Worksheets("Лист1").Cells(2 3).Value Workbooks("ira.xls").Close (False)End SubPrivate Sub CommandButton1_Click() Call Kyst0 End Sub
Все работает, только нужно строчек до 256, можно продублировать текст вида
Workbooks("svodnaya.xls").Worksheets("Лист1").Cells(5, 5).Value = Workbooks("ira.xls").Worksheets("Лист1").Cells(2, 3).Value
....................
Workbooks("svodnaya.xls").Worksheets("Лист1").Cells(5, 256).Value = Workbooks("ira.xls").Worksheets("Лист1").Cells(2, 256).Value

как все это сделать циклом? зарание спасибо за ответ!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2007, 11:14:39
    #34462790
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простой вопрос...
если диапазон сплошной, то просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub test1()
Dim ShSource As Worksheet
Dim ShTarget As Worksheet
    
    Set ShSource = Workbooks("ira.xls").Worksheets("Лист1")
    Set ShTarget = Workbooks("svodnaya.xls").Worksheets("Лист1")
    
    ShTarget.Range(ShTarget.Cells( 5 ,  5 ), ShTarget.Cells( 5 ,  256 )).Value _
        = ShSource.Range(ShSource.Cells( 2 ,  3 ), ShSource.Cells( 2 ,  256 )).Value

    Set ShSource = Nothing
    Set ShTarget = Nothing

End Sub
или
Код: plaintext
1.
2.
3.
4.
5.
Sub test2()
    
    Workbooks("svodnaya.xls").Worksheets("Лист1").Range("E5:E256").Value _
        = Workbooks("ira.xls").Worksheets("Лист1").Range("B3:B254").Value

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2007, 11:14:57
    #34462792
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простой вопрос...
Используй не Cells, а Range

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub Kyst0()
FilePath = ActiveWorkbook.Path + "\"
Workbooks.Open (FilePath + "ira.xls")
Workbooks("svodnaya.xls").Worksheets("Лист1").Range("A1:AC10").Value = Workbooks("ira.xls").Worksheets("Лист1").Range("A1:AC10").Value
Workbooks("ira.xls").Close (False)
End Sub
 
Private Sub CommandButton1_Click()
Call Kyst0
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2007, 12:25:39
    #34472319
maccen
maccen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простой вопрос...
спасибо за ответы, все так просто оказалось, какая экономия времени!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / простой вопрос... / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 327ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183109]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 208ms
total:  327ms
x
x
Закрыть


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