В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Невозможно импортировать текстовые файлы, размер которых превышает 65 536 строк в Excel 97, Excel 2000, Excel 2002 и Microsoft Excel 2003

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:120596
Аннотация
В Microsoft Excel 97 для Windows, Microsoft Excel 2000, Microsoft Excel 2002 и Microsoft Office Excel 2003текстовые файлы, содержащие более 65536 строк может быть открыто в ихполностью. Не удается открыть эти файлы, так как эти версииMicrosoft Excel ограничены 65536 строк. При открытии файла,содержит больше данных, чем это, текстовый файл обрезается до 65 536 строк, и появляется следующее сообщение об ошибке:
Файл загружен не полностью.
Тем не менее, можно использоватьЧтобы открыть файл и автоматически разбить текст на нескольких макрослисты

Заметки

Ранние версии Excel, чем Microsoft Excel 97 ограничены 16 384 строк.

Версиях Excel позже чем Excel 2003 имеют ограничение 1 048 576 строк.
Дополнительная информация
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации Это включает, но не ограничивается, подразумеваемые гарантии товарности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с языком программирования предложенном и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут пояснить конкретной процедуры. Однако они не изменяет примеров для обеспечения дополнительных возможностей или удовлетворения конкретных требований. Приведенный ниже макрос будет предложено ввести имя текстового файла, а затем открываетфайл в память. Если число строк превышает Excelпредел листа 65 536, макрос разбивает файл на нескольколисты. Этот макрос применяется только к файлам, сохраняются как текстовые файлы ине влияет на другие форматы файлов. Макрос не работает сбазы данных, форматы файлов.

Обратите внимание, что поскольку макроса, его использование может быть значительно медленнеечем нажать кнопку Открыть В меню Файл меню.
   'All lines that begin with an apostrophe (') are remarks and are not   'required for the macro to run.				
   Sub LargeFileImport()      'Dimension Variables      Dim ResultStr As String      Dim FileName As String      Dim FileNum As Integer      Dim Counter As Double      'Ask User for File's Name      FileName = InputBox("Please enter the Text File's name, e.g. test.txt")      'Check for no entry      If FileName = "" Then End      'Get Next Available File Handle Number      FileNum = FreeFile()      'Open Text File For Input      Open FileName For Input As #FileNum      'Turn Screen Updating Off      Application.ScreenUpdating = False      'Create A New WorkBook With One Worksheet In It      Workbooks.Add template:=xlWorksheet      'Set The Counter to 1      Counter = 1      'Loop Until the End Of File Is Reached      Do While Seek(FileNum) <= LOF(FileNum)         'Display Importing Row Number On Status Bar          Application.StatusBar = "Importing Row " & _             Counter & " of text file " & FileName          'Store One Line Of Text From File To Variable          Line Input #FileNum, ResultStr          'Store Variable Data Into Active Cell          If Left(ResultStr, 1) = "=" Then             ActiveCell.Value = "'" & ResultStr          Else             ActiveCell.Value = ResultStr          End If                    'For Excel versions before Excel 97, change 65536 to 16384          If ActiveCell.Row = 65536 Then             'If On The Last Row Then Add A New Sheet             ActiveWorkbook.Sheets.Add          Else             'If Not The Last Row Then Go One Cell Down             ActiveCell.Offset(1, 0).Select          End If          'Increment the Counter By 1          Counter = Counter + 1      'Start Again At Top Of 'Do While' Statement      Loop      'Close The Open Text File      Close      'Remove Message From Status Bar      Application.StatusBar = False   End Sub				
Примечание Макрос не удается проанализировать данные столбцов. После использованиямакрос, также необходимо использовать Текст по столбцам командыДанные меню, чтобы проанализировать данные нужным образом.Когда выполнить этот макрос для Macintosh, и вы пытаетесь открытьто есть файл на рабочем столе, необходимо перед именем файласледующие
Жесткий диск: Системная папка:
В данной команде Жесткий диск Это имя вашего жесткого диска. Обратите внимание, что не существуетпробел между словами рабочего стола и папок.
97 ascii 5,00 импорта c 8.00 5.00a xl97 xl7 xl5 XL XL2007 Excel2007

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 120596 — последний просмотр: 09/19/2011 03:12:00 — редакция: 5.0

Microsoft Excel 97 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 2002 Standard Edition, Microsoft Office Excel 2007

  • kbimport kbhowto kbcode kbmt KB120596 KbMtru
Отзывы и предложения