Çözüldü csv dosyalarını excele aktarma

jäger · 16 Ağu 2018

merhaba arkadaslar,
ekte ki calismayi yaparken csv dosyalarini excele aktarirken sorun yasadim.surekli olarak artan sekilde olusturulan csv dosyalarini excel e aktarirken dosya icindeki tum bilgileri degil de belirli bilgileri veya csv dosyalarinin sadece 2.satirlarini excel e aktarmak istiyorum.Bu konuda yardimci olabilirseniz sevinirim...

iyi aksamlar

Zeki Gürsoy · 16 Ağu 2018

Aşağıdaki prosedur işinizi görecektir...

PHP:

Sub Test()
    Const PATH = "C:\vba\vba\"
    
    d = Dir(PATH & "*.csv")
    
    If d = "" Then
        MsgBox "CSV bulunamadı"
        Exit Sub
    End If
    
    While d <> ""
    
        i = i + 1
        
        arr = GetValues(PATH & d)
        
        Range("a" & i).Resize(, UBound(arr) + 1) = arr
        
        d = Dir
    Wend
    
End Sub

Private Function GetValues(ByVal FileName As String)
    Dim s As String
    
    Open FileName For Input As #1
        s = Input(LOF(1), #1)
    Close
    
    GetValues = Split(Split(s, vbNewLine)(1), ",")
End Function

jäger · 17 Ağu 2018

Iyi aksamlar Zeki Bey,
ellerinize saglik cok iyi olmus ...acaba excel de csv dosyasi bilgilerinin excel e 3.satirdan itibaren kopyalanmasi icin ne yapilabilir?...
acaba csv dosyasinin 2.satirini kopyala komutunu hangi komutla verdiniz,anlamaya calisiyorum da...
tesekkurler

jäger · 17 Ağu 2018

tekrar merhabalar,
yukari da sordugum sorularin cevabini buldum..
acaba bir sey daha ekleyebilirmiyiz.csv dosyalarini excel e aktarirken,her dosyayi alt alta degilde üst üste nasil kaydederiz..yani en guncel eklenen csv dosyasi excel de 3.satirda olsun...baska dosya eklenirse 3.satira yeni eklenen,eskisi ise 4.satira kaysin gibi..

Murat OSMA · 17 Ağu 2018

Merhabalar,

Zeki Bey'e saygısızlık etmemek adına yanıt vermesini bekledim fakat müsait değil sanırım, o yüzden sizi de bekletmemek için aşağıdaki kodları önerebilirim.

Kodlarınızdaki ilgili yeri bu şekilde değiştirebilirsiniz. 3. satırdan başlayıp istediğiniz düzende üst üste verileri kaydedecektir.

PHP:

    i = 3
    While d <> ""
        arr = GetValues(dizin & d)
        Range("a" & i).Resize(, UBound(arr) + 1) = arr
        d = Dir
        If d <> "" Then
            Rows(i).Insert
            i = i + 1
        End If
        i = i - 1
    Wend

jäger · 17 Ağu 2018

cok tesekkurler anlayisiniz icin ...
bir sorun olustu söyle ki;
istedigim gibi dosyalari yükluyo fakat her dügmeye her bastigimda tekrar ayni yüklenen dosyalari alt satira ekliyor(tekrarliyor)

Kod:

Sub Schaltfläche1_Klicken()
Const PATH = "C:\vba\vba\"
    d = Dir(PATH & "*.csv")
    If d = "" Then
        MsgBox "CSV datei nicht finden"
        Exit Sub
    End If
    i = 3
    While d <> ""
        arr = GetValues(PATH & d)
        Range("a" & i).Resize(, UBound(arr) + 1) = arr
    If d <> " " Then
        Rows(i).Insert
        i = i + 1
    End If
    i = i - 1
    d = Dir
    Wend
End Sub

Private Function GetValues(ByVal FileName As String)
    Dim s As String
    Open FileName For Input As #1
        s = Input(LOF(1), #1)
    Close
    GetValues = Split(Split(s, vbNewLine)(1), ";")
End Function

Murat OSMA · 17 Ağu 2018

Ne yapsın istiyorsunuz?
Butona her bastığınızda önce sayfadaki verileri silsin, sonra listesin mi?

Not: Bu arada daha önce uyarmadım sizi fakat, Türkçe yazım kurallarına olabildiğince uygun yazmaya özen gösteriniz.

jäger · 17 Ağu 2018

Merhabalar,
c klasörünün icerisinde ki tüm csv dosyalari excel'e aktarilsin ve bunlar excel'de kaydedilsin.c klasöründe yeni olusturulan csv dosyasini excel'e aktarmak istedigimde bu yeni dosya excel de a3 satirina gelsin.Kayitli bulunan eski dosyalar ise bir alt satira kaydirilsin...

Not:Su an yurtdisinda bulundugum icin calistigim bilgisayar yabanci dile ayarlanmis,degistirmek istemedim ayarlarini.Kusura bakmayin

Murat OSMA · 17 Ağu 2018

Anladım.. O yüzden olabildiğince uygun yazmaya özen göstermenizi istedim.

i =3 yazan satırdan önce bu satırı ekleyin..

PHP:

Range("A3:R50000").ClearContents

jäger · 17 Ağu 2018

Size de , Zeki Bey'e de cok tesekkürler
ellerinize saglik,kusura bakmayin zamaninizi aldim..
ben de ögrenmeye calisiyorum ama cok zamana ihtiyacim var görülen.
Iyi calismalar

Murat OSMA · 17 Ağu 2018

Profilinizdeki bilgilere göre genç görünüyorsunuz, bu işte daha çok yolunuz/zamanınız var, öğrenme isteğiniz de varsa kısa sürede hızlıca ilerleyebilirsiniz. VBA'nın size ne kadar zaman kazandırdığını görüyorsunuz. Ona göre biraz üzerine düşmeli ve mutlaka öğrenmelisiniz.

İyi günler.

Zeki Gürsoy · 17 Ağu 2018

Admin' Alıntı:
Zeki Bey'e saygısızlık etmemek adına yanıt vermesini bekledim

Sıkıntı yok.

Murat OSMA · 17 Ağu 2018

Eyvallah.

Çözüldü csv dosyalarını excele aktarma

Daha fazla seçenek

jäger

Ekli dosyalar

Zeki Gürsoy

jäger

jäger

Murat OSMA

jäger

Murat OSMA

jäger

Murat OSMA

jäger

Murat OSMA

Zeki Gürsoy

Murat OSMA