Помогите пожалуста написать макрос

[Kuchum-83]

Мне нужно написать макрос который бы брал слова из документа .txt и составлял бы таблицу в Excel. Препод показал как сделать на примере одного слова, но я всеравно не понимаю. Хелп плиз.

[alex77755]

ну можно так:

 
  Dim File As String, CF As String  'объявим пеpеменнyю для имени файла и его cодеpжимого
   Dim i

   File = "c:\test.txt"   'ycтановим имя файла и пyть
   
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)      'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл


Dim Word() As String  ' объявим пеpеменнyю для массива слов

Word = Split(CF, " ") 'разобьём файл на слова

For i = 0 To UBound(Word) '  в цикле занесём слова в ячейки

Лист1.Cells(1, i + 1) = Word(i)

Next i

[Kuchum-83]

Спасибо за ответ. Попробовал по вашему, но ничего не получилось.
Препод для примера написал макрос для одного слова:

Sub t()

Dim str As String

Open "C:\test.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, str
Loop

Close #1

Application.ActiveSheet.Cells(2, 5) = str

End Sub

Вот эта штука добавляет одно слово в Excel, а надо чтобы несколько.

[EducatedFool]

Попробуйте так:

Sub t()
    Dim str As String, i As Long
    Open "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ (2).txt" For Input As #1

    i = 2    ' начинаем вывод на лист со второй строки
    Do While Not EOF(1)
        Line Input #1, str    ' читаем строку
        Word = Split(str, " ")    'разобьём строку на слова
        For НомерСлова = LBound(Word) To UBound(Word)
            '  в цикле занесём слова в ячейки
            Cells(i, 5) = Word(НомерСлова)    ' сразу пишем слово в ячейку
            i = i + 1    ' увеличиваем номер строки на единицу
        Next НомерСлова
    Loop

    Close #1
End Sub

Хотя есть нормальные варианты с кодом длиной 2-3 строки.

[EducatedFool]

Это так, для сравнения:

Sub НормальныйВариант()
    Filename = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ (2).txt"
    txt = Split(CreateObject("scripting.filesystemobject").OpenTextFile(Filename, 1, True).ReadAll, " ")
    For НомерСлова = LBound(txt) To UBound(txt): Cells(НомерСлова + 2, 5) = txt(НомерСлова): Next НомерСлова
End Sub

[alex77755]

Всё зависит от формата test.txt
у меня пример для test.txt = "Мама мыла раму с мылом"

если
test.txt =
Мама
мыла
раму
с
мылом
то надо либо построчно
Line Input #1, str


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

в твоём случае будет так:

Dim str As String
dim i
i=2
Open "C:\test.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, str

Application.ActiveSheet.Cells(i, 5) = str
i = i + 1
Loop
Close #1

End Sub

Кто даёт оценку "нормальности"??
Sub НормальныйВариант()
Filename = "C:\Documents and Settings\Игорь\Рабочий стол\Текстовый документ (2).txt"
txt = Split(CreateObject("scripting.files ystemobject").OpenTextFile(Filename , 1, True).ReadAll, " ")
For НомерСлова = LBound(txt) To UBound(txt): Cells(НомерСлова + 2, 5) = txt(НомерСлова): Next НомерСлова
End Sub

Насколько я знаю, что бы использовать данный код, необходимо ещё подключить FSO. а это считается "тяжелой артилерией". А надо ли по воробьям из пушки?. Когда-то меня учили использовать минимальнодопустимые средства для достижения цели.
Но это лично моё мнение

[Kuchum-83]

Круто парни, спасибо. Все заработало. Если завтра преподу че не понравится я сразу к Вам.

[Kuchum-83]

Парни я вот хотел узнать че за странное слово Loop и для чего оно нужно.

[Tirendus]

loop - заключительное слово цикла while

например как next - завершает цикл for