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

Katılım
11 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
Excel 2003
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Böyle deneyin.:cool:
Kod:
Cells(J, 2) = Replace(TextLine, """", "")
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Şöyle deneyin.:cool:
Kod:
ChDir ("D:\pres_21_04_2018\28\")
Open Application.GetOpenFilename("D:\pres_21_04_2018\28\,*.txt") For Input As 1
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Başka bölümlenmiş bir direktörü açamıyor.
Belki başka bir arkadaş çözüm bulur sanırım.
Kolay gelsin.
 
Katılım
11 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
Excel 2003
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Örnek dosyanızı yollarsanız bakarım.:cool:
 
Üst