Здравствуйте! У меня возникли некоторые затруднения с работой макросов после вставки в книгу нового листа.
Существует книга, в которой перед закрытием происходит копирование диапазона данных с первого рабочего листа на специальный лист. Далее, я открываю другую книгу, и при открытии этот самый специальный лист, уже с данными, вставляется в эту книгу.
До того, пока я не вставила в код этот самый макрос с копированием листа, все остальные макросы работали правильно. Там есть макросы с выбором данных с других листов со справочниками, к примеру. Срабатывают они вроде бы так же, но сами данные не забирают.
Если удалить добавленный лист, все снова работает как надо. Макрос для копирования листа из другой книги я нашла на этом форуме, немного адаптировала, правда не до конца разобралась, видимо, что есть что там. Может кто-нибудь знает или сможет понять причину.
Заранее благодарна.
Вот макрос для вставки листа:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Sub Workbook_Open()
Dim wb As Workbook, wbFullName As String, wbName As String
wbFullName = "D:\Forms\Форма 7.xls"
wbName = Dir(wbFullName)
On Error Resume Next
Set wb = Workbooks(wbName)
On Error GoTo 0
If wb Is Nothing Then
If wbName = "" Then
MsgBox "The specified file doesn't exist in the specified directory!"
Exit Sub
Else
Set wb = Workbooks.Open(wbFullName)
End If
End If
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Посты").Delete
Application.DisplayAlerts = True
On Error GoTo 0
wb.Sheets("Посты").Copy after:=ThisWorkbook.Sheets(3)
wb.Close False
End Sub
