загрузить лист из одной книги в другую

[johny_03]

Как прописать кнопку VBA чтобы Лист1 из Книги 1 загрузился на место Лист 1 Книги 2. И при каждом нажатии этой кнопки содержимое Листа удалялось и заменялось на новое.
Заранее спасибо!

[Алексей Трошкин]

Sub Кнопка1_Щелчок()
''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''
If Len(Dir$("C:\Книга2.xls")) = 0 Then ' проверка доступности рабочей книги
MsgBox "C:\Книга2.xls" & " недоступна "
Exit Sub
End If
''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' '
Лист1.Range("C3").Value = Time
Лист1.Range("A1:C5").Select ' диапазон или весь лист
Selection.Copy
''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' ''
Workbooks.Open("C:\Книга2.xls").Act ivate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save ' сохранить
ActiveWorkbook.Close ' закрыть
End Sub

[johny_03]

что-то не работает. Подскажите в чем ошибка. В книгу "сортировка.xls" в Лист1 нужно загрузить Лист1 из книги "1.xls". Я прописал кнопку "Загрузить", но пишет ошибку.

Огромное спасибо!

[Алексей Трошкин]

Sub Перенос()
If Len(Dir$("C:\1.xls")) = 0 Then ' проверка доступности рабочей книги
MsgBox "C:\1.xls" & " недоступна "
Exit Sub
Else
MsgBox "C:\1.xls" & " доступна "
End If
''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''' '
Workbooks.Open("C:\1.xls").Activate
ActiveSheet.Range("A1:E200").Select ' диапазон или весь лист
Selection.Copy
ThisWorkbook.Activate 'или Workbooks("сортитовка.xls").Activat e активируем книгу из которой исплняем макрос
ThisWorkbook.Worksheets("Лист1").Ac tivate ' активируем нужный лист
ActiveSheet.Range("A1").Select ' активируем ячейку с которой делаем вставку
ActiveSheet.Paste
Workbooks.Open("C:\1.xls").Close ' закрываем ненужный лист

End Sub
'попробуй это у меня прекрасно работает или всё дело в слове "сортитовка"

[Hugo121]

Я так переделал код Алексея Трошкина

Private Sub CommandButton4_Click()
If Len(Dir$("C:\1.xls")) = 0 Then ' проверка доступности рабочей книги
MsgBox "C:\1.xls" & " файл недоступен "
Exit Sub
End If

With Application
.DisplayAlerts = False
.ScreenUpdating = False

ThisWorkbook.Sheets(1).Delete
With Workbooks.Open("C:\1.xls")
.Sheets(1).Copy before:=ThisWorkbook.Sheets(1)
.Close 0
End With

.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

[Алексей Трошкин]

Пример от Hugo121 очень неплохой, но могут возникнуть проблемы если пользователь случайно удалит первый лист. В этом случае данные перенесутся на следущий в по порядку открытый в книге.

[Hugo121]

Ну у Вас тоже будут проблемы, если пользователь удалит ThisWorkbook.Worksheets("Лист1")
Можно и в моём коде привязываться к имени или кодовому имени, и ругаться, если такого не будет.
Можно просто вставлять лист перед первым, ничего не удаляя - пусть пользователь потом руками ревизию делает.

[johny_03]

спасибо, работает нормально