Выгрузка из Excel в txt - ограничение на размер файла

[JCDenton]

Добрый день. Я сильно извиняюсь, если такая тема уже была - все сообщения просмотреть не могу- работа срочная. А в поиске ничего похожего не нашёл. Проблема в том, что используя этот макрос (взял с этого ресурса)

Код: Выделить всё

Dim Filename As String

    Filename = "C:\file.txt"
    Open Filename For Output As #1
        For i = 1 To 500
                Print #1, Cells(i, 1).Value
        Next i
    Close #1

, я получаю файл, ограниченный по объёму 32 Кб. А далее данные их Excel не копируются, то есть файл не полный. Как это обойти? Спасибо.

[Viper]

не должно такого быть

[Al Khamid]

88

[JCDenton]

Нашёл, в чём дело. Косяк именно в конце цикла. Почему-то копируются не 500 ячеек, а меньше. А обрыв происходит посередине текста одной из ячеек. Если конец цикла обозначить как

Код: Выделить всё

Range("A1").End(xlDown).Row

, то всё получается. Спасибо.