jerry0110
Erfahrenes Mitglied
Hi,
ich habe folgende Herausforderung:
1. möchte ich die Datei speichern, ohne das er nachfragt ob sie gespeichert werden soll oder überschrieben werden soll.
2. möchte ich gerne den bei dem Punkt (siehe Codeschnipsel) das ich in der Exel ein Datum angeben will (z.B. 01.01.2016) und der Code nimmt das als Variable und öffnet den Ordner mit dem richtigen Datum.
Das ist der gesamte Code
ich habe folgende Herausforderung:
1. möchte ich die Datei speichern, ohne das er nachfragt ob sie gespeichert werden soll oder überschrieben werden soll.
2. möchte ich gerne den bei dem Punkt (siehe Codeschnipsel) das ich in der Exel ein Datum angeben will (z.B. 01.01.2016) und der Code nimmt das als Variable und öffnet den Ordner mit dem richtigen Datum.
Code:
sPath = "\\2015-11 Monatsabschluss\xyz\"
Das ist der gesamte Code
Code:
Private Sub CSVSeverins()
Dim sFile As String, sPath As String, iFree As Integer
Dim arrCSV, arrTmp, arrXLS(), i As Long, j As Integer, n As Long
Dim zFile As String
sPath = "\\2015-11 Monatsabschluss\xyz\"
sFile = Dir(sPath & "*.csv")
zFile = "BWA xyz"
Application.ScreenUpdating = False
Do While Len(sFile)
iFree = FreeFile
Open sPath & sFile For Input As iFree
arrCSV = Split(Input(LOF(iFree), iFree), vbCrLf)
Close iFree
For i = 0 To UBound(arrCSV)
arrTmp = Split(arrCSV(i), ";")
n = Application.Max(n, UBound(arrTmp))
Next
ReDim arrXLS(1 To UBound(arrCSV) + 1, 1 To n + 1)
For i = 0 To UBound(arrCSV)
arrTmp = Split(arrCSV(i), ";")
For j = 0 To UBound(arrTmp)
arrXLS(i + 1, j + 1) = arrTmp(j)
Next
Next
With Workbooks.Add
.Sheets(1).Cells(1, 1).Resize(UBound(arrXLS), UBound(arrXLS, 2)) = arrXLS
.SaveAs sPath & Mid(zFile, 1, Len(sFile) - 4)
Spaltenerstellen
fillFields1
.Close
End With
sFile = Dir
Loop
End Sub