T?p v�n b?n l?n h�n 65,536 h�ng kh�ng th? ��?c chuy?n nh?p v�o Excel 97, Excel 2000, Excel 2002 v� Excel 2003

ID c?a b�i: 120596 - Xem s?n ph?m m� b�i n�y �p d?ng v�o.

Th�ng b�o: b�i vi?t n�y l� b�i ��?c d?ch b?i M�y d?ch

Nh?p chu?t v�o ��y �? hi?n th? b?n g?c Ti?ng anh v� b?n d?ch m�y theo ch? �? so s�nh.

Bung t?t c? | Thu g?n t?t c?

T�M T?T

Trong Microsoft Excel 97 cho Windows, Microsoft Excel 2000, Microsoft Excel 2002, v� Microsoft Office Excel 2003, t?p v�n b?n c� ch?a h�n 65,536 h�ng kh�ng th? m? trong c?a h? to�n b?. B?n kh�ng th? m? c�c t?p n�y b?i v? c�c phi�n b?n c?a Microsoft Excel ��?c gi?i h?n 65,536 h�ng. N?u b?n m? m?t t?p tin m� c� ch?a nhi?u d? li?u h�n n�y, c�c t?p tin v�n b?n c?t ng?n ? h�ng 65,536, v� b?n nh?n ��?c th�ng b�o l?i sau:

T?p kh�ng ��?c n?p ho�n to�n.

Tuy nhi�n, b?n c� th? s? d?ng m?t v? m� �? m? t?p tin v� t? �?ng ph� v? c�c v�n b?n th�nh nhi?u b?ng

Chu� y�

Phi�n b?n Excel tr�?c �� h�n Excel 97 c� m?t gi?i h?n c?a c�c h�ng 16,384.

C�c phi�n b?n c?a Excel sau h�n Excel 2003 c� m?t gi?i h?n c?a c�c h�ng 1.048.576.

TH�NG TIN TH�M

Microsoft cung c?p l?p tr?nh v� d? �? minh ho? ch?, kh�ng c� b?o h�nh ho?c th? hi?n hay ng? ?. �i?u n�y bao g?m, nh�ng kh�ng gi?i h?n, b?o �?m ng? ? kh? n�ng b�n h�ng ho?c cho m?t m?c ��ch c? th?. B�i vi?t n�y gi? �?nh r?ng b?n �? quen thu?c v?i ng�n ng? l?p tr?nh m� �ang ��?c ch?ng minh v� v?i nh?ng c�ng c? ��?c s? d?ng �? t?o ra v� g? l?i th? t?c. Microsoft h? tr? c�c k? s� c� th? gi�p gi?i th�ch c�c ch?c n�ng c?a m?t th? t?c c? th?. Tuy nhi�n, h? s? s?a �?i c�c v� d? �? cung c?p th�m ch?c n�ng ho?c x�y d?ng quy tr?nh �? ��p ?ng c�c y�u c?u c? th? c?a b?n. V? m� m?u sau s? nh?c b?n cho m?t t�n t?p tin v�n b?n, v� sau �� s? m? ra c�c t?p tin v�o b? nh?. N?u s? h�ng l� l?n h�n Excel b?ng t�nh gi?i h?n c?a 65,536, v? m� ph� v? c�c t?p tin v�o nhi?u b?ng. V? m� n�y ch? �p d?ng cho t?p tin b?n l�u d�?i d?ng t?p tin v�n b?n v� kh�ng �p d?ng cho b?t k? �?nh d?ng t?p tin kh�c. V? m� kh�ng l�m vi?c v?i c� s? d? li?u �?nh d?ng t?p tin.

L�u ? r?ng b?i v? ��y l� m?t v? m�, b?ng c�ch s? d?ng n� c� th? ��ng k? ch?m h�n so v?i c�ch nh?n v�o M? tr�n c�c T��p tr?nh ��n.

   '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

Chu� y� V? m� kh�ng ph�n t�ch c�c d? li?u v�o c?t. Sau khi s? d?ng c�c v? m�, b?n c?ng c?n ph?i s? d?ng c�c V�n b?n �? c?t l?nh tr�n c�cD? li?u Menu �? ph�n t�ch c�c d? li?u khi c?n thi?t.Khi b?n ch?y n�y v? m� tr�n m�y Macintosh, v� b?n �ang c? g?ng m? m?t t?p tin c� ngh?a l� tr�n b�n l�m vi?c, b?n ph?i �?ng tr�?c t�n t?p tin v?i c�c sau

�?a c?ng: Th� m?c m�y t�nh �? b�n:

n�i �?a c?ng l� t�n c?a �?a c?ng c?a b?n. L�u ? r?ng c� m?t kh�ng gian gi?a c�c t? m�y t�nh �? b�n v� th� m?c.

Thu?c t�nh

ID c?a b�i: 120596 - L?n xem x�t sau c�ng: 20 Tha�ng Chi�n 2011 - Xem x�t l?i: 3.0

�p d?ng

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

kbimport kbhowto kbcode kbmt KB120596 KbMtvi

M�y d?ch

QUAN TRO�NG: B�i vi?t n�y ��?c d?ch b?ng ph?n m?m d?ch m�y c?a Microsoft ch? kh�ng ph?i do con ng�?i d?ch. Microsoft cung c?p c�c b�i vi?t do con ng�?i d?ch v� c? c�c b�i vi?t do m�y d?ch �? b?n c� th? truy c?p v�o t?t c? c�c b�i vi?t trong C� s? Ki?n th?c c?a ch�ng t�i b?ng ng�n ng? c?a b?n. Tuy nhi�n, b�i vi?t do m�y d?ch kh�ng ph?i l�c n�o c?ng ho�n h?o. Lo?i b�i vi?t n�y c� th? ch?a c�c sai s�t v? t? v?ng, c� ph�p ho?c ng? ph�p, gi?ng nh� m?t ng�?i n�?c ngo�i c� th? m?c sai s�t khi n�i ng�n ng? c?a b?n. Microsoft kh�ng ch?u tr�ch nhi?m v? b?t k? s? thi?u ch�nh x�c, sai s�t ho?c thi?t h?i n�o do vi?c d?ch sai n?i dung ho?c do ho?t �?ng s? d?ng c?a kh�ch h�ng g�y ra. Microsoft c?ng th�?ng xuy�n c?p nh?t ph?n m?m d?ch m�y n�y.

Nh?p chu?t v�o ��y �? xem b?n ti?ng Anh c?a b�i vi?t n�y:120596

(http://support.microsoft.com/kb/120596/en-us/ )