Здравствуйте!
Спецы, помогите, плиз!

Есть куча текстовых файлов с разделителями таб с именами 1.txt, 2.txt, 3.txt и так далее.

Их нужно открыть в Exel макросом один за другим.
Там конечно и другие операции будут в макросе, но с ними все понятно,
а вот цикл задать для открытия файлов не получается (

Спасибо!

Только вот ошибка выдается Object variable or With block variable not set (Error 91)

.LookIn = oShell.BrowseForFolder(0, "C:\Самотлор\Карточки организаций", 0)

Что делать?
я из-за этих ошибок и мучаюсь:((

Так открывается файл 1.txt

Sub 1
Workbooks.OpenText Filename:="C:\Самотлор\Карточки организаций\1.TXT", _
Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), _
Array(18, 1)), TrailingMinusNumbers:=True

End Sub

По-твоему чтобы все открывались :

Sub qqqqqqq()

Dim xlAp As New Excel.Application
Dim xlWb As Excel.Workbook
Dim rng As Range

Set oShell = CreateObject("Shell.Application")
With Application.FileSearch
.LookIn = oShell.BrowseForFolder(0, "C:\Самотлор\Карточки организаций\", 0)
.Filename = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Files = .FoundFiles(i)
'Workbooks.Open Filename:=Files
Set xlWb = xlAp.Workbooks.Open(Files, , True)
Set rng = xlWb.Worksheets(3).UsedRange
rng.Copy
Set NewSheet = ActiveWorkbook.Sheets.Add
Sheets(NewSheet.Name).Move After:=Sheets(Sheets.Count)
NewSheet.Paste Destination:=NewSheet.Range("A1")

Application.CutCopyMode = False
xlWb.Close
Next
Else
MsgBox ("Не найдены файлы")
End If
End With
Set xlWb = Nothing
Set rng = Nothing
Set NewSheet = Nothing
End Sub

Что неправильно?
Может я во что-то не врубаюсь?

Помоги, очень надо!

Ошибка

Subscript out of range (Error 9)
в ActiveWorkbook.Sheets("Temp").Range("A" & n) = Myfile

Уррррраааааааа!!!!!!!!!
Заррработало!!!!!!!!!

СПАСИБО тебе ОГРОМНЕЙШЕЕ!!!!!!!
И моя глубочайшая признательность! :)

Я знала что так просто, но никак в голову не пришло While, Loop!
все мурыжилась и мурыжилась.

Спасибо!