View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default Combine several macros

I didn't test this code but it is something like this

Sub test()


Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const ReadFileName = "K:\foldername.txt"
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0


Set fsread = CreateObject("Scripting.FileSystemObject")
Set fread = fsread.GetFile(ReadFileName)
Set tsread = fread.OpenAsTextStream(ForReading, TristateUseDefault)
DefaultFolder = tsread.ReadLine

MyFileName = "abc.xls"
Workbooks.Open FileName:=DefaultFolder & "\" & MyFileName

End Sub


"Vijay Kotian" wrote:

How can i pick up txt file and set path to variable through program ?

"Joel" wrote:

You can create a text file in the root directory of your k drive that have
the latest folder name. Then have the macros open the text file to get the
latest folder.

"Vijay Kotian" wrote:

I think problem is not explained correctly.

We save specific data related issues in one specific drive and for another
issues to another drive...... if i work on multiple issues then very often i
need to change drive
Presently my drive location is K:\JPP\FCH after change in issue the location
is changed to K:\VIJAY\GORE and next time again to k:\VIJAY\HITEN\ABC and so
on and so forth.

I have around 12 macros connected to one issue and every time due to change
in path i need to individuallly change all macros. I want some way out ...

Please help.

"Joel" wrote:

Use a mapped drive letter. You could map a drive Z to equal
\\networkdrive\JPP\FCH. Then if you change the location all you have to do
is remapped the drive.

"Vijay Kotian" wrote:

I have created several macros for one of my assignement, In which i have
specified a directory (e.g. K:\JPP\FCH). In all my macros i have used this
path for processing. If the path is changed, then I need to go to all macros
and individually change the path. Is there any alternative so that if i
change path at one place all macros get updated OR assign path address to a
variable and assign this variable to all macros once, so that in future only
at one place the path needs to be updated. How this can be done?