לא ניתן לייבא קבצים הכוללים יותר מ- 65,536 שורות ל- Excel 97,? Excel 2000,? Excel 2002 ו- Excel 2003

תרגומי מאמרים תרגומי מאמרים
Article ID: 120596 - View products that this article applies to.
הרחב הכל | כווץ הכל

תקציר

ב- Microsoft Excel 97 for Windows,? Microsoft Excel 2000,? Microsoft Excel 2002 ו- Microsoft Office Excel 2003, לא ניתן לפתוח במלואם קבצי טקסט המכילים יותר מ- 65,536 שורות. לא ניתן לפתוח קבצים אלה מחר שגירסאות אלה של Microsoft Excel מוגבלות ל- 65,536 שורות. אם תפתח קובץ שמכיל יותר נתונים ממגבלה זו, קובץ הטקסט ייחתך בשורה 65,536, ותופיע הודעת השגיאה הבאה:
הקובץ לא נטען בשלמותו.
עם זאת, באפשרותך להשתמש במאקרו כדי לפתוח את הקובץ ולפצל באופן אוטומטי את הטקסט לגליונות עבודה מרובים.

הערות

מגבלת השורות בגירסאות של Excel הקודמות לגירסה Excel 97 היא 16,384 שורות.

מגבלת השורות בגירסאות של Excel מתקדמות יותר מגירסה Excel 2003 היא 1,048,576 שורות.

מידע נוסף

Microsoft מספקת את דוגמאות התכנות שלהלן להמחשה בלבד וללא כל אחריות, בין מפורשת ובין משתמעת, ובכלל זה, אך לא רק, אחריות לגבי סחירות או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התכנות המודגמת ובקי בהפעלת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע להסביר את הפונקציונליות של הליך מסוים. עם זאת, הם לא ישנו דוגמאות אלה כדי לספק פונקציונליות נוספת או יבנו הליכים כדי לספק מענה לצרכיך הספציפיים. המאקרו הבא, המשמש לדוגמה, מציג בקשה להזנת שם קובץ טקסט ולאחר מכן פותח את הקובץ בזיכרון. אם מספר השורות גדול ממגבלת 65,536 השורות של גיליון עבודה של Excel, המאקרו מפצל את הקובץ לגליונות עבודה מרובים. מאקרו זה חל רק על קבצים שנשמרו כקבצי טקסט והוא אינו חל על תבניות קובץ אחרות. המאקרו אינו פועל עם תבניות של קבצי מסדי נתונים.

שים לב, מאחר שזהו מאקרו, השימוש בו עשוי להיות איטי יותר באופן משמעותי בהשוואה ללחיצה על פתח בתפריט קובץ? .
   כל השורות המתחילות בגרש (') הן הערות ואינן 
   'נדרשות לפעולת המאקרו.
				
?
   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
      סגור
      ?'Remove Message From Status Bar
      Application.StatusBar = False

   End Sub
				
הערה המאקרו לא מפצל את הנתונים לעמודות. לאחר השימוש במאקרו, מומלץ גם להשתמש בפקודה טקסט לעמודות בתפריט נתונים כדי לפצל את הנתונים לפי הצורך. כאשר תפעיל מאקרו זה במחשב Macintosh, ותנסה לפתוח קובץ שנמצא על שולחן העבודה, עליך להוסיף לפני שם הקובץ את הטקסט הבא
Hard disk:Desktop Folder:?
כאשר Hard disk הוא שם הדיסק הקשיח שלך. שים לב, אין רווח בין המילים Desktop ו-Folder.

מאפיינים

Article ID: 120596 - Last Review: יום שני 19 ספטמבר 2011 - Revision: 3.0
המידע במאמר זה חל על:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2007
מילות מפתח 
kbimport kbhowto kbcode KB120596

ספק משוב

 

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