Txt Veri Alırken Belirli İşaretleri Kaldırma

[cember68]

Merhaba.Aşağıdaki kod ile herhengi bir TXT dosyasından veri alıyorum.Aldığım verilerde satır başında ve sonunda " işareti var(örnek: "Yapı Denetim").Bu işareti veri alırken nasıl kaldırabilirim?


Sub ImportFile()

Dim J As Long, K As Long
Close #1

Open Application.GetOpenFilename("D:\pres_21_04_2018\28\,*.txt") For Input As 1

J = 1
K = 0
Do While Not EOF(1)
K = K + 1
Line Input #1, TextLine
If K > 0 And K < 343 Then
Cells(J, 2) = TextLine
J = J + 1
End If

Loop
Close #1

End Sub

 

[Orion1]

Böyle deneyin.

Cells(J, 2) = Replace(TextLine, """", "")

 

[cember68]

Böyle deneyin.

Cells(J, 2) = Replace(TextLine, """", "")

Çok Teşekkür ederim Hocam sağolun.Acemice soru olabilir benimki kusura bakmayın.Daha yeniyim programda.

 

[Orion1]

Çok Teşekkür ederim Hocam sağolun.Acemice soru olabilir benimki kusura bakmayın.Daha yeniyim programda.

Oldumu?

 

[cember68]

Oldumu?

Oldu hocam .Gayet güzel .Bir sıkıntım daha var.Dosya yolu ("D:\pres_21_04_2018\28\,*.txt") yazmama rağmen programı her açtığımda dosya yolu olarak Bilgisayarım....Documents kısmını açıyor.

 

[Orion1]

Şöyle deneyin.

ChDir ("D:\pres_21_04_2018\28\")
Open Application.GetOpenFilename("D:\pres_21_04_2018\28\,*.txt") For Input As 1

 

[cember68]

Şöyle deneyin.

ChDir ("D:\pres_21_04_2018\28\")
Open Application.GetOpenFilename("D:\pres_21_04_2018\28\,*.txt") For Input As 1

Yine aynı yeri açtı Hocam.

 

[Orion1]

Başka bölümlenmiş bir direktörü açamıyor.
Belki başka bir arkadaş çözüm bulur sanırım.
Kolay gelsin.

 

[cember68]

Başka bölümlenmiş bir direktörü açamıyor.
Belki başka bir arkadaş çözüm bulur sanırım.
Kolay gelsin.

Tamam Hocam .Çok Teşekkür ederim.Çözüm yolu araştırayım biraz daha.

 

[cember68]

Başka bölümlenmiş bir direktörü açamıyor.
Belki başka bir arkadaş çözüm bulur sanırım.
Kolay gelsin.

Hocam ChDir yerine ChDrive yazdım oldu.Kolay gelsin.

 

[Orion1]

Hocam ChDir yerine ChDrive yazdım oldu.Kolay gelsin.

Tebrikler.
Kolay gelsin.

 

[cember68]

Hocam Excel 2013 de yazılmıştı fakat 2007 de

Do While Not EOF(1)

satırında hata veriyor (error 52) neden olabilir?

 

[Orion1]

Örnek dosyanızı yollarsanız bakarım.