Ошибка выполнения «9» при копировании рабочего листа в другую книгу
Я пытаюсь написать макрос, чтобы скопировать «Sheet1» из одной книги в другую, но я продолжаю получать ошибку времени выполнения «9»: «Подстрочный код» выходит за пределы диапазона.
Sub CopySheetToOtherWbk() Dim CopyFromBook As Workbook Dim CopyToWbk As Workbook Dim ShToCopy As Worksheet Set CopyFromBook = Workbooks("AllBugs.xlsx") Set ShToCopy = CopyFromBook.Worksheets("Sheet1") Set CopyToWbk = Workbooks("YourFriendlyNeighborhoodTemplateWorksheet.xlsx") ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count) End Sub Выделенная линия – «Set CopyFromBook = Рабочие книги (« AllBugs.xlsx »)». Не уверен, что я делаю неправильно здесь. Относительно новый для VBA. Любая помощь приветствуется.
- VBA - метод «Список» объекта «_CommandBarComboBox» не выполнен
- Ошибка VBA Runtime Error 91 Переменная объекта не задана - что я делаю неправильно?
- Ошибка -2147417848 (& H80010108): вызванный объект отключился от своих клиентов
- excel 2007 метод oleobjects объекта не выполнен
- Ошибка Excel 1004, выделить выделенные ячейки серым, когда да
- Строка подключения Excel
- Код перестает работать после ошибки
- Ошибка времени выполнения VBA Excel VBA на объекте Range
- Ошибка «1004» в excel VBA, но иногда отлично работает
- Чтение файла excel в Java - Ошибка
- Использование ошибки VBA Runtime 13 «несоответствие типа» при назначении измененного значения ячейки обратно в ячейку
- VBA Runtime Error ... но я не могу нажать на debug
- Ошибка 424 «Требуемый объект» при попытке вычислить количество используемых строк
Коллекция « Workbooks относится ко всем открытым книгам. Если книга не открыта, вам нужно будет сделать это в первую очередь.
Set CopyFromBook = Workbooks.Open("C:\Some Location\AllBugs.xlsx")