Set WrkBook = Worksht.Move выдает Error: expected Function

[rdva]

Необходимо сохранить каждый лист книги в отдельный .txt файл. Курсор останавливается на Lst.Move с формулировкой "Expected Function or Vriable". Почему?

Код: Выделить всё

Dim CatalogWbook as Workbook
Dim Lst as Worksheet

Set CatalogWbook = Workbooks("test.xls")

For Each Lst In CatalogWbook.Worksheets
     Set TmpBook = Lst.Move
     TmpBook.SaveAs Filename:="upload" & Replace(ResultList.CodeName, "Лист", "") & ".txt", FileFormat:=xlText
Next

[anvg]

rdva

Set TmpBook = Lst.Move

Move - процедура объекта, в данном контексте Worksheet, которая перемещает лист в книге, в которой находится лис,т после заданного или перед. Ничего не возвращает, и, тем более, не перемещает лист во вспомогательную книгу TmpBook

[rdva]

Цитата из хелпа Office 2003:

Move Method

expression.Move(Before, After)
expression Required. An expression that returns an object in the Applies To list.

Remarks
If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the moved sheet.

Раз можно create new workbook, значит можно и присвоить переменную этой new workbook , разве нет?

[anvg]

rdva

If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the moved sheet.

До сих не дочитал. Извиняюсь. Однако, это процедура, так что используйте

Код: Выделить всё

Set TmpBook = ActiveWorkbook


[rdva]

В моем случае Set TmpBook = ActiveWorkbook не подходит, т.к. рабочая книга не является ActiveWorkbook. Но все равно спасибо.

[anvg]

rdva
Чем же?

Microsoft Excel creates a new workbook that contains the moved sheet

- она (New workbook) и становится ActiveWorkbook