ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Variable Filename/Worksheet/Workbook (https://www.excelbanter.com/excel-programming/272110-variable-filename-worksheet-workbook.html)

bw

Variable Filename/Worksheet/Workbook
 
I'm using the following code to get the filename I want to open:

my2ndFileName = Application.GetOpenFilename("All Files (*.*), *.*")
where the actual filename is "C:\Downloads\LAS6014"

and I use the following to open the file:
Workbooks.OpenText Filename:=my2ndFileName,...

and because I don't now how to use the variable filename in the following, I hard code it
as follows:
Windows("LAS6014").Activate

So the question is: how do I activate the worksheet (or is it a workbook) for the variable
filename?

Thanks,
Bernie



Bill Lunney

Variable Filename/Worksheet/Workbook
 
Try

my2ndfilename = Application.GetOpenFilename("All Files (*.*), *.*")
If my2ndfilename < "" Then
Workbooks.Open my2ndfilename
Workbooks(Workbooks.Count).Activate
End If

The newly loaded workbook is always going to be last in the list so by using
workbooks.count we're always going to activate the newly opened book.

You are refering to workbooks here not worksheets. A workbook is a
collection of worksheets (and other things). Trouble with getting the
filename is as you've found it is a fully qualified name with a path and
filename extension etc. It's just the filename iteself (without extension)
which the name given to the workbook.

Remember to also check to see if the user didn't hit cancel. That's what
the < "" check is for.


--

Regards,


Bill Lunney
www.billlunney.com

"bw" wrote in message
...
I'm using the following code to get the filename I want to open:

my2ndFileName = Application.GetOpenFilename("All Files (*.*), *.*")
where the actual filename is "C:\Downloads\LAS6014"

and I use the following to open the file:
Workbooks.OpenText Filename:=my2ndFileName,...

and because I don't now how to use the variable filename in the following,

I hard code it
as follows:
Windows("LAS6014").Activate

So the question is: how do I activate the worksheet (or is it a workbook)

for the variable
filename?

Thanks,
Bernie





bw

Variable Filename/Worksheet/Workbook
 
Thanks Bill,

This works fine now. I appreciate the explanation regarding workbooks/worksheets.
And while I had come across the "Count" portion previously, I hadn't realized that it was a
value that was the "Last" workbook, and that Count-1 was the previous. A little slow I
guess, but I'm getting there.

Again, thanks much...
Bernie


On Sat, 19 Jul 2003 18:59:10 +0100, "Bill Lunney"
wrote:
Try

my2ndfilename = Application.GetOpenFilename("All Files (*.*), *.*")
If my2ndfilename < "" Then
Workbooks.Open my2ndfilename
Workbooks(Workbooks.Count).Activate
End If

The newly loaded workbook is always going to be last in the list so by using
workbooks.count we're always going to activate the newly opened book.

You are refering to workbooks here not worksheets. A workbook is a
collection of worksheets (and other things). Trouble with getting the
filename is as you've found it is a fully qualified name with a path and
filename extension etc. It's just the filename iteself (without extension)
which the name given to the workbook.

Remember to also check to see if the user didn't hit cancel. That's what
the < "" check is for.


--

Regards,


Bill Lunney
www.billlunney.com

"bw" wrote in message
...
I'm using the following code to get the filename I want to open:

my2ndFileName = Application.GetOpenFilename("All Files (*.*), *.*")
where the actual filename is "C:\Downloads\LAS6014"

and I use the following to open the file:
Workbooks.OpenText Filename:=my2ndFileName,...

and because I don't now how to use the variable filename in the following,

I hard code it
as follows:
Windows("LAS6014").Activate

So the question is: how do I activate the worksheet (or is it a workbook)

for the variable
filename?

Thanks,
Bernie









All times are GMT +1. The time now is 10:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com