• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
11 Nisan 2009
Mesajlar
19
Beğeniler
0
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,640
Beğeniler
140
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,640
Beğeniler
140
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,640
Beğeniler
140
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.
 
Üst