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
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