jäger
Yeni Üye
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