CSV Dosyasindan Excele Import – ECB Kurlari

text_csv

CSV dosyasindan excele veri alma ile ilgili bir ornek paylasacagiz, bu ornek dosyamizda ECB’ den (Avrupa Merkez Bankasi) aldigimiz verileri kullanacagiz.

Sitenin paylastigi kur dosyalari csv olarak veriliyor, bu dosyayi ekte bulabileceksiniz, ayrica siteden istediginiz zaman indirebilirsiniz. Bu tarz ornekler icin hem ayni indirme klasorunu kullanarak guncellemelerinizi de yapabilirsiniz.

'Parametreler
Sub InitiateImportCSVFile()
Dim filePath As String
Dim ImportToRow As Integer
Dim StartColumn As Integer
    filePath = "C:UsersmustafaDesktopeurofxref-hist.csv"
    ImportToRow = 1 'Yazmaya baslanacak satir
    StartColumn = 1 'Yazmaya baslanacak sutun
    ImportCSVFile filePath, ImportToRow, StartColumn
End Sub
Sub ImportCSVFile(ByVal filePath As String, ByVal ImportToRow As Integer, ByVal StartColumn As Integer)
    Dim line As String
    Dim arrayOfElements
    Dim element As Variant

    Open filePath For Input As #1
        Do While Not EOF(1) ' Loop - Dosya sonuna kadar
            ImportToRow = ImportToRow + 1
            Line Input #1, line
            Debug.Print line
            arrayOfElements = Split(line, ",")
            'Elementleri ayirip yazma dongusu
            For Each element In arrayOfElements
            If InStr(1, element, "-") > 0 Then ' Ornek csvmizde "-" isareti iceren tarih metinleri var, satir atlamak icin kriter olarak kullaniyoruz.
                ImportToRow = ImportToRow + 1
                StartColumn = 1
                Cells(ImportToRow, StartColumn).Value = element
                StartColumn = StartColumn + 1
            Else
                Cells(ImportToRow, StartColumn).Value = element
                StartColumn = StartColumn + 1
            End If
            Next
        Loop
    Close #1 ' Dosyayi kapat
End Sub

ornek kod uzerine ufak notlar var fakat anlamadiginiz bolumleri lutfen paylasiniz.

ECB Kurlari

ECB Kurlari (Kurlar)

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 1 =