Rootdir function is not working in 2010 VBA

[misterno]

Here is that I have


rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"

Please help

 

[misterno]

Sorry this is a better one. VBA stops at rootdir. But before when I was using excel 2007, it was working fine, Now we are using excel 2010.

-----------

rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"
Set ws = ActiveWorkbook.Sheets("AGT-TM3")
ws.ChartObjects(1).Chart.Export rootDir & "\AGT & TM3" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(2).Chart.Export rootDir & "\NBP1" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP2")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP2" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("Brent")
ws.ChartObjects(1).Chart.Export rootDir & "\Brent_year" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("GBP")
ws.ChartObjects(1).Chart.Export rootDir & "\GBP" & ".jpg", "JPG"

 

[Norie]

How does it 'stop'?

Do you get any error messages?

Have you declared rootdir?

 

[misterno]

How does it 'stop'?

Do you get any error messages?

Have you declared rootdir?

It stops at "rootdir ="

Yes I got an error message "compile error can't find project or library"

And yes I declared rootdir. (look at the first line of the code)

rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"



I think 2010 Excel VBA does not have rootdir function, just a guess

 

[Norie]

There is no rootdir function in VBA.

You aren't declaring rootdir anywhere in the code you posted.

Can you post the rest of the code?

 

[misterno]

What do you mean? I have been running this macro for years and rootdir is a part of it. I am posting again. Please look at the first line.

rootDir = "M:\dept\SLNGNA\Gas LPM\Structuring\Price Curves\Commercial Curves\GSGNA Commercial Curves Indication\Daily Graphs"
Set ws = ActiveWorkbook.Sheets("AGT-TM3")
ws.ChartObjects(1).Chart.Export rootDir & "\AGT & TM3" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP")
ws.ChartObjects(2).Chart.Export rootDir & "\NBP1" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("NBP2")
ws.ChartObjects(1).Chart.Export rootDir & "\NBP2" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("Brent")
ws.ChartObjects(1).Chart.Export rootDir & "\Brent_year" & ".jpg", "JPG"
Set ws = ActiveWorkbook.Sheets("GBP")
ws.ChartObjects(1).Chart.Export rootDir & "\GBP" & ".jpg", "JPG"

 

[RoryA]

The first line is not a declaration line, it's where you assign a value.

Dim rootDir as String

would be a declaration line - i.e. where you declare the variable.

 

[misterno]

The first line is not a declaration line, it's where you assign a value.

Dim rootDir as String

would be a declaration line - i.e. where you declare the variable.

Thanks

I guess that line got deleted or missing somehow

When I added "
Dim rootDir as String</PRE>it worked fine

Thanks