TXT Dosyasından Veri Alma

Bu dosya, bir TXT (metin) dosyasının içeriğini makrolarla Excel çalışma kitabına aktarmak için hazırlanmış örnek bir çalışmadır. Aktarım iki farklı yöntemle yapılır ve her çalıştırmada veri yeni eklenen bir sayfaya yazılır.

Önemli: Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Start: Çalışmanın başlangıç sayfasıdır (B1:C3 aralığı).
• Module1: Makro kodlarının bulunduğu VBA modülüdür.

Makrolar​

• ImportTextUsingOpenText: Çalışma kitabına yeni bir sayfa ekler ve A1 hücresine "Open Text Method" yazar. Ardından dosya seçme penceresi açılır ve yalnızca .txt dosyaları listelenir. Dosya seçilirse Workbooks.OpenText ile geçici bir çalışma kitabında açılır, kullanılan alan kopyalanır, geçici kitap kapatılır ve veri yeni sayfada A2 hücresinden itibaren yapıştırılır. Dosya seçilmezse aktarım yapılmaz. Metin içe aktarma değerleri kod içinde önceden ayarlanabilir.
• ImportTextUsingXlDialogOpen: Yeni sayfa ekler ve A1 hücresine "Dialogs(xlDialogOpen) Method" yazar. Excel'in kendi dosya açma penceresi görüntülenir; metin içe aktarma sihirbazının değerleri (ayırıcı, sütun biçimi vb.) kullanıcı tarafından seçilir. Sonrasında veri aynı şekilde kopyalanıp yeni sayfaya yapıştırılır.

Her iki makro da işlem sırasında ekran güncellemesini ve uyarı mesajlarını kapatır. Kodda dosya silme veya dışarıya bağlantı kuran bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8).
3. Önceden belirlenmiş ayarlarla aktarmak için ImportTextUsingOpenText, sihirbaz adımlarını kendiniz seçmek için ImportTextUsingXlDialogOpen makrosunu çalıştırın.
4. Açılan pencereden TXT dosyasını seçin.
5. Veri, yeni eklenen sayfada A2 hücresinden itibaren listelenir.