Çözüldü: txt metin dosyasından veri almak.

[can34frht]

Merhabalar. Sabit bir metin dosyasından, örnek.txt içinden yer alan verileri kopyalayıp mevcut excel kitabımın örnek sayfası içine A2 hücresinden başlayarak yapıştırmasını istediğim bir makro konusunda yardımcı olabilir misiniz? Teşekkürler.

 

[Ouzz_z]

Sub TxtOku()

    Dim DosyaYolu As String
    Dim Satir As String
    Dim i As Long
    Dim ff As Integer
    
    DosyaYolu = Application.GetOpenFilename("Metin Dosyası (*.txt),*.txt")
    If DosyaYolu = "False" Then Exit Sub
    
    ff = FreeFile
    Open DosyaYolu For Input As #ff
    
    i = 1
    Do Until EOF(ff)
        Line Input #ff, Satir
        Cells(i, 1).Value = Satir
        i = i + 1
    Loop
    
    Close #ff

End Sub

 

[can34frht]

Sub TxtOku()

    Dim DosyaYolu As String
    Dim Satir As String
    Dim i As Long
    Dim ff As Integer
   
    DosyaYolu = Application.GetOpenFilename("Metin Dosyası (*.txt),*.txt")
    If DosyaYolu = "False" Then Exit Sub
   
    ff = FreeFile
    Open DosyaYolu For Input As #ff
   
    i = 1
    Do Until EOF(ff)
        Line Input #ff, Satir
        Cells(i, 1).Value = Satir
        i = i + 1
    Loop
   
    Close #ff

End Sub

öncelikle teşekkür ederim ama yazacağımız kod içinde text dosyasını seçmek istemiyorum. örnek:

text için dosya yolu= c:/ deneme/abc.text
bunun içindeki verileri cekeceğim excel de dosya yolu = d: değerleme.xlsm ( bu excel dosyasının " sayfa2" sinin A2 sütünuna çekilen veri yapıştırılacak)

 

[Ouzz_z]

Sub TxtOku()
    Dim DosyaYolu As String
    Dim Satir As String
    Dim i As Long
    Dim ff As Integer
    Dim yazSat As Long
    yazSat = 2
    DosyaYolu = "C:\deneme\abc.txt"
    If DosyaYolu = "False" Then Exit Sub
    
    ff = FreeFile
    Open DosyaYolu For Input As #ff
    
    i = 1
    Do Until EOF(ff)
        Line Input #ff, Satir
        ActiveWorkbook.Worksheets("Sayfa2").Range("A" & yazSat).Value = Satir
        i = i + 1
        yazSat = yazSat + 1
    Loop
    
    Close #ff

End Sub

 

[can34frht]

Sub TxtOku()
    Dim DosyaYolu As String
    Dim Satir As String
    Dim i As Long
    Dim ff As Integer
    Dim yazSat As Long
    yazSat = 2
    DosyaYolu = "C:\deneme\abc.txt"
    If DosyaYolu = "False" Then Exit Sub
   
    ff = FreeFile
    Open DosyaYolu For Input As #ff
   
    i = 1
    Do Until EOF(ff)
        Line Input #ff, Satir
        ActiveWorkbook.Worksheets("Sayfa2").Range("A" & yazSat).Value = Satir
        i = i + 1
        yazSat = yazSat + 1
    Loop
   
    Close #ff

End Sub

Emeğinize sağlık tam istediğim gibi çalıştı. Çok teşekkür ederim.