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

Katılım
11 Nisan 2009
Mesajlar
28
Beğeniler
2
Excel Vers. ve Dili
Excel 2003
#1
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
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#6
Şö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
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#8
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
28
Beğeniler
2
Excel Vers. ve Dili
Excel 2003
#12
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
20,869
Beğeniler
192
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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