Hi,

I currently have a data query that imports data from multiple "TEXT" files
in a folder one file at a time when I select them.

I have to individually select the file, the query is run and imports the data.

Is it possible to have Excel open a folder, select all the files
(individually or all together) and import the data. the files are CSV.

I can then manipulate the data once it's in but the time consuming bit is
getting it in. I would use MS Access but don't have it....YET!

Thanks in advance.....

Daear Dean

The below code should do.......

Dim strFolder, strFile

strFolder = "C:\"
strFile = Dir(strFolder & "*.csv", vbNormal)
Do While strFile < ""
'Write your import code here
strFile = Dir
Loop


If this post helps click Yes
---------------
Jacob Skaria

Jacob,

Looks brill. Thanks
Dean

"Jacob Skaria" wrote:

Daear Dean

The below code should do.......

Dim strFolder, strFile

strFolder = "C:\"
strFile = Dir(strFolder & "*.csv", vbNormal)
Do While strFile < ""
'Write your import code here
strFile = Dir
Loop


If this post helps click Yes
---------------
Jacob Skaria

Hi Dean

See also
http://www.rondebruin.nl/csv.htm

Or
http://www.rondebruin.nl/txtcsv.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Dean" wrote in message ...
Hi,

I currently have a data query that imports data from multiple "TEXT" files
in a folder one file at a time when I select them.

I have to individually select the file, the query is run and imports the data.

Is it possible to have Excel open a folder, select all the files
(individually or all together) and import the data. the files are CSV.

I can then manipulate the data once it's in but the time consuming bit is
getting it in. I would use MS Access but don't have it....YET!

Thanks in advance.....