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

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

[adnankarabacak]

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 .

[necdet.y]

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.

[nokia]

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

[egeninssi]

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.

[hakanbahar]

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.

[leventkuruc-jz]

hocam bunu excele aktaran bir yordam da ekleseydiniz keşke