- Katılım
- 19 Kasım 2021
- Mesajlar
- 80
- Excel Vers. ve Dili
- Excel 2016
- Altın Üyelik Bitiş Tarihi
- 19-11-2022
Öncelikler merhaba arkadaşlar
Bu kodda CSV. dosyasını veri al yapıyorum. Ben verileri csv. den ayrılmış olarak istiyorum. Bu mümkün mü teşekkür ederim.
Sub verial()
'veri alımı 2016
dosya = Application.GetOpenFilename("Excel Dosyası (*.csv),*.csv", , "Hedef Dosyayı Seçin")
If dosya = False Then Exit Sub
Application.ScreenUpdating = False
Cells.ClearContents
Open dosya For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
sat = sat + 1
ver = Split(TextLine, "|")
Cells(sat, 1).Resize(1, UBound(ver) + 1) = ver
Loop
Close #1
Rows("1:4").Replace What:=Chr(34), Replacement:=""
Application.ScreenUpdating = True
MsgBox "Veri kopyalandı"
Range("a1").Select
End Sub
Bu kodda CSV. dosyasını veri al yapıyorum. Ben verileri csv. den ayrılmış olarak istiyorum. Bu mümkün mü teşekkür ederim.
Sub verial()
'veri alımı 2016
dosya = Application.GetOpenFilename("Excel Dosyası (*.csv),*.csv", , "Hedef Dosyayı Seçin")
If dosya = False Then Exit Sub
Application.ScreenUpdating = False
Cells.ClearContents
Open dosya For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
sat = sat + 1
ver = Split(TextLine, "|")
Cells(sat, 1).Resize(1, UBound(ver) + 1) = ver
Loop
Close #1
Rows("1:4").Replace What:=Chr(34), Replacement:=""
Application.ScreenUpdating = True
MsgBox "Veri kopyalandı"
Range("a1").Select
End Sub
