I am trying to have my VBA code open a workbook from a website however I
don't want to have to keep refering to the whole URL name every time I need
to call it or work with it in my code so I just want to assign a short name
variable to represent it and currently my code is giving me a subscript out
of range error here is my code

Dim WPSR As Workbook
This is the code that is not working
Set WPSR =
Workbooks("http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls")
Workbooks.Open WPSR


This is my original code to open the file
'Workbooks.Open
Filename:="http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls"
'Sheets("Data 1").Select
'ActiveWindow.SmallScroll Down:=3

Once you have opened the file (using the code that works) the name should be
available:

Dim remoteWB as string
remoteWB=ActiveWorkbook.Name
--
Gary''s Student - gsnu200778


"Dan Thompson" wrote:

I am trying to have my VBA code open a workbook from a website however I
don't want to have to keep refering to the whole URL name every time I need
to call it or work with it in my code so I just want to assign a short name
variable to represent it and currently my code is giving me a subscript out
of range error here is my code

Dim WPSR As Workbook
This is the code that is not working
Set WPSR =
Workbooks("http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls")
Workbooks.Open WPSR


This is my original code to open the file
'Workbooks.Open
Filename:="http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls"
'Sheets("Data 1").Select
'ActiveWindow.SmallScroll Down:=3

Ok That will probably work however I am looking for a way to do this without
using the ActiveWorkbook Function. For my purpose I would prefer code to
reference the remote workbook directly by its name because if I use your code
then whenever I have another workbook that is the active workbook the code
will be referencing the wrong workbook wont it ? Or dose VBA remember the
workbook name RemoteWB as the Active workbook that it first referenced at the
time you assigned RemotWB to it ?


"Gary''s Student" wrote:

Once you have opened the file (using the code that works) the name should be
available:

Dim remoteWB as string
remoteWB=ActiveWorkbook.Name
--
Gary''s Student - gsnu200778


"Dan Thompson" wrote:

I am trying to have my VBA code open a workbook from a website however I
don't want to have to keep refering to the whole URL name every time I need
to call it or work with it in my code so I just want to assign a short name
variable to represent it and currently my code is giving me a subscript out
of range error here is my code

Dim WPSR As Workbook
This is the code that is not working
Set WPSR =
Workbooks("http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls")
Workbooks.Open WPSR


This is my original code to open the file
'Workbooks.Open
Filename:="http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls"
'Sheets("Data 1").Select
'ActiveWindow.SmallScroll Down:=3

O.K.......the trick is that when you Open a workbook, it becomes the
ActiveWorkbook.


Might as well remember its name while you are there.
--
Gary''s Student - gsnu200778


"Dan Thompson" wrote:

Ok That will probably work however I am looking for a way to do this without
using the ActiveWorkbook Function. For my purpose I would prefer code to
reference the remote workbook directly by its name because if I use your code
then whenever I have another workbook that is the active workbook the code
will be referencing the wrong workbook wont it ? Or dose VBA remember the
workbook name RemoteWB as the Active workbook that it first referenced at the
time you assigned RemotWB to it ?


"Gary''s Student" wrote:

Once you have opened the file (using the code that works) the name should be
available:

Dim remoteWB as string
remoteWB=ActiveWorkbook.Name
--
Gary''s Student - gsnu200778


"Dan Thompson" wrote:

I am trying to have my VBA code open a workbook from a website however I
don't want to have to keep refering to the whole URL name every time I need
to call it or work with it in my code so I just want to assign a short name
variable to represent it and currently my code is giving me a subscript out
of range error here is my code

Dim WPSR As Workbook
This is the code that is not working
Set WPSR =
Workbooks("http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls")
Workbooks.Open WPSR


This is my original code to open the file
'Workbooks.Open
Filename:="http://tonto.eia.doe.gov/oog/ftparea/wogirs/xls/psw03.xls"
'Sheets("Data 1").Select
'ActiveWindow.SmallScroll Down:=3