Raven,
here what I use for Excel files. You need to edit for you text files then
"Open" and process each, or import in to Excel:
<Code>
Response = Excel.Application.GetOpenFilename("HK Spec Files (*.xls), *.xls",
, "Select the Spec Sheets to cost.", , True)
On Error Resume Next
'As we have set MultiSelect=True, this will error if 1 (or more) files were
selected.
If Response <> False Then
'Return to normal error handling
On Error GoTo 0
'As we have set MultiSelect=True, an array of filenames will be returned
even if only 1 file was selected, with LBound=1
FilesSelectedCount = UBound(Response)
'Loop through all selected files
For FileCurrent = 1 To FilesSelectedCount
'Open the required Costs WB
Set WBCosts = Workbooks.Open(Response(FileCurrent), , , ,)
...............Process
Loop
</Code>
> Hello,
>
[quoted text clipped - 6 lines]
> more sophisticated. Do you have any idea?? do you have any resources
> from the web?? Thx!!