xldialog
 

Hello i created a xldialog so that the user can choose a file. Is there a
possibilty so that i get the path lies for example if he opens a file
Test.xls under D:\Test i need to get D:\Test\Test.xls .

Thanks alot in advance

xldialog
 

Hi Philipp,

Try:

Sub Test2()
Dim fName As Variant
fName = Application.GetOpenFilename
MsgBox fName
'Workbooks.Open fName

End Sub

If you want to open the selected file, uncomment the penultimate line above


---
Regards,
Norman




"Philipp Oberleitner" wrote in message
...
Hello i created a xldialog so that the user can choose a file. Is there a
possibilty so that i get the path lies for example if he opens a file
Test.xls under D:\Test i need to get D:\Test\Test.xls .

Thanks alot in advance

xldialog
 

Forgot code :

Sub Auto_Open()

Application.Dialogs(xlDialogOpen).Show "F:\Test\Actis Scan"

End Sub


In there i need to get the full path and then close the file again

Thanks

xldialog
 

what to do if i need to path to use it in another modul ?


"Philipp Oberleitner" schrieb im
Newsbeitrag ...
Forgot code :

Sub Auto_Open()

Application.Dialogs(xlDialogOpen).Show "F:\Test\Actis Scan"

End Sub


In there i need to get the full path and then close the file again

Thanks

xldialog
 

Use GetOpenFileName method instead, it returns a full file name.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Philipp Oberleitner" wrote in message
...
Hello i created a xldialog so that the user can choose a file. Is there a
possibilty so that i get the path lies for example if he opens a file
Test.xls under D:\Test i need to get D:\Test\Test.xls .

Thanks alot in advance

xldialog
 

Hi Philipp,

One way:

Sub Test2()
Dim fName As Variant
fName = Application.GetOpenFilename
Test3 fName

End Sub

Sub Test3(Filenme)
Workbooks.Open Filenme
End Sub


---
Regards,
Norman


"Philipp Oberleitner" wrote in message
...
what to do if i need to path to use it in another modul ?


"Philipp Oberleitner" schrieb im
Newsbeitrag ...
Forgot code :

Sub Auto_Open()

Application.Dialogs(xlDialogOpen).Show "F:\Test\Actis Scan"

End Sub


In there i need to get the full path and then close the file again

Thanks