CSV DOSYASININI DİREKT ARRAY'E AKTARMA - EXCEL'E GEREK YOK

VBA VE EXCEL İLE İLGİLİ KURUMSAL VE BİREYSEL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.
Option Explicit
Public Sub CSV2Array()
ArrayFromCSV "Sizin_Dosya_Yolunuz.csv", vbLf, ","
End Sub
Public Sub ArrayFromCSV(ByVal inpFileName As String, _
ByVal inpRowSeper As String, _
Optional ByVal inpElementSeper As String = ",")
Dim i As Long
Dim j As Long
Dim tmpStr As String
Dim arr As Variant
Dim arr2 As Variant
Dim arrCSV As Variant
Open inpFileName For Binary As #1
tmpStr = Space$(LOF(1))
Get #1, , tmpStr
Close #1
arr = Split(tmpStr, inpRowSeper)
For i = LBound(arr) To UBound(arr)
arr2 = Split(arr(i), inpElementSeper)
If i = LBound(arr) Then ReDim arrCSV(LBound(arr) To UBound(arr), _
LBound(arr2) To UBound(arr2))
For j = LBound(arr2) To UBound(arr2)
arrCSV(i, j) = arr2(j)
Next j
Next i
MsgBox "Veriler CSV'den Array'e Aktarilmistir", _
vbInformation, "Sayin " & Environ("UserName")
End Sub

[@adnankarabacak5878]

Bizlere Vakit ayirdiginiz icin cok Tesekkürler Hocam. Cok güzel bir Sözünüz vardi...Excele hic bulasmadan arka planda islemleri yapiniz . tek kelime, Harikasiniz .

[@UzmanExcel]

Çok teşekkür ederim Adnan Bey. Aynen öyle. Excel bir araç olsun sadece

[@MrSepetx]

Döktürmüşsun yine, emeğine sağlık.

[@UzmanExcel]

Çok teşekkür ederim Selçuk. Özlettin kendini. Görüşelim bi ara

[@necdet.yesertener]

Gerçekten çok hızlı, teşekkürler Mehmet bey, ayrıca kodları da hazır sunmanız için ayrıca teşekkür ederim.

[@UzmanExcel]

Rica ederim. Çok naziksiniz. Kodları sizin yazmanız daha iyi olurdu ama artık bu şekilde paylaşmaya çalışacağım.

[@necdet.yesertener]

@@UzmanExcel Kodları kendim yazmayı deniyorum ama bazen hem izle hem kod yaz olunca arada yanlışlık yapılabiliyor. O yüzden bir yorumda bundan sözetmiştim. Teşekkürler yine.

[@recepogretmenkodlama917]

Çok teşekkürler.Harika olmuş.

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz

[@yasaroguzocaktan9005]

Ilaç gibi geldi.

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz

[@nokia1972]

Allah razı olsun, elinize emeğinize sağlık. Bu seviyeye gelmek için neler yapabiliriz önerileriniz nedir.

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz. Kanaldaki eğitim videolarını izleyerek pratik yapmanız gerekli

[@egenins3si]

merhaba hocam
ReDim arrCSV(LBound(arr) To UBound(arr), LBound(arr2) To UBound(arr2))
variant (1 to 45, 1 to 6)
ikincisini bulduramıyorum.
LBound(arr) To UBound(arr) bununla ilki geliyor.
arr içinde alt satırda 6 satır daha var onun sayısını nasıl bulabiliriz.

[@UzmanExcel]

Lbound(arr, 2) yazabilirsiniz

[@leventkuruc-j6z]

hocam bunu excele aktaran bir yordam da ekleseydiniz keşke

[@UzmanExcel]

O sa baska videoya insallah

[@hakanbahar5286]

Allah razı olsun. Bir sorum olacak metni kaydır komutunu kullandığımda hücre içine kaç tane harf yada rakam yazdığımda satır yüksekliğinin artacağını nasil bulabilirim.

[@UzmanExcel]

Metni kaydir galiba wrap text fonksiyonu. Tam bilmiyorum ama format için denemek gerekli

[@hakanbahar5286]

@@UzmanExcel Evet onunla yapılıyor. Ama ne kadarlık karakterden sonra metni kaydıracagini bilmiyorum.

[@UzmanExcel]

@@hakanbahar5286 Vaktim olunca bakayım inşallah

[@hakanbahar5286]

@@UzmanExcel Tamamdır sagolun