Çö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 İyi Yanıtlar
0
Beğeniler
1
Puanları
1
Yaş
20
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
#1
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

jäger

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
15
En İyi Yanıtlar
0
Beğeniler
1
Puanları
1
Yaş
20
Konum
Türkiye
Ad Soyad
Sezer Ulusoy
#2
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