EXCEL. Нужна помощь. "Копирование листов из разных кни

[alex_ustas]

Открыты две книги Excel, Книга1 и Книга2. Необходимо копировать Лист1 Книги1 в Лист1 Книги2.
Не могу написать подобный код. Помогите ламеру.

[GSerg]

application.displayalerts=false
workbooks("книга2").worksheets("лист1").delete
workbooks("книга1").worksheets("лист1").copy workbooks("книга2").worksheets(1)
application.displayalerts=true

[alex_ustas]

В том и дело что создается НОВЫЙ лист с именем "Лист1(2)". А мне нужно в существующий вставить

[alex_ustas]

ОООЙ! Спасибо

[asharky]

Открыты две книги Excel, Книга1 и Книга2. Необходимо копировать Лист1 Книги1 в Лист1 Книги2.
Не могу написать подобный код. Помогите ламеру.

А если надо модуль перекинуть из одного файла в другой? Workbooks тут ведь не подойдёт?

[GSerg]

А тут подключать Visual basic for applications extensibility и разбираться с методами

[san*]

Открыты две книги Excel, Книга1 и Книга2. Необходимо копировать Лист1 Книги1 в Лист1 Книги2.
Не могу написать подобный код. Помогите ламеру.

А если надо модуль перекинуть из одного файла в другой? Workbooks тут ведь не подойдёт?

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

Option Explicit
Sub fff()
Dim s As String
Dim comp As VBComponent
Dim countLines As Integer
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
  countLines = .CountOfLines
  s = .Lines(1, countLines)
End With
Set comp = Workbooks("Книга2").VBProject.VBComponents.Add(vbext_ct_StdModule)
comp.Name = "Module1"
comp.CodeModule.DeleteLines 1, comp.CodeModule.CountOfLines
comp.CodeModule.InsertLines 1, s

End Sub



[asharky]

Спасибо!