Как переместить активный лист в конец листов в Lotusscript

Question

У меня есть файл Excel, который уже был создан. Я могу открыть файл Excel, тогда я просто добавлю новую таблицу и переместу эту таблицу до конца. Я нашел Excel VBA коды, но я не смог конвертировать в Lotusscript. : ((

Set xlApp = CreateObject("Excel.application")
xlApp.Visible = True   
xlApp.Workbooks.Open(fileN) 
sheetcount = xlApp.workbooks(1).Worksheets.Count
Set lastsheet = xlapp.workbooks(1).Worksheets(sheetcount)
Set xlsheet = xlapp.workbooks(1).Worksheets.Add(lastsheet)
xlsheet.Name = sheetName 
xlapp.workbooks(1).Worksheets(sheetName).Move(2)

Я думаю, что этот код поможет мне, но я не смог написать правильный синтаксис.

Sub MoverToEnd()
    ActiveSheet.Move _
    After: = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
End Sub

Answer 1

Это в конечном итоге решит вашу проблему.Измените шестую строку на:

Set xlsheet = xlapp.workbooks(1).Worksheets.Add(,lastsheet)

, которая вставит новый лист в конец и вернет вам объект листа, чтобы вы могли изменить имя.

Если вам нужно использовать .move(), вы должны либо захватить возвращаемое значение, либо использовать CALL, например:

call xlapp.workbooks(1).Worksheets.Move(,lastsheet)

Кстати, параметр Move не является целым числом, это объект рабочего листа.