Makale numaras�: 120596 - Son G�zden Ge�irme: 29 Ocak 2008 Sal� - G�zden ge�irme: 4.2

65.536 sat�rdan fazla olan metin dosyalar� Excel 97, Excel 2000, Excel 2002 ve Excel 2003'e al�nam�yor

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Hepsini a� | Hepsini kapa

�zet

Windows i�in Microsoft Excel 97, Microsoft Excel 2000, Microsoft Excel 2002 ve Microsoft Office Excel 2003'te, 65.536'dan daha fazla sat�r i�eren metin dosyalar� tek dosya olarak a��lamaz. Microsoft Excel'in bu s�r�mleri 65.536 sat�rla s�n�rl� oldu�u i�in bu dosyalar� a�amazs�n�z. Bundan daha fazla veri i�eren bir dosyay� a�arsan�z, metin dosyas� 65.536 sat�r sonunda kesilir ve a�a��daki hata iletisini al�rs�n�z:

Dosya tamamen y�klenmedi.

Ancak, dosyay� a��p metni birden �ok �al��ma sayfas�na otomatik olarak b�len bir makro kullanabilirsiniz.

Notlar

Excel 97'den �nceki Excel s�r�mlerinde 16.384 sat�r s�n�rlamas� vard�r.

Excel 2003'ten sonraki Excel s�r�mlerinde ise 1.048.576 sat�r s�n�rlamas� vard�r.

Daha fazla bilgi

Microsoft, programlama �rneklerini yaln�zca g�sterim amac�yla sa�lar; �rt�l� veya a��k garanti vermez. Buna sat�labilirlik veya belirli bir amaca uygunluk z�mni garantileri de dahildir, ancak bunlarla s�n�rl� de�ildir. Bu makale, g�sterilen programlama dilini ve yordamlar� olu�turmak ve hata ay�klamak amac�yla kullan�lan ara�lar� kullanmay� bildi�inizi varsayar. Microsoft destek m�hendisleri, belirli bir yordam�n i�levselli�inin a��klanmas�na yard�mc� olabilir. Ancak gereksinimlerinizi kar��lamaya y�nelik olarak ek i�levsellik sa�lamak veya yordamlar geli�tirmek amac�yla bu �rnekleri de�i�tirmezler. A�a��daki makro �rne�i, sizden bir metin dosyas� ad� ister ve dosyay� bellekte a�ar. Sat�r say�s� Excel �al��ma sayfas� s�n�r� olan 65.536 sat�rdan fazlaysa, makro bu dosyay� birden �ok �al��ma sayfas�na b�ler. Bu makro yaln�zca metin dosyalar� olarak kaydetti�iniz dosyalar i�in ge�erlidir, di�er dosya bi�imlerine uygulanamaz. Makro, veritaban� dosya bi�imleriyle �al��maz.

Bu bir makro oldu�u i�in, Dosya men�s�nde A�'� t�klat�p i�lem ger�ekle�tirmekten �ok daha yava� �al��abilir.

   'T�rnak i�aretiyle (') ba�layan sat�rlar a��klamad�r ve makronun
   '�al��mas� i�in gerekli de�ildir.

   Sub LargeFileImport()

      'Boyut De�i�kenleri
      Dim ResultStr As String
      Dim FileName As String
      Dim FileNum As Integer
      Dim Counter As Double
      'Kullan�c�dan Dosya Ad�n� �ste
      FileName = InputBox("Metin Dosyas� ad�n� girin, �rne�in, metin.txt")
      'Giri� yap�l�p yap�lmad���n� denetle
      If FileName = "" Then End
      'Sonraki Kullan�labilir Dosya Tan�t�c� Numaras�n� Al
      FileNum = FreeFile()
      'Giri� Olarak Metin Dosyas�n� A�
      Open FileName For Input As #FileNum
      'Ekran G�ncelle�tirmesini Kapat
      Application.ScreenUpdating = False
      'Tek Bir �al��ma Sayfas� ��eren Yeni Bir �al��ma Kitab� Olu�tur
      Workbooks.Add template:=xlWorksheet
      'Sayac� 1 Olarak Ayarla
      Counter = 1
      'Dosya Sonuna Ula��l�ncaya Kadar D�ng� Ger�ekle�tir
      Do While Seek(FileNum) <= LOF(FileNum)
         'Al�nan Sat�r Say�s�n� Durum �ubu�unda G�r�nt�le
          Application.StatusBar = "Al�nan Sat�r: " & _
             Counter & " Metin Dosyas�: " & FileName
          'Metnin Bir Sat�r�n� De�i�kende Sakla
          Line Input #FileNum, ResultStr
          'De�i�ken Verilerini Etkin H�crede Sakla
          If Left(ResultStr, 1) = "=" Then
             ActiveCell.Value = "'" & ResultStr
          Else
             ActiveCell.Value = ResultStr
          End If
          
          'Excel 97'den �nceki Excel s�r�mleri i�in, 65536 de�erini 16384 olarak de�i�tir
          If ActiveCell.Row = 65536 Then
             'Son Sat�rdaysa Yeni Bir Sayfa Ekle
             ActiveWorkbook.Sheets.Add
          Else
             'Son Sat�rda De�ilse Bir H�cre A�a�� Git
             ActiveCell.Offset(1, 0).Select
          End If
          'Sayac� 1 Art�r
          Counter = Counter + 1
      ''Do While' Deyiminin Ba��na Gidip Yeniden Ba�la
      Loop
      'A��k Metin Dosyas�n� Kapat
      Close
      '�letiyi Durum �ubu�undan Kald�r
      Application.StatusBar = False

   End Sub

Not Bu makro verileri s�tunlara ayr��t�rmaz. Makroyu kulland�ktan sonra, Veri men�s�ndeki Metni S�tunlara D�n��t�r komutunu kullanarak verileri gerekti�i �ekilde ayr��t�rmal�s�n�z. Bu makroyu bir Macintosh bilgisayarda �al��t�r�p masa�st�nde bulunan bir dosyay� a�may� deniyorsan�z, dosya ad�n�n �n�ne

Sabit disk:Desktop Folder:

ifadesini koymal�s�n�z; burada Sabit disk, sabit diskinizin ad�d�r. Desktop ve Folder s�zc�klerinin aras�nda bir bo�luk oldu�una dikkat edin.