Ana içeriğe atla

Excel verilerini (seçim veya sayfalar) Excel'deki Metin dosyalarına nasıl aktarabilirim?

Bir çalışma kitabını metin dosyası biçiminde teslim etmeniz gerekiyorsa, çalışma kitabını metin dosyalarına dönüştürmeniz gerekir. Ve bu makale, Excel verilerini metin dosyalarına kolayca dışa aktarmak için size iki yöntem sunacaktır.

Tek bir sayfayı Excel'de metin dosyasına aktarın

Varsayılan olarak, Excel verileri çalışma kitapları olarak şu biçimde kaydedilecektir: . Xlsx. Bununla birlikte, mevcut çalışma kitabının bir çalışma sayfasını metin dosyaları olarak dışa aktarabiliriz. Farklı Kaydet özelliği. Lütfen aşağıdaki işlemleri yapın:

1. Metin dosyasına aktaracağınız çalışma sayfasına kaydırın ve fileto (Ya da Ofis düğmesi)> Farklı Kaydet.

2. Açılışta Farklı Kaydet iletişim kutusunda, dışa aktarılan metin dosyasını içine kaydedeceğiniz hedef klasörü seçin, dosyaya dosya adı kutusunu seçin ve ardından Unicode Metin (* .txt) Kayıt türü açılır liste. Ekran görüntüsüne bakın:
Farklı Kaydet özelliği ile metin dosyasına aktar

3. Ardından, yalnızca etkin çalışma sayfasını metin dosyası olarak dışa aktarmanızı ve metin dosyasıyla uyumsuz tüm özellikleri dışarıda bırakmanızı isteyen iki uyarı iletişim kutusu açılacaktır. Tıklayın OK düğmesi ve Evet art arda düğmesine basın.

Daha sonra aktif çalışma sayfasındaki veriler yeni bir metin dosyası olarak dışa aktarılır.

not: Farklı Kaydet komutu yalnızca etkin çalışma sayfasının verilerini metin dosyası olarak dışa aktarabilir. Tüm çalışma kitabının tüm verilerini dışa aktarmak istiyorsanız, her çalışma sayfasını ayrı ayrı bir metin dosyası olarak kaydetmeniz gerekir.


Seçimi (veya bir sütunu) VBA ile metin dosyasına aktarın

Aşağıdaki VBA kodu, seçilen aralık verilerini (örneğin bir sütun) metin dosyasına aktarmanıza da yardımcı olabilir, lütfen şu şekilde yapın:

1. basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. Tıkla Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA: seçimi veya tüm çalışma sayfasını metin dosyasına aktarın

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar. Açılan iletişim kutusunda dışa aktarmak istediğiniz veri aralığını seçin ve OK düğmesi, ekran görüntüsüne bakın:
Metin dosyası olarak dışa aktarmak için bir sütun seçin

4. Ve şimdi başka bir Farklı Kaydet iletişim kutusunda, lütfen bu metin dosyası için bir ad ve bu dosyanın yerleştirileceği bir klasör belirtin ve İndirim düğmesine basın.


Kutools for Excel ile seçimi (veya bir sütunu) metin dosyasına aktarın

The Farklı Kaydet komutu, etkin çalışma sayfasındaki tüm verileri metin olarak dışa aktarabilir. Ya belirtilen etkin olmayan çalışma sayfalarının tüm verilerini veya bir çalışma sayfasındaki verilerin bir kısmını metin dosyası olarak dışa aktarırsanız? Kutools for Excel's Aralığı Dosyaya Aktar yardımcı program, seçimdeki verileri kolayca bir metin dosyası olarak dışa aktarmamıza ve kaydetmemize yardımcı olabilir.  

Kutools for Excel - Excel için 300'den fazla temel araçla paketlenmiştir. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi İndirin!

1. Bir metin dosyasına vereceğiniz çalmayı seçin (bizim durumumuzda Sütun A'yı seçiyoruz) ve tıklayın Kutools Artı > İthalat / İhracat > Aralığı Dosyaya Aktar, ekran görüntüsüne bakın:
Excel eklentisi: seçimi metin dosyasına dışa aktar

2. içinde Aralığı Dosyaya Aktar iletişim kutusu, aşağıda gösterilen ekran görüntüsünü yapın:
Excel eklentisi: seçimi metin dosyasına dışa aktar
(1) Kontrol edin Unicode Metin seçeneği Dosya formatı Bölüm;
(2) Metin seçenekleri bölümünde ihtiyaç duyduğunuz şekilde Gerçek değerleri kaydet seçeneğini veya Ekranda gösterildiği gibi değerleri kaydet seçeneğini işaretleyin;
(3) Dışa aktarılan metin dosyasını içine kaydedeceğiniz hedef klasörü belirtin;
(4) Şunu tıklayın: Ok düğmesine basın.

3. Dışa aktarılan metin dosyasını yeni açılış iletişim kutusunda adlandırın ve Ok düğmesine basın.
dışa aktarılan metin dosyasını adlandırın

Ve sonra seçim (seçilen Sütun A) bir metin dosyası olarak dışa aktarıldı ve belirtilen klasöre kaydedildi.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın


Excel'de ayrı metin dosyalarına birden çok çalışma sayfası aktarın

Bazen birden çok çalışma sayfasını Excel'de birden çok metin dosyasına aktarmanız gerekebilir. Farklı Kaydet özelliği biraz sıkıcı olabilir! Endişelenme! Kutools for Excel's Çalışma Kitabını Böl yardımcı program, Excel kullanıcılarına, birden çok çalışma sayfasını birkaç tıklama ile birçok ayrı metin dosyasına vermek için kolay bir geçici çözüm sağlar. 

Kutools for Excel - Excel için 300'den fazla temel araçla paketlenmiştir. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi İndirin!

1. tık Kutools Artı > alıştırma kitabıÇalışma Kitabını Böl. Ekran görüntüsüne bakın:
Excel eklentisi: birden çok sayfayı metin dosyalarına dışa aktarın

2. Bölünmüş Çalışma Kitabı iletişim kutusunda lütfen aşağıdaki işlemleri yapın:
Excel eklentisi: birden çok sayfayı metin dosyalarına dışa aktarın
(1) Ayrı metin dosyalarına aktaracağınız çalışma sayfalarını kontrol edin. Çalışma kitabı adı Bölüm;
(2) Kontrol edin Kaydetme formatını belirtin seçeneğini seçin ve ardından Unicode Metin (* .txt) aşağı açılır listeden, soldaki ekran görüntüsüne bakın:
(3) Bölünmüş düğmesine basın.

3. Ve sonra Klasöre Gözat iletişim kutusunu açarken, dışa aktarılan metin dosyalarını kaydedeceğiniz hedef klasörü seçin ve OK düğmesine basın.

Şimdiye kadar belirtilen her çalışma sayfası ayrı bir metin dosyası olarak dışa aktarılmış ve belirtilen klasöre kaydedilmiştir.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın

Excel'de her bir sayfayı ayrı bir PDF / metin / csv dosyası veya çalışma kitabı olarak kolayca toplu kaydedin

Normalde, aktif çalışma sayfasını ayrı bir .pdf dosyası, .txt dosyası veya Farklı Kaydet özelliği ile .csv dosyası olarak kaydedebiliriz. Ancak Kutools for Excel's Çalışma Kitabını Böl yardımcı program, her çalışma kitabını ayrı bir PDF / METİN / CSV dosyası veya Excel'de çalışma kitabı olarak kolayca kaydetmenize yardımcı olabilir.


reklam bölme çalışma kitabı pdf 1

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi alın


Demo: Excel verilerini (seçim veya sayfalar) Excel'deki Metin dosyalarına aktarın


Kutools for Excel: 300'den fazla kullanışlı araç parmaklarınızın ucunda! Hiçbir özellik sınırlaması olmaksızın 30 günlük ücretsiz deneme sürenizi bugün başlatın. Hemen İndir!

İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would I amend the code for Export selection (or one column) to text file with VBA to autofill the filename with the contents of cell B2?
thanks
This comment was minimized by the moderator on the site
Hi,This is great, thanks a lot.
How would I alter the code for Export selection (or one column) to text file with VBA to auto fill the filename with the contents of cell B2?
This comment was minimized by the moderator on the site
Hi, this code is very useful for me. So thank you very much.
I want to ask that: When i'm using this code, a new line append automatically at the end of the txt content.
Can you help me about preventing this by vba?
This comment was minimized by the moderator on the site
hi guys, i used that code:
Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

and have working, but i need to savea column with cells that contain the function"concatenate", and when i play the vba code, and i save the .TXT file, only what appears it's #REF. how can i to fix it? cause i need the data that appears on that cells?
This comment was minimized by the moderator on the site
Has anyone been able to figure this out? I am having the same issue.
This comment was minimized by the moderator on the site
HELLO
THANK YOU FOR YOUR VBA CODE
SOMETIMES ON CERTAIN TEXT THERE IS "TEXT" IN EXPORT .TXT
THANK YOU FOR WHY
This comment was minimized by the moderator on the site
Thanks for the awesome piece of VBA code to export data to a text file. I have used your code with some of my own. The data I am dealing with is extremely line-length specific and after the macro has run, the text file contains some double quotation marks " at random places, which was never present in my data before. I have tried adding a code line to remove this character at various stages but that does not seem to be working. I am aware that I can manually remove this but would like to resolve it in the VBA code.

Sub Macro3()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$10591").AutoFilter Field:=1, Criteria1:= _
"=NSZAP*", Operator:=xlAnd
Range("A1").Select
ActiveCell.Offset(200, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Rows("1:10101").EntireRow.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlDown)).Select
Set WorkRng = Application.Selection
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Harish,
For removing a specified character in bulk, you can replace the character with nothing.
Ctrl + H to open the Find and Replace dialog box, type the specified character in the Find what box, and type noting in the replace with box.
This comment was minimized by the moderator on the site
3/2 You might also note that you don't need to specify the wb prefix once you've .Add ed the workbook since it becomes active. Specifying wb might or might not be more efficient but it can be omitted from some commands. Actually I entirely scrapped the variable wb; I just go Workbooks.Add, and use ActiveWorkbook when needed. (As you are suppressing ScreenUpdating it wouldn't be obvious to some that wb is Active. Tip for beginners (and higher): I always, always develop with ScreenUpdating and DisplayAlerts as True, and when done with development, I consider toggling them off for some passage of code.)
This comment was minimized by the moderator on the site
2/2 - vbYesNoCancel msgboxes and Booleans to indicate whether to export all, selection, or a user specified range - a static String for the prior range address - if len(that static)1 then I set WorkRng=activesheet.UsedRange (You can't copy multiple areas with a single copy, though with a little work you could walk the areas and copy them piecemeal.) - Idiotic Microsoft does not save off empty rows at the start and the bottom of the saved range, and does not save off empty columns at the leftmost and the rightmost of the saved range. When I detect that (UsedRange is not row 1, col. 1, or xlLastCell is not completely lower-right) I msgbox to ask user if they want to plug A1 or the lower right cell. - Then I decided to preemptively address the upper left issue by inserting a row and setting A1 to be text like "The following is for range " - I close with activeworkbook.close SaveChanges:=False - Long time habit since I'm an angry proponent of cleaning up (and the world is a sad place thanks to irresponsible programmers who shirk that responsibility when it matters), I set WorkRng = Nothing on the way out :)
This comment was minimized by the moderator on the site
1/2 (since your software limits comment length) I am a serious coder and I want to inform you that the VBA code here is outstanding. It's clean, and not one line too much, or one too few. It's exemplary coding for demonstration of the process. I'll also mention that as I extensively researched solutions for export of selection, you and only one other person suggested dropping the range into a temp new workbook. All other answers were painfully manually, walking through cell by cell. Even Chip's code is much longer and runs slower (but intentionally so, as it is much more flexible - specifiable delimiters, etc.) Just for your amusement, I made some very minor tweaks but otherwise nearly lifted the code word for word because it basically dropped right into a very intricate and specialized application. Some of these tweaks are something I'm sure you do in practice, but they add lines of code (e.g. error checking) so showing them on this webpage would have muddied your display so that the essential elements of processing would have been cumbersome for readers to follow along. Anyway: (see part 2)
This comment was minimized by the moderator on the site
My query is as mentioned below: I have a report to generate everyday. The data what I get on the final row (only one row but more than one columns) I want it to export to another excel sheet which is a summary excel sheet saved separately on my desktop. Eg: Day1 report - final row export to Summary excel sheet row1 Day2 report - final row export to Summary excel sheet row2 Day3 report - final row export to Summary excel sheet row3 and so on.. Export should be done through a click button., which means when I click on export button the data on the sheet I calculated today should go and save on the Summary excel sheet row1, next day a new excel sheet report calculated should go and save on the Summary excel sheet row2 and so on.. Will this be possible to do... If yes please someone help me on this... Thank you in advance...:-)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations