txt (metin) olarak kayıt yapmak

[mustafakoker]

ekli resimden sadece seçtiğim alanı c: sürücüsüne metin dosyası sekmeyle ayrılmış şekilde nasıl kaydedebilirm
a5:g17 aralığını txt olarak kayıt yamak istiyorum

 

[mustafakoker]

konu hakkında yardımcı olacak yokmu makro ile kayıt yaptığımda komple sayfayı kaydedıyor
bana sadece seçili alan lazım

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Önce hücreleri seçin sonra kodları çalıştırın.

 Sub Secili_Alani_Text_Dosyasina_Yaz()
    Dim DosyaYolu   As String
    Dim YolAyirici  As String
    Dim DosyaAdi    As String
    Dim DosyaSatiri As String
    
    Dim i As Long
    Dim j As Integer
    
    If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
        MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
        Exit Sub
    End If
    
    DosyaYolu = ThisWorkbook.Path
    YolAyirici = Application.PathSeparator
    DosyaAdi = "Dosya-" & Format(Date, "yyyy-mm-dd") & ".txt"
    
    Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1
    
    For i = 1 To Selection.Rows.Count
        
        DosyaSatiri = ""
        
        For j = 1 To Selection.Columns.Count
            If j <> Selection.Columns.Count Then
                DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
            Else
                DosyaSatiri = DosyaSatiri & Selection(i, j)
            End If
        Next j
        
        Print #1, DosyaSatiri
        
    Next i
    
    Close #1
    
    MsgBox "Dosya " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu"
    
End Sub

 

[mustafakoker]

Sayın Necdet Bey yardımlarınız için çok teşekkürler inanın bu bilgi muhasebe konusunda bana çok yardımcı olacak ve bdp deki beyannamelerimi daha hızlı yollayabileceğim.

Çok Teşekkürler

 

[mustafakoker]

DosyaAdi = "Dosya-" &

buradaki dosya yerine excel hangi dosya adına kayıtlıysa o ismi verebilirmiyiz.
Örneğin deneme.xls dosyası na text ye çevirirken deneme 01.08.2010

 

[Necdet]

buradaki dosya yerine excel hangi dosya adına kayıtlıysa o ismi verebilirmiyiz.
Örneğin deneme.xls dosyası na text ye çevirirken deneme 01.08.2010

Merhaba,

    DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "yyyy-mm-dd") & ".txt"

Şeklinde kullanabilirsiniz, Tarihleri atmasını istemezseniz

    DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & ".txt"

Şeklinde kullanabilirsiniz.

 

[mustafakoker]

DosyaAdi = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "yyyy-mm-dd") & ".txt"

Bu şekilde tam istediğim gibi oldu hocam elinize sağlık.

Son bir şey daha rica edeceğim hocam

Excel dosyam hangi klasördeyse veya masa üstündeyse txt yi oraya kaydediyor
Dosyam nerede olursa olsun T.X.T kayıt yolu C:\ebyn\Ba Bs klasörü olsa olurmu

 

[Necdet]

Bu şekilde tam istediğim gibi oldu hocam elinize sağlık.

Son bir şey daha rica edeceğim hocam

Excel dosyam hangi klasördeyse veya masa üstündeyse txt yi oraya kaydediyor
Dosyam nerede olursa olsun T.X.T kayıt yolu C:\ebyn\Ba Bs klasörü olsa olurmu

Bu soruların geleceğini bildiğim için kodları açık açık yazmayı yeğlemiştim.

DosyaYolu = ThisWorkbook.Path

Siz bu kodu değiştirin ve

DosyaYolu = "C:\ebyn\Ba Bs"

yapın.

 

[mustafakoker]

Bu soruların geleceğini bildiğim için kodları açık açık yazmayı yeğlemiştim.

:hihoho: hocam elinize sağlık tekrar çok teşekkür ederim.Gerçektekten Gönülden şükranlarımı sunarım zahmet verdim yardımlarınız için minnettarım

 

[Necdet]

:hihoho: hocam elinize sağlık tekrar çok teşekkür ederim.Gerçektekten Gönülden şükranlarımı sunarım zahmet verdim yardımlarınız için minnettarım

Güle güle kullanınız

 

[turk4545]

Tarih : 00.00.1932

herkese mrb.

yapmış olduğumuz çalışmalarda metin olarak 00.00.1932 yada 0.0.1925 değerleri var. metin olarak örn.01.05.1990 değerini tarihe çevirmek için

[a1] = DateValue([a1])

yaparak çevirebiliyorum...Ama 00.00.1932 'yi nasıl çevirebilirim.yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Soruyu yanlış anladığım için verdiğim yanıt silinmiştir.

 

[yst10]

Uzun yıllar sonra tekrar selamlar.
Bu, "metin olarak kayıt yapmak işlemini", kapalı bir excel veya csv dosyasından yapabilmek için nasıl bir değişiklik yapmak gerekir?

 

[htsumer]

Merhaba,

Aşağıdaki kodları dener misiniz?

Önce hücreleri seçin sonra kodları çalıştırın.

 Sub Secili_Alani_Text_Dosyasina_Yaz()
    Dim DosyaYolu   As String
    Dim YolAyirici  As String
    Dim DosyaAdi    As String
    Dim DosyaSatiri As String
    
    Dim i As Long
    Dim j As Integer
    
    If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
        MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
        Exit Sub
    End If
    
    DosyaYolu = ThisWorkbook.Path
    YolAyirici = Application.PathSeparator
    DosyaAdi = "Dosya-" & Format(Date, "yyyy-mm-dd") & ".txt"
    
    Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1
    
    For i = 1 To Selection.Rows.Count
        
        DosyaSatiri = ""
        
        For j = 1 To Selection.Columns.Count
            If j <> Selection.Columns.Count Then
                DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
            Else
                DosyaSatiri = DosyaSatiri & Selection(i, j)
            End If
        Next j
        
        Print #1, DosyaSatiri
        
    Next i
    
    Close #1
    
    MsgBox "Dosya " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu"
    
End Sub

Necdet bey kodunuz txt aktarırken virgüllü sayıları nokta olarak aktarılması için ne yapmak gerek..

 

[ozerzeme]

Sayın Necdet Hocam aynı çalışmayı CSV(Virgülle ayrılmış) dosya türü olarak yaptırtabilirmiyiz çok önemli...