• 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 ";" 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
Merhabalar,
bir sorum daha olacakti.
csv dosyasinin verileri arasinda ";" isareti oldugunda excele örnegin veriler ""2.14"" seklinde aktariliyor.Bunu nasil engelleyebilirim?

Tesekkürler

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
Range("A3:XFD65536").ClearContents
i = 3
While d <> ""

arr = GetValues(PATH & 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
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


1534747044181.png
 

Ekli dosyalar

  • 123-d.csv
    623 bayt · Görüntüleme: 8

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;
GetValues = Split(Split(s, vbNewLine)(1), Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34))

kismini bu sekilde degistirdigimde sorun ortadan kalkiyor gibi..
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt