Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|