- 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
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

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

Ekli dosyalar
-
623 bayt Görüntüleme: 3