txt dosyasından excel e veri alma problemi

[myaydin34]

selam arkadaşlar. bi konuda tıkanıp kaldım yardımcı olacağınızı düşünüyorum ..metin dosyasın da bir stok listem var ve excel e aktarıp sorgu yapmak istiyordum nitekim yaptım da... düşey ara komutuyla felan sorgu çalıyor.. neyse ..gelelim soruna ...txt dosyasını excelde açıyorum karakter kodunu felan ayarlıyorum sütunları felan ...aktarıyo türkçe karakterler felan düzgün geliyo fakat.. bazı stok kodlarını düzgün aktarmıyo

örneğin...
0113.E0
0113.E1
0113.E2
0113.E3
0113.E4
0113.E5
0113.E6
0113.E7
0113.E8
0113.E9

bu stok kodları excel de 1.13E+02 gibi 1.13e+03 gibi gösteriyo... bu genelde.. .excel in hesap makinesi gibi çalışmasından kaynaklanıyo ama düzeltemedim

hücre biçimlendirden .. de genel sekmesini seçtim... diğerlerini denedim..farklı karakterlerde import ettim excel e yine aynı şekilde algılıyorr bu özelliği nasıl iptal edebilirim veya düzeltebilirim

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir yapı kullanırsanız, sorunsuz olarak veriler aktarılır.

Burada; "stok.txt" adında "C:\" dizinin altında bir dosya olduğu varsayılmıştır. Aşağıdaki örnek Excel dosyasındaki kodu çalıştırmadan önce, "stok.Txt" dosyasını "C:\" dizininin altına kopyalayınız.

Option Explicit
Sub Txt_Veri_Al()
    Dim fso As Object
    Dim i As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso.GetFile("C:\stok.txt").OpenAsTextStream
        Do
            i = i + 1
            Cells(i, 1) = "'" & .readline
        Loop While .AtEndOfLine = False
        .Close
    End With
End Sub