Spasiteeeeeeee !!!!

267

19 сентября 2003 года

1.2K / / 17.10.2002

Цитата:

Originally posted by MisterFix
Kak v VBA is Neaktivnoy tablici skopirovat nujniy Sheet v aktivniy

U Menya est proga v odnoy knige
Ya xochu sdelat sluduyushiye:
Otkrit svoyu knigu excel i najimaya knopku,
sheet naxodyashesya v drugoy knige skopirovat v svoyu aktivnuyu knigu.
Vozmojno li eto

Zaranie Blagodaren

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

P.S. И пиши, пожалуйста, по-русски, а не транслитом. Тем более, что у тебя город Москва написан в "откуда".

1.9K

19 сентября 2003 года

33 / / 11.09.2003

Da mne imenno eto nujno !!!
pojaluysta napishi kod

Na moey klave net russkix bukv
che delat?
ili nado kleyit
ili novuyu kupit :)

258

19 сентября 2003 года

SergeySV

1.5K / / 19.03.2003

А на моей клаве и русские и англ. буквы уже постирались и ничего, работаем же... :)

Тебе надо весь лист скопировать или только какую-то часть и соотв. куда скопировать: в другой лист или этот как новый лист в книгу добавить.

267

19 сентября 2003 года

1.2K / / 17.10.2002

Ну на.

Код:

Sub Test()

    Workbooks.Open ("C:\test.xls")

    Workbooks("test.xls").Worksheets("Sheet1").Copy Before:=ThisWorkbook.Worksheets(1)

    Workbooks("test.xls").Close SaveChanges:=False

End Sub

258

19 сентября 2003 года

SergeySV

1.5K / / 19.03.2003

А может он хочет с диалогом выбора файла...

Аппетиты растут во время еды :-)

267

19 сентября 2003 года

1.2K / / 17.10.2002

Цитата:

Originally posted by SergeySV
А может он хочет с диалогом выбора файла...

Аппетиты растут во время еды :-)

Когда объяснит толком, что надо, тогда и получит. :devil:

1.9K

22 сентября 2003 года

33 / / 11.09.2003

Iz odnoy knigi v druguyu knigu celiy list bez izmeneniy
na primer
iz knigi Book1 tablicu Table1 skopirovat v knigu Book2 pod imenim Table2.

nadeyus ya yasno vse sobyasnil.

1.9K

22 сентября 2003 года

33 / / 11.09.2003

Цитата:

Originally posted by Cutty Sark
Ну на.

Код:

Sub Test()

Workbooks.Open ("C:\test.xls")
Workbooks("test.xls").Worksheets("Sheet1").Copy Before:=ThisWorkbook.Worksheets(1)
Workbooks("test.xls").Close SaveChanges:=False

End Sub

etot kod ne pashit
oshibka: out of range

267

22 сентября 2003 года

1.2K / / 17.10.2002

Цитата:

Originally posted by MisterFix

etot kod ne pashit
oshibka: out of range

Ну подразумевалось, что ты догадаешься сам изменить названия файлов и листов на свои. Если еще и перименовывать лист после копирования надо, тогда так:

Код:

Sub Test()

    Workbooks.Open ("C:\Book1.xls")

    Workbooks("Book1.xls").Worksheets("Table1").Copy Before:=ThisWorkbook.Worksheets(1)

    ThisWorkbook.Worksheets(1).Name = "Table2"

    Workbooks("Book1.xls").Close SaveChanges:=False

End Sub

267

22 сентября 2003 года

1.2K / / 17.10.2002

Цитата:

Originally posted by Cutty Sark

Ну подразумевалось, что ты догадаешься сам изменить названия файлов и листов на свои. Если еще и перименовывать лист после копирования надо, тогда так:

Код:

Sub Test()

Workbooks.Open ("C:\Book1.xls")
Workbooks("Book1.xls").Worksheets("Table1").Copy Before:=ThisWorkbook.Worksheets(1)
ThisWorkbook.Worksheets(1).Name = "Table2"
Workbooks("Book1.xls").Close SaveChanges:=False

End Sub

Да, и еще одно. Этот код должен находиться в Book2.

1.9K

22 сентября 2003 года

33 / / 11.09.2003

vsem spasibio za pomosh