Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Path and Name
Hello to all!
Here is my problem: I need to know the name and path of a file that is selected through "Application.GetOpenFilename()." However whenever I try to run the code "Run-time error '9': Subscript out of range" message comes up. I thought that it could be the file path is too long(files on the network) however when I selected a local file and my hd the same message still came up. Here is the code: Private Sub CommandButton1_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Path1 = Workbooks(file).Path name = Workbooks(file).Name End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Path and Name
That is because the Workbooks collection pertains to OPEN workbooks. Your
code hasn't opened the filename retrieved by GetOpenFilename. Either open it and use your c ode, or parse it manually. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "SoSoExcelGuy" wrote in message ... Hello to all! Here is my problem: I need to know the name and path of a file that is selected through "Application.GetOpenFilename()." However whenever I try to run the code "Run-time error '9': Subscript out of range" message comes up. I thought that it could be the file path is too long(files on the network) however when I selected a local file and my hd the same message still came up. Here is the code: Private Sub CommandButton1_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Path1 = Workbooks(file).Path name = Workbooks(file).Name End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Path and Name
Continuing on from Bob's reply:
If you want the file to open then use: Private Sub CommandButton2_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Workbooks.Open file Path1 = ActiveWorkbook.Path name = ActiveWorkbook.name End Sub If you don't wnt the file open first, use the split function: ie file2=split(file,"\") and then look at all the elements of array file2. ChasAA "SoSoExcelGuy" wrote: Hello to all! Here is my problem: I need to know the name and path of a file that is selected through "Application.GetOpenFilename()." However whenever I try to run the code "Run-time error '9': Subscript out of range" message comes up. I thought that it could be the file path is too long(files on the network) however when I selected a local file and my hd the same message still came up. Here is the code: Private Sub CommandButton1_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Path1 = Workbooks(file).Path name = Workbooks(file).Name End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Path and Name
Thanks for the help guys!
"ChasAA" wrote: Continuing on from Bob's reply: If you want the file to open then use: Private Sub CommandButton2_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Workbooks.Open file Path1 = ActiveWorkbook.Path name = ActiveWorkbook.name End Sub If you don't wnt the file open first, use the split function: ie file2=split(file,"\") and then look at all the elements of array file2. ChasAA "SoSoExcelGuy" wrote: Hello to all! Here is my problem: I need to know the name and path of a file that is selected through "Application.GetOpenFilename()." However whenever I try to run the code "Run-time error '9': Subscript out of range" message comes up. I thought that it could be the file path is too long(files on the network) however when I selected a local file and my hd the same message still came up. Here is the code: Private Sub CommandButton1_Click() Dim file As String, Path1 As String, name As String file = Application.GetOpenFilename() Path1 = Workbooks(file).Path name = Workbooks(file).Name End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
File Path Too Long? Not Anymore! Check out Long Path Tool | Excel Discussion (Misc queries) | |||
Formula too long - new file path is shorter than old file path - Excel 2003 | Excel Worksheet Functions | |||
hyperlink navigation path path wrong in Excel 2003 | Excel Discussion (Misc queries) | |||
how to change absolute path to relative path | Excel Worksheet Functions | |||
Current path to Qualified Path | Excel Programming |