VERİ AL HATASI !!!!

[BBBBuRaKKKK]

Ö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

 

[ÖmerFaruk]

Forumda bir çok örnek var.
https://www.google.com/search?q=csv+dosyasından+ayrılmış+olarak+verileri+çekme+excek+VBA+excel.web.tr&rlz=1C1CHZO_trTR969TR969&sxsrf=AOaemvLyPT0h_qxfFdnx4DRYUtCncyzlHA:1638748996696&ei=RFOtYdDjKdCW9u8PutKIsAE&ved=0ahUKEwjQlcve7830AhVQi_0HHTopAhYQ4dUDCA4&uact=5&oq=csv+dosyasından+ayrılmış+olarak+verileri+çekme+excek+VBA+excel.web.tr&gs_lcp=Cgdnd3Mtd2l6EAM6BwgAEEcQsAM6BQgAEM0COgcIIRAKEKABOgQIIRAKSgQIQRgAUMoEWKAbYN0caAFwAXgCgAGHB4gB4yCSAQ0wLjYuMi4yLjAuMS4ymAEAoAEByAEIwAEB&sclient=gws-wiz

 

[BBBBuRaKKKK]

Teşekkür ederim