Добавление листа из внешней книги с использованием VBA - PullRequest
Новая
       31

Добавление листа из внешней книги с использованием VBA

1 голос
/ 17 января 2012

Как использовать функцию Worksheet.Add для добавления листа из внешней книги?

Когда я пытаюсь добавить лист из внешней книги, появляется ошибка:

Метод 'Добавить' объекта 'Листы' потерпел неудачу в третьей строке`

Вот мой код: 

Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Sheet1, Count:=2,Type:="\\SharedDrive\Worksheet\Student.xltm")
Application.ScreenUpdating = True

1 Ответ

3 голосов
/ 18 января 2012

"Type: =" должен быть шаблоном, если вы вставляете из другого файла.

Синтаксис 

expression.Add(Before, After, Count, Type)

Где

Тип является необязательным вариантом. Определяет тип листа. Может быть одной из следующих констант XlSheetType: xlWorksheet, xlChart, xlExcel4MacroSheet или xlExcel4IntlMacroSheet. Если вы вставляете лист на основе существующего шаблона, укажите путь к шаблону. Значением по умолчанию является xlWorksheet.

Например 

Set ws = Worksheets.Add(After:=Sheet1, Count:=2, _
Type:="\\SharedDrive\Worksheet\Student.xlt")

или 

Set ws = Worksheets.Add(After:=Sheet1, Count:=2,_
Type:="\\SharedDrive\Worksheet\Student.xltm")

или 

Set ws = Worksheets.Add(After:=Sheet1, Count:=2,_
Type:="\\SharedDrive\Worksheet\Student.xltx")

xlt - шаблон Excel 2003

xltx - шаблон Excel 2007/2010

xltm - Шаблон Excel 2007/2010 с поддержкой макросов

...