Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
Hello All,
I'm using the following modified code that was posted by "Dan E." several weeks ago to write the path of a file out to a cell. Below is the code: FileName = Application.GetOpenFilename("Text Files _ (*.txt), *.txt") CellLocation = Len(FileName) + 1 - InStr(1, StrReverse _ (FileName), "\") FilePath = Mid(FileName, 1, CellLocation) Range("G46").Value = FilePath When I run this code using Excel 97, it gives me the following error: Sub or Funtion not defined for "StrReverse". Works fine on Excel 2K, what am I missing? Thanks in advance, Rohit |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
Hi Rohit
Excel 97 is older than Excel 2000, which is older than Excel XP. Things (here StrReverse) are invented and added to each new version. Great thing is that nothing is removed. For cross-version development you /must/ use the oldest version to develop on, or you're working blindfolded and will be rewarded by error messages like this. -- HTH. Best wishes Harald Excel MVP Followup to newsgroup only please. "Rohit Thomas" wrote in message ... Hello All, I'm using the following modified code that was posted by "Dan E." several weeks ago to write the path of a file out to a cell. Below is the code: FileName = Application.GetOpenFilename("Text Files _ (*.txt), *.txt") CellLocation = Len(FileName) + 1 - InStr(1, StrReverse _ (FileName), "\") FilePath = Mid(FileName, 1, CellLocation) Range("G46").Value = FilePath When I run this code using Excel 97, it gives me the following error: Sub or Funtion not defined for "StrReverse". Works fine on Excel 2K, what am I missing? Thanks in advance, Rohit |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
Hi Rohit,
The reason is the name of the function is InStrRev, not StrRev. Just change that and the code should be fine. Let me know if that doesn't work. Mark --- Mark Bigelow mjbigelow at hotmail dot com http://hm.imperialoiltx.com *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
Herald,
Can I use something in it's place to get the desired result that I'm looking for? Any suggestions on how I can use the GetOpenFileName dialog to write the path of a file to a cell? Rohit -----Original Message----- Hi Rohit Excel 97 is older than Excel 2000, which is older than Excel XP. Things (here StrReverse) are invented and added to each new version. Great thing is that nothing is removed. For cross-version development you /must/ use the oldest version to develop on, or you're working blindfolded and will be rewarded by error messages like this. -- HTH. Best wishes Harald Excel MVP Followup to newsgroup only please. "Rohit Thomas" wrote in message ... Hello All, I'm using the following modified code that was posted by "Dan E." several weeks ago to write the path of a file out to a cell. Below is the code: FileName = Application.GetOpenFilename("Text Files _ (*.txt), *.txt") CellLocation = Len(FileName) + 1 - InStr(1, StrReverse _ (FileName), "\") FilePath = Mid(FileName, 1, CellLocation) Range("G46").Value = FilePath When I run this code using Excel 97, it gives me the following error: Sub or Funtion not defined for "StrReverse". Works fine on Excel 2K, what am I missing? Thanks in advance, Rohit . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
Mark,
It's StrReverse and it reverses a string ie ABC - CBA InStrRev is a search tool for searching for one string within another from the end to the beginning, they are nothing alike. Dan E "Mark Bigelow" wrote in message ... Hi Rohit, The reason is the name of the function is InStrRev, not StrRev. Just change that and the code should be fine. Let me know if that doesn't work. Mark --- Mark Bigelow mjbigelow at hotmail dot com http://hm.imperialoiltx.com *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
File Location code
One way:
Sub test() Dim filename As String, L As Long filename = Application.GetOpenFilename("Text Files " & _ "(*.txt), *.txt") For L = Len(filename) To 1 Step -1 If Mid$(filename, L, 1) = "\" Then Exit For Next MsgBox Left$(filename, L - 1) End Sub If a folder is all you need selected, then see Jim Rech's "Browse for folder" at http://www.bmsltd.co.uk/MVP/Default.htm -- HTH. Best wishes Harald Excel MVP Followup to newsgroup only please. "Rohit Thomas" wrote in message ... Herald, Can I use something in it's place to get the desired result that I'm looking for? Any suggestions on how I can use the GetOpenFileName dialog to write the path of a file to a cell? Rohit -----Original Message----- Hi Rohit Excel 97 is older than Excel 2000, which is older than Excel XP. Things (here StrReverse) are invented and added to each new version. Great thing is that nothing is removed. For cross-version development you /must/ use the oldest version to develop on, or you're working blindfolded and will be rewarded by error messages like this. -- HTH. Best wishes Harald Excel MVP Followup to newsgroup only please. "Rohit Thomas" wrote in message ... Hello All, I'm using the following modified code that was posted by "Dan E." several weeks ago to write the path of a file out to a cell. Below is the code: FileName = Application.GetOpenFilename("Text Files _ (*.txt), *.txt") CellLocation = Len(FileName) + 1 - InStr(1, StrReverse _ (FileName), "\") FilePath = Mid(FileName, 1, CellLocation) Range("G46").Value = FilePath When I run this code using Excel 97, it gives me the following error: Sub or Funtion not defined for "StrReverse". Works fine on Excel 2K, what am I missing? Thanks in advance, Rohit . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code for a button to change cell location | Excel Discussion (Misc queries) | |||
file location | Excel Discussion (Misc queries) | |||
Get File location | Excel Discussion (Misc queries) | |||
Location of XLB file? | Excel Discussion (Misc queries) | |||
Specify file location | Excel Programming |