Добрый день, уважаемые форумчане!
Прошу подсказать - есть ли более быстрый способ вывести в диапазон листа данные из txt-файла макросом?
На данный момент есть только такой код:
В оригинальном файле около 900 000 строк и этот код очень долго работает.
Прошу подсказать - есть ли более быстрый способ вывести в диапазон листа данные из txt-файла макросом?
На данный момент есть только такой код:
Код |
---|
Sub Test2() n = Now 'начальное время для расчета продолжительности макроса Open "C:\Users\Picnic\Desktop\02\01.txt" For Input As #1 Dim s As String i = 1 While Not EOF(1) Input #1, s ThisWorkbook.Sheets(1).Range("B" & i) = s i = i + 1 Wend Close #1 k = Now 'конечное время для расчета продолжительности макроса M = Format(k - n, "hh:mm:ss") MsgBox ("Время обновления " & M) End Sub |