Txt dosyasını excel ile açmak

[fyucel]

Değerli Arkadaşlar Bir Txt dosyasını Excel ile açtığımda, bu dosya içindeki sütunlarda bulunan 1/1 gibi bazı değerleir tarih olarak algılyor bunu engelleyebilirmiyim. Yardım ederseniz sevinirim.

 

[Metin Karaağaç]

Şöyle bir yol önerebilirim.
Excel'i açın, Dosya/Aç deyin.
Dosya türü olarak "metin dosyaları" deyin.
Açmak istediğiniz metin dosyasını seçin ve açın.
Bir pencere gelecek, bu pencereden ileri/ileri diyerek geçin ancak 3.adımda sağda seçenekler göreceksiniz. Orada "sütun veri biçimi"ni "METİN" olarak değiştirin ve açın.
Yalnız bu yöntemde bütün değerler metin oalrak açılır. Yani rakamları tekrar seçip, sayı olarak düzeltmeniz gerekir.

 

[halit3]

Değerli Arkadaşlar Bir Txt dosyasını Excel ile açtığımda, bu dosya içindeki sütunlarda bulunan 1/1 gibi bazı değerleir tarih olarak algılyor bunu engelleyebilirmiyim. Yardım ederseniz sevinirim.

örnek dosyanızı ekleyiniz belki farklı bir çözüm yolları olabilir

 

[fyucel]

Cevabınız için teşekkür ederim, bu yöntemi daha önce denemiştim ama olmuyor, ekte örnek dosyayı gönderiyorum, saygılar

 

[Orion1]

Cevabınız için teşekkür ederim, bu yöntemi daha önce denemiştim ama olmuyor, ekte örnek dosyayı gönderiyorum, saygılar

Dosyanız ektedir.
Her 2 dosyada ayni klasörde olamalıdır.

Sub txt_veri_al()
Dim deg, k As Integer, a As String, sat As Long, sut As Integer
Application.ScreenUpdating = False
Range("B2:IV65536").Clear
sat = 2
Open (ThisWorkbook.Path & "\malikler.txt") For Input As #1
Do While Not EOF(1)
    Line Input #1, a
    deg = Split(a, Chr(179))
    sut = 1
    For k = LBound(deg) To UBound(deg)
        If IsDate(deg(k)) Then
            Cells(sat, sut).Value = "'" & deg(k)
            Else
            Cells(sat, sut).Value = deg(k)
        End If
        sut = sut + 1
        Cells(sat, sut).Value = "³"
        sut = sut + 1
    Next
    sat = sat + 1
Loop
Close #1
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[fyucel]

Teşekkür ederim Evren kardeş bu makro çok işime yarayacak

 

[Orion1]

Teşekkür ederim Evren kardeş bu makro çok işime yarayacak

Rica ederim.
İyi çalışmalar.