在Excel工作簿上使用MS project vba，我想将工作表移至最左侧的选项卡

Question

这是我到目前为止所拥有的

Sub SetupExcel(ByRef xlApp As Excel.Application, ByRef xlbook As Excel.Workbook)

    Set xlApp = New Excel.Application
    Set xlbook = xlApp.Workbooks.Add
    Dim xlsheet As Excel.worksheet         
End Sub


sub Main_routine
    Call SetupExcel(xlApp, xlbook)
    call CreateTaskGraphics()
    ..... create a bunch of additional tabs in this workbook
    goto Exit_Here:


Exit_Here
xlApp.Worksheets("Task Graphics").Select
xlbook.Sheets("Task Graphics").Move Before:=Sheets(Worksheets.Count)`**  "<---- this is failing
..... closing statements
End Sub

因此，它由许多子项和一个主例程组成。 CreateTaskGraphics例程创建一个选项卡，并在其上放置文本和按钮。唯一失败的是倒数第二句在“ Exit_Here”部分中，我要将“任务图形”选项卡移动到工作簿中的最左侧。我使用了我能想到的每种组合，然后使用Sheets（“ Task Graphics”）...语句，例如xlBook，xlWorkbook，xlsheet，xlapp等。我找不到任何有效的组合。有人有什么想法吗？

Answer 1

[将工作表移至开始位置（例如最左侧）：

xlbook.Sheets("Task Graphics").Move Before:=xlbook.Sheets(1)

首先将其添加为最左侧的工作表：

Set xlsheet = xlbook.Worksheets.Add(Before:=xlbook.Worksheets(1))

[使用工作表或工作表集合时，请记住指定工作簿对象；否则，假定活动的工作簿可能不是预期的。