Worksheet opening errors

Question

when i am trying to get create an sheet object,getting the error:

    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")

Tried this also:

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

Error Object doesn't support this property or method: "ActiveWorkbook"

Can you help me here? why so.

score 3 · Accepted Answer · edited May 23 '17 at 10:24

3

oWb itself is a workbook object You don't need the ActiveWorkbook part
you miss the set keyword in set ObSheet1=oWb.Worksheets("WingToWingMay25")

Also, I saw from one of your printscreen, you are using Notepad++ to develop,

Instead of just running the script directly,

please use a debugger to test the script.

You can find the debugger here

Using the debugger, you can run the source code line by line,

and use the watch window to see the properties of each object at runtime.

edited May 23 '17 at 10:24

Community

1
1

answered Dec 20 '12 at 07:30

Larry

2,764
2
25
36

Okay,Thanks I will use that! Thanks for your help! – arun_roy Dec 20 '12 at 07:31
Can I have some help on the post? http://stackoverflow.com/questions/13947199/merge-multiple-rows-in-a-single-row-depending-on-conditions-using-vbscript/13956382#comment19259368_13956382 – arun_roy Dec 20 '12 at 07:32
Can you help me in the above post? – arun_roy Dec 21 '12 at 07:47

score 0 · Answer 2 · answered Dec 20 '12 at 07:30

0

Instead of ObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25") , you should do this :

set ObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25")

answered Dec 20 '12 at 07:30

stamhaney

1,246
9
18

Worksheet opening errors

2 Answers2