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

Переводы статьи Переводы статьи
Код статьи: 120596 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

Аннотация

В 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, и вы пытаетесь открыть то есть файл на рабочем столе, необходимо перед именем файла следующие
Жесткий диск: Системная папка:
В данной команде Жесткий диск Это имя вашего жесткого диска. Обратите внимание, что не существует пробел между словами рабочего стола и папок.

Свойства

Код статьи: 120596 - Последний отзыв: 19 сентября 2011 г. - Revision: 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
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:120596

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com