Hi,
After a week of trying, I found the following (fso) code to be useful:
Application.FileDialog(msoFileDialogOpen).Show
sFullName =
Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
However, it does not give me access to the directory folder/path and
filename. In the Macro help, I managed to locate the following
FileDialog object that seem to provide what I want but I don't know
how to use them in a macro:
msoFileDialogFilePicker
msoFileDialogFolderPicker
Thanks in advance for your assistance.
-Greg
On Dec 9, 8:24 am, Paul Schreiner <schreiner_p...@att.net> wrote:
> Check out the documentation on the FileSystem object.
> once you create a FileSystemObject
> (set fso = ...)
> then you can use commands like:
> set F = fso.getfile(filename)
>
> then F.Name gives you the name by itself.
> F.Path gives you the full name with path.
> (or is it "F.FullName"?) I'd have to look at my code, but I've got scripts
> running at the moment.
>
> let me know if you need more specific assistance and I'll see what I can do.
>
> Paul
>
>
>
>
>
>
>
> ----- Original Message ----
> > From: Greg <gamoun...@gmail.com>
> > To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
> > Sent: Wed, December 8, 2010 2:42:07 PM
> > Subject: $$Excel-Macros$$ Need to separate/parse directory path and filename
> >using Excel 2007 ...
>
> > Hi,
>
> > I needed to override the Data Import Wizard so I have created a macro
> > which functions perfectly. However, the filename is hard coded in the
> > macro and I need to run the macro on different files and select each
> > file individually. After searching through the Mr Excel Forum
> > archives, I learned about the following instructions which prompts me
> > for the filename:
>
> > filename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
> > If filename <> False Then
> > MsgBox "Open " & filename
> > End If
>
> >http://www.mrexcel.com/archive/VBA/7026.html
>
> > This is great! However, I need to substitute the captured filename in
> > two places. Once containing the full path and filename and again with
> > just the filename.Thanks in advance for any assistance you can
> > provide.
>
> > Kind regards,
> > Greg
>
> > --
> >--------------------------------------------------------------------------
> >--------
> >-
> > Some important links for excel users:
> > 1. Follow us on TWITTER for tips tricks and links :
> >http://twitter.com/exceldailytip
> > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > To post to this group, send email to excel-macros@googlegroups.com
>
> > <><><><><><><><><><><><><><><><><><><><><><>
> > Like our page on facebook , Just follow below link
> >http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&;...
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
