I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

Have you tried ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

" wrote:

I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

The code below will get the users default path by looking at the environment
variable

Sub test()

Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
EnvString = Environ(Indx) ' Get environment
' variable.
If Left(EnvString, 12) = "USERPROFILE=" Then
DefaultPath = Mid(EnvString, InStr(EnvString, "=") + 1)
Exit Do
Else
Indx = Indx + 1 ' Not PATH entry,
End If ' so increment.
Loop Until EnvString = ""
If Len(DefaultPath) 0 Then
MsgBox "User Default Path = " & DefaultPath
Else
MsgBox "No Default Path Exists"
End If
End Sub


" wrote:

I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

On Sep 24, 7:28 am, wrote:
I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

I've tried the following coding as I want to save the file under a new
name (tempfile) , but it keeps giving me an error

ActiveWorkbook.SaveAs Filename:= ActiveWorkbook.Path & "\" &
tempfile.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Whay doesn't this work?

the filename need to be in double quotes

ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & "tempfile.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

" wrote:

On Sep 24, 7:28 am, wrote:
I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

I've tried the following coding as I want to save the file under a new
name (tempfile) , but it keeps giving me an error

ActiveWorkbook.SaveAs Filename:= ActiveWorkbook.Path & "\" &
tempfile.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Whay doesn't this work?

On Sep 24, 8:48 am, Joel wrote:
the filename need to be in double quotes

ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & "tempfile.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

" wrote:
On Sep 24, 7:28 am, wrote:
I am writing a macro utility that will be used on several different
PC's. One step in the macro saves a file using the path of the
currently opened file (where the macro resides). This step works
for my PC since the macro identifies my specific path. I need for
this macro to work when the path of the currently open file is
unknown. How would I do this?

Thanks.

I've tried the following coding as I want to save the file under a new
name (tempfile) , but it keeps giving me an error

ActiveWorkbook.SaveAs Filename:= ActiveWorkbook.Path & "\" &
tempfile.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Whay doesn't this work?

Perfect! Many thanks.