Dosya ismini macro ile kaydetme.

[izenger]

Arkadaşlar merhaba,

Ekte göndermiş olduğum dosyada txt oluştur macrosunu alıntılar kullanarak yaptım.

Fakat butona bastığımda dosya ismini sormasını istiyorum.

Yardımcı olursanız memnun olacağım. Teşekkürler.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub txt_oluştur()
    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
    
    DosyaAdi = Application.InputBox("Dosya Adı Giriniz")
    If DosyaAdi = "" Then Exit Sub
    If DosyaAdi = False Then Exit Sub
    
    DosyaYolu = "C:\ebyn\Ba Bs"
    YolAyirici = Application.PathSeparator
     DosyaAdi = DosyaAdi & ".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

 

[izenger]

Korhan bey kod tam istediğim gibi olmuş teşekkürler. Fakat dosya ismine 0075 yazdığımda oluyor, 0075ba veya 0075 BA yazdığımda hata veriyor bu hatayı nasıl çözebiliriz.

 

[izenger]

Arkadaşlar bu konu hakkında yardımcı olacak kimse yokmu acaba.