csv uzantısından veri alma

[ekoert]

Merhaba,
Kapalı csv uzantılı dosyadan makro yardımıyla veri almak istiyorum.
Sitede yer alan kapalı dosyadan veri alma konularının birçoğunu inceledim fakat sonuç alamadım.

Ekte yer alan dosyayı elle açıp kopyaladığımda bir sorun yok fakat kodla açtığımda eksik açıyor dosyayı.

Sebebini anlayamadım.

 

[veyselemre]

csv dosyanızın 1. satırında " işaretleri yanlış (düzensiz) eklenmiş, 1.satırdaki " ları kaldırıp tekrar deneyin.

 

[ekoert]

csv dosyanızın 1. satırında " işaretleri yanlış (düzensiz) eklenmiş, 1.satırdaki " ları kaldırıp tekrar deneyin.

Dosyayı manuel açıp, metni sütunlara dönüştür dediğimde hiçbir sorunla karşılaşmıyorum. Herbir sütunun altına ilgili hücreler gelmektedir.

Örnek makro dosyası(sorunlu) ektedir.

Özellikle Halit Bey'in hazırlamış olduğu çeşitli verialma kodlarını denedim, veriyi alma aşamasında eksik açmaktadır.

 

[veyselemre]

Deneyiniz;

Sub test()
    Dosya = Application.GetOpenFilename("Excel Dosyası (*.csv),*.csv", , "Hedef Dosyayı Seçin")
    If Dosya = False Then Exit Sub
    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)) = ver
        Loop
    Close #1
    Rows("1:1").Replace What:=Chr(34), Replacement:=""
End Sub

 

[ekoert]

Veysel Bey,

Çok teşekkürler, sorun çözülmüş. Fakat 41. sütuna kadar değerleri almış, Son(55.) sütundaki değerler boş geliyor.

 

[veyselemre]

Veysel Bey,
Çok teşekkürler, sorun çözülmüş. Fakat 41. sütuna kadar değerleri almış, Son(55.) sütundaki değerler boş geliyor.

            Cells(sat, 1).Resize(1, UBound(ver) [B][COLOR="Red"]+ 1[/COLOR][/B]) = ver

 

[ekoert]

            Cells(sat, 1).Resize(1, UBound(ver) [B][COLOR="Red"]+ 1[/COLOR][/B]) = ver

Veysel Bey,

Harika, çok pratik olmuş.

Çok teşekkürler.

Sayıları metin gibi görüyor, pratik bir çözümü varsa sevinirim. Yoksa ayrı bir makroyla halledeceğim.

 

[ekoert]

Range("ES1").Copy
' BOŞ BİR HÜCREYİ KOPYALA
Range("a:bc").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

Siteden bulduğum makro kodu çok yavaşlatıyor.

 

[veyselemre]

Sub test()
    Dosya = Application.GetOpenFilename("Excel Dosyası (*.csv),*.csv", , "Hedef Dosyayı Seçin")
    If Dosya = False Then Exit Sub
    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:1").Replace What:=Chr(34), Replacement:=""
    [IV1].Clear
    [IV1].Copy
    For Each sut In Array("g", "m", "n", "o", "r") 'numeric sutunları düzenleyin.
        Columns(sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Next sut
    Application.CutCopyMode = False
    
    Cells.EntireColumn.AutoFit
End Sub

 

[ekoert]

Sub test()
    Dosya = Application.GetOpenFilename("Excel Dosyası (*.csv),*.csv", , "Hedef Dosyayı Seçin")
    If Dosya = False Then Exit Sub
    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:1").Replace What:=Chr(34), Replacement:=""
    [IV1].Clear
    [IV1].Copy
    For Each sut In Array("g", "m", "n", "o", "r") 'numeric sutunları düzenleyin.
        Columns(sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Next sut
    Application.CutCopyMode = False
    
    Cells.EntireColumn.AutoFit
End Sub

Üstat çok teşekkürler.