excel-vba - 工作表打开错误

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

    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”

你能在这里帮我吗？为什么这样。

最佳答案

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


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

不仅仅是直接运行脚本，

请使用调试器测试脚本。

您可以找到调试器here

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

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