Dear Anil and Ashish
Thanks problem solved
Regards
Shrinivas
On Tue, Aug 20, 2013 at 9:32 AM, ashish koul koul.ash...@gmail.com wrote:
try this
Sub choose_file()
Dim flname As String
Dim fd As FileDialog, fl As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dear All
I am facing a small problem I like to have help for expert.
I am trying to write a macro which will browse the folder and open the
selected file one by one.
But whenever I am opening a folder from macro I could not see any file in
that folder.
If I am opening the same folder directly
Dear Shrinivas,
Pl see that u have filter the ext with the following one.
.Filters.Add Excel, *.xls; *.xlsx; *.xlsm; *.xlsb, 1
Warm Regards,
Gawli Anil
Thanks Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Mon, Aug 19, 2013 at 2:24 PM, Shrinivas
try this
Sub choose_file()
Dim flname As String
Dim fd As FileDialog, fl As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
.Title = Please choose the file
.Filters.Add Excel Files, *.xls*, 1
.Show