• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

jäger

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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
 

Ekli dosyalar

  • 201607061345_SFJ3-1.csv
    460 bayt · Görüntüleme: 8
  • 20160706113000_SFJ3-2.csv
    460 bayt · Görüntüleme: 6
  • csv_dosya_aktarma.xlsm
    15.6 KB · Görüntüleme: 10

Zeki Gürsoy

Uzman
Katılım
7 Haz 2018
Mesajlar
40
En iyi yanıt
0
Puanları
18
Konum
Sakarya-Hendek
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

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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
 
Son düzenleme:

jäger

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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
 
Moderatör tarafında düzenlendi:

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
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

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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. (y)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt