Перенос больших объемов информации в Excel

[MD]

Добрый день!
Не могли бы Вы подсказать как поставить автоматическое заполнение соседних столбцов при заполнении первого? (или перемещение на следующие страницы книги)
То есть имеется список в блокноте большой длинны несколько миллионов строк. Сам же фаил весит 10 мб Обычный ctrl+c ctrl+v не помогает т. к. количество строк ограничено.
Суть вопроса как уместить длинный список в одном Excel файле.

С уважением MD

[alex77755]

Макросом

[MD]

Существует ли готовый макрос для этой ситуации? Или необходимо его создать вручную?

[Serge 007]

...список в блокноте большой длинны несколько миллионов строк...
Суть вопроса как уместить длинный список в одном Excel файле.

Никак. В Excel тупо меньше строк. Даже в 2013

ЗЫ На аватаре не Детектив Монк (MD) случаем?

[Poltava]

ув. Serge 007 а здесь Технические характеристики и ограничения Microsoft Excel 2003 написано что количество строк ограничено в пределах одного листа, а количество листов объемом памяти следовательно напрашивается вывод (3000000/65536=46 листов в книге а для 2007 так вообще 3 листа там ведь больше миллиона строк можно на листе) и это при том если использовать только один столбец так что по моему в теории это возможно но как потом с этим работать не особо понятно. Как по мне это задача для базы данных но если очень нужно именно в екселе то нужен пример файла в блокноте и результирующего файла в екселе ну или хотя бы пример того как должно выглядеть

[kuklp]

Попробуйте:

Код Выделить Развернуть

Public Sub www()
   Dim a, i&, n&, m&, x&
   a = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("H:\Temp\Ваш_путь.txt", 1).ReadAll, vbNewLine)
   n = ActiveSheet.Rows.Count: m = ((UBound(a) + 1) \ n) + 1
   ReDim b(1 To n, 1 To m): m = 0
   For i = 0 To UBound(a)
       m = m + 1
       If i Mod n = 0 Then x = x + 1: m = 1
       b(m, x) = a(i)
   Next
   [a1].Resize(UBound(b), UBound(b, 2)) = b
End Sub

[MD]

Нет я вовсе не детектив

В качестве примера прикладываю текстовый фаил. Необходимо отредактировать макрос так, чтобы текст достигнув 50 строки продолжил "выкладоваться" на 4 столбце от предыдущего или переносился на следующий лист. Как вы поняли текст должен подвергаться редактированию до того как он попадает в excel.

P.S. Я не сильно подкован в данном вопросе поэтому прошу не судить строго.

[Serge 007]

...как потом с этим работать не особо понятно...

Ну да, я из этого и исходил. Предположил что всё-таки надо сохранить данные в виде БД, а не "каши"

[kuklp]

Вы писали:

как поставить автоматическое заполнение соседних столбцов при заполнении первого?

теперь:

достигнув 50 строки продолжил "выкладоваться" на 4 столбце от предыдущего

Почему на 4 столбце? В примере их семь.

Как вы поняли текст должен подвергаться редактированию до того как он попадает в excel.

С чего мы должны это понять? Где у Вас хоть словом упомянуто об этом? Да и представляю себе редакцию на несколько миллионов строк... А потом у Вас появятся еще какие-то условия и надо будет опять все переделывать?
Под Ваш пример:

Код Выделить Развернуть

Public Sub www()
    Dim a, i&, n&, m&, x&, b
    Application.ScreenUpdating = 0
    a = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("H:\Пример.txt", 1).ReadAll, vbLf)
    n = 50: m = ((UBound(a) + 1) \ n) + 1
    For i = 0 To UBound(a)
        m = m + 1
        If i Mod n = 0 Then x = IIf(x = 0, x + 1, x + 7): m = 1
        b = Split(a(i), ";")
        Cells(m, x).Resize(, UBound(b) + 1) = b
    Next
    Application.ScreenUpdating = -1
End Sub

[MD]

Спасибо огромное за помощь!!! Стараюсь разобраться!

[Hugo121]

За кадром остался основной вопрос - зачем это всё?

Может быть достаточно использовать в коде Сергея

Код Выделить Развернуть

a = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("H:\Пример.txt", 1).ReadAll, vbLf)

    For i = 0 To UBound(a)
и начинать получать результат?

[MD]

Друзья, никак не получается разобраться
Может ли кто то представить готовый excel фаил?
Заранее спасибо!

[kuklp]

Оба файла д.б. в одной папке.

[MD]

С трудом прошу о помощи еще раз.
Мой чудо файл слишком велик даже для одного листа!
Не могли бы Вы мне предоставить excel файл, в котором при вставке, текст, доходя до самой последней строки оправлялся не на соседние столбцы, а прямо на следующие листы одной книги?
Буду признателен!

[kuklp]

Код Выделить Развернуть

Public Sub www()
    Dim a, i&, n&, m&, x&, b, sh As Worksheet
    Application.ScreenUpdating = 0
    Set sh = ActiveSheet
    a = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\Пример.txt", 1).ReadAll, vbLf)
    n = ActiveSheet.Rows.Count ': m = ((UBound(a) + 1) \ n) + 1
    For i = 0 To UBound(a)
        m = m + 1
        If i Mod n = 0 Then x = IIf(x = 0, x + 1, x + 7): m = 1
        If x > 245 Then
            Set sh = Worksheets.Add(after:=Sheets(Sheets.Count))
            x = 1
        End If
        b = Split(a(i), ";")
        sh.Cells(m, x).Resize(, UBound(b) + 1) = b
    Next
    Application.ScreenUpdating = -1
End Sub