Dosya Adi Degisirse?

[mtozer]

:yardim: Merhaba Arkadaslar;

verilen ornekte Ornek.txt dosyasi okutuluyor:

Benim sorunum Dosya ismi surekli degisecek yani ORNEK1, ORNEK2.... diye
bunun icin excel de bir hucreye dosya ismi yazip daha sonra butona basinca bu olayin gerceklesmesini istiyorum yani su satirla oynamak istiyorum: (Dosya = "C:\Documents and Settings\Desktop\ÖRNEK.txt") nasil yapabilirim?
Yardimci olursaniz sevinirim.

Sub TXT_DOSYADAN_EXCELE_VERİ_AKTAR()
Dosya = "C:\Documents and Settings\Desktop\ÖRNEK.txt"
Open Dosya For Input As #1
Do While Not EOF(1)
Line Input #1, Kayıt
Satır = Satır + 1
Cells(Satır, 1) = Mid(Kayıt, 1, 7)
Cells(Satır, 2) = Mid(Kayıt, 8, 5)
Cells(Satır, 3) = Convert(Mid(Kayıt, 13, 16))
Cells(Satır, 4) = Convert(Mid(Kayıt, 29, 15))
Cells(Satır, 5) = Convert(Mid(Kayıt, 44, 12))
Cells(Satır, 6).NumberFormat = "@"
Cells(Satır, 6) = Mid(Kayıt, 56, 17)
Cells(Satır, 7).NumberFormat = "@"
Cells(Satır, 7) = Mid(Kayıt, 73, 3)
Cells(Satır, 8).NumberFormat = "@"
Cells(Satır, 8) = Mid(Kayıt, 76, 14)
Cells(Satır, 9) = Mid(Kayıt, 90, 2) & "." & Mid(Kayıt, 92, 2) & "." & Mid(Kayıt, 94, 4)
Cells(Satır, 10) = Convert(Mid(Kayıt, 100, 11))
Cells(Satır, 11) = Mid(Kayıt, 111, 9)
Cells(Satır, 12) = Convert(Mid(Kayıt, 120, 29))
Cells(Satır, 13) = Mid(Kayıt, 149, 12)
Loop
Close #1
Cells.EntireColumn.AutoFit
End Sub

Function Convert(Veri As String)
Veri = Replace(Veri, Chr(154), "Ü")
Veri = Replace(Veri, Chr(166), "Ğ")
Veri = Replace(Veri, Chr(158), "Ş")
Veri = Replace(Veri, Chr(128), "Ç")
Veri = Replace(Veri, Chr(153), "Ö")
Veri = Replace(Veri, Chr(152), "İ")
Convert = Replace(Veri, Chr(15), "")
End Function

 

[Recep İpek]

a1 hücresine dosyanızın tam yolunu yazarak

Sub TXT_DOSYADAN_EXCELE_VERİ_AKTAR()
Dosya = Range("a1")

olarak deneyiniz.

 

[mtozer]

Dosya Yolu!

Merhaba

Dosya nın tam yolu formun icerisinde kalmasi gerek
sadece dosyanın adini A1 e yazabilecegim yol varmi? yolu oraya yazarsam dosya adini nereye yazmaliyim?

 

[Recep İpek]

O zaman

Dosya = "C:\Documents and Settings\Desktop\" & [a1] & ".txt"


olarak deneyiniz.

 

[mtozer]

Tesekkurler.

Tesekkur ederim cok isime yaradi.:hihoho: