Доброго времени суток.
Заткнулся на казалось-бы элементарной вещи. В открытой книге нужно открыть новую книгу, скопировать из нее в первую книгу лист "Export"и закрыть вторую книгу. Вот кусок кода:
Код |
---|
Sub Макрос1()
Dim xlBook, MyXlBook As Excel.Workbook
Dim AV As Excel.Worksheet
Set MyXlBook = Application.ActiveWorkbook
Filename = Application.GetOpenFilename '
Set xlAPP = CreateObject("Excel.Application")
Set xlBook = xlAPP.Workbooks.Open(Filename)
xlBook.Sheets("export").Copy After:=MyXlBook.Sheets(MyXlBook.Sheets.Count)
xlBook.Close True
Set xlBook = Nothing
Set xlAPP = Nothing
End Sub |
Выдает ошибку "Метод Copy из класса WorkSheet завершен неверно." В архивах на подобную тему прямого ответа не нашел, а код для копирования вроде бы такой-же как у меня. Подскажите, пожалуйста, что не так с моим кодом.
Заранее спасибо, и всех с наступающим праздником.