Importing Multiple txt files using a macro: how?

[Puma]

I'm trying to write a generic open command in vba which opens all files with a particular file extension in a particular folder.

the best i can come up with so far is:

workbooks.opentext filename:= "C:Test" & "*" & ".txt" [etc.]

the only bit which doesn't work is the "*" bit. The macro runs but, only opens the "first" file in the folder, not all of them.

Anyone got any ideas?

Cheers,

Dave
This message was edited by Puma on 2002-04-22 03:51
This message was edited by Puma on 2002-04-22 03:51

 

[Legacy 98055]

Hi Dave,

Sub OpenTextFiles()
Dim Fs, i
Set Fs = Application.FileSearch

With Fs
.LookIn = "C:Test"
.Filename = "*.txt"
If .Execute Then
For i = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(i)
Next
End If
End With
End Sub

Cheers back at yu!

Tom

 

[Puma]

Cheers!!

worked a treat.



Dave