excel - 工作表打开错误

Question

当我尝试创建工作表对象时，出现错误:

    Dim oFS   : Set oFS  = CreateObject("Scripting.FileSystemObject")
    Dim oXls  : Set oXls = CreateObject("Excel.Application")
    Dim oWb   : Set oWb  = oXls.Workbooks.Open(oFs.GetAbsolutePathName("Wing_To_Wing_Report.xlsx"))
    Dim aData ': aData    = oWb.Worksheets(1).Range("$A2:$C10")
    Dim dicP  : Set dicP = CreateObject("Scripting.Dictionary")
    Dim Range,ObSheet1,ObSheet2
    Dim TotalRows,LastCol


    ObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25")
    ObSheet2=oWb.ActiveWorkbook.Worksheets("ParentChildLink")

也尝试过这个:

   ObSheet1=oWb.Worksheets("WingToWingMay25")
   ObSheet2=oWb.Worksheets("ParentChildLink")

错误对象不支持此属性或方法:“ActiveWorkbook”

你能帮我一下吗？为什么会这样。

Answer 1

1. oWb 本身是一个工作簿对象，您不需要 ActiveWorkbook部分
2. 您错过了 set 中的 set 关键字ObSheet1=oWb.Worksheets("WingToWingMay25")

另外，我从你的一张打印屏幕上看到，你正在使用 Notepad++ 进行开发，

而不是直接运行脚本，

请使用调试器来测试脚本。

您可以找到调试器here

使用调试器，可以逐行运行源代码，

并使用监 window 口在运行时查看每个对象的属性。