Select multiple files to insert in Excel

[evnoort]

Hi all, I have witten code to insert lines of all txt files in a folder into a excel file.
I used SHBrowseForFolder to select a folder. used code from here: http://j-walk.com/ss/excel/tips/tip29.htm

But I now need to select only a few files from a folder. So a (visual) multiple select.
Any of you got an idea how I can do this. The Folderview control does not seem to do the job.
Do I need to build a user form to do this or is there a better (easyer) way
regards.

 

[AlphaFrog]

try something like this...

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Open_Multi_Files()<br><br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br><br>    <SPAN style="color:#007F00">' Prompt user to select a files</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Application.FileDialog(msoFileDialogOpen)<br>        .InitialFileName = "C:\Temp\"               <SPAN style="color:#007F00">' Default path</SPAN><br>        .FilterIndex = 3<br>        .Title = "Please Select File(s): Ctrl+Click to select multiple files"<br>        .ButtonName = "Open"<br>        .AllowMultiSelect = <SPAN style="color:#00007F">True</SPAN><br>        .Show<br>        <SPAN style="color:#00007F">If</SPAN> .SelectedItems.Count = 0 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>   <SPAN style="color:#007F00">' User clicked cancel</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> .SelectedItems.Count<br>            <SPAN style="color:#007F00">'Open each selected file</SPAN><br>            Workbooks.Open Filename:=.SelectedItems(i)<br>        <SPAN style="color:#00007F">Next</SPAN> i<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[evnoort]

Thanks I try it immediately

 

[evnoort]

Tried it and this will work for me! Thanks again!!!