Remember file name selected
 

Hello:

I have the following code to get a file name:

Sub GetFileName()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the PDF orders"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
myfilename = .SelectedItems(1)
End If
End With
End Sub

I want use MyFileName in another module, but the filename does not save the
selected file? how can I make MyfileName "remember" and save the file the
user selected?

Thanks.

Remember file name selected
 

Save it to an unused cell out of the way on a worksheet.

--
Regards,

OssieMac


"art" wrote:

Hello:

I have the following code to get a file name:

Sub GetFileName()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the PDF orders"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
myfilename = .SelectedItems(1)
End If
End With
End Sub

I want use MyFileName in another module, but the filename does not save the
selected file? how can I make MyfileName "remember" and save the file the
user selected?

Thanks.

Remember file name selected
 

Assuming I understand your code and your intent correctly, an alternative to
storing it in a worksheet would be to declare the variable as Public. That
way it would be static (i.e. it would stay "alive" outside that Sub) and
would be availabe to other Subs in the project.
--
"Time is just the thing that keeps everything from happening all at once"


"art" wrote:

Hello:

I have the following code to get a file name:

Sub GetFileName()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the PDF orders"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
myfilename = .SelectedItems(1)
End If
End With
End Sub

I want use MyFileName in another module, but the filename does not save the
selected file? how can I make MyfileName "remember" and save the file the
user selected?

Thanks.

Remember file name selected
 

Or start your routine with
Sub GetFileName(myFileName)
instead of
Sub GetFileName()

and then:-

Sub CallingRoutine
Blah - blah - blah
GetFileName(myFileName)
Open myFileName for Input as #1
Blah - blah - blah
End Sub
--
Regards

Robin


"Neptune Dinosaur" wrote:

Assuming I understand your code and your intent correctly, an alternative to
storing it in a worksheet would be to declare the variable as Public. That
way it would be static (i.e. it would stay "alive" outside that Sub) and
would be availabe to other Subs in the project.
--
"Time is just the thing that keeps everything from happening all at once"


"art" wrote:

Hello:

I have the following code to get a file name:

Sub GetFileName()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a location for the PDF orders"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Canceled"
Else
myfilename = .SelectedItems(1)
End If
End With
End Sub

I want use MyFileName in another module, but the filename does not save the
selected file? how can I make MyfileName "remember" and save the file the
user selected?

Thanks.