如何将 activesheet 移动到 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)

这将在末尾插入新的 sheet 并且 return 您是一个 Worksheet 对象，因此您可以更改名称。

如果您需要使用 .move()，您必须捕获一个 return 值或使用一个 CALL，例如：

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

顺便说一句，Move的参数不是一个整数，它是一个worksheet对象。

如何将 activesheet 移动到 Lotusscript 中的工作表末尾

How to move activesheet to the end of sheets in Lotusscript

excel

vba

lotusscript