Diziye alınan CSV dosyasını Hücreye kopyalama hk.

[tamer42]

Merhaba,
Ekli CSV dosyasını aşağıdaki kod ile sayfaya aktarma yaparken;
dizi içine alınan verileri, hücreye kopyalamak isterken,
tüm satırlara arr(0) elemanı yazıyor.


Ekli "Local Windows" ekran görünütüsünde her şey normal görünüyor?

Nerede bir hata yapıyor olabilirim.
Teşekkürler,
iyi Çalışmalar.

Public Sub CSV2Array()
Dim myPath As String
Dim myFile As String

myPath = ThisWorkbook.Path

myFile = myPath & "\Test\transcript.csv"
ArrayFromCSV myFile, vbLf, ","

End Sub

Public Sub ArrayFromCSV(ByVal inpFileName As String, _
                        ByVal inpRowSeper As String, _
                        Optional ByVal inpElementSeper As String = ",")
Dim ub As Long
Dim i As Long, 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

ActiveSheet.Cells.Clear

Arr = Split(tmpStr, inpRowSeper)

ub = UBound(Arr)

 ActiveSheet.Range("A1").Resize(ub, 1).Value = Arr

End Sub

 

[Necdet]

Merhaba.

ArrayFromCSV myFile, vbLf, ","

satırını

ArrayFromCSV myFile, vbLf, vbTab

olarak değiştirin.
Ayraç virgül değil tab olmalı

 

[tamer42]

Merhaba.

ArrayFromCSV myFile, vbLf, ","

satırını

ArrayFromCSV myFile, vbLf, vbTab

olarak değiştirin.
Ayraç virgül değil tab olmalı

Necdet Hocam değişen bir şey olmadı,
Arr = Split(tmpStr, inpRowSeper)
Dizi oluşumunu vbLf etkliyor sadece, vbTab yada "," in şu an için sonuca bir etkisi yok, onu ilerisi için düşünmüştüm, bu aşamayı geçemedik henüz.
teşekkürler,

 

[Necdet]

ArrayFromCSV myFile, vbLf, vbTab

ile ben sonuca ulaşıyorum, siz nasıl ulaşamıyorsunuz anlamıyorum.

 

[tamer42]

ArrayFromCSV myFile, vbLf, vbTab

ile ben sonuca ulaşıyorum, siz nasıl ulaşamıyorsunuz anlamıyorum.

Necdet Hocam ben de bir türlü anlamadım zaten;

diziyi for .... next döngüsüne sokunca doğru geliyor,

Range("A1").Resize(ub, 1).Value = Arr

bu satırda bir numara var,

dosyayı ekledim.

iyi Çalışmalar.