täglicher csv import
30.06.2014 12:21:51
Alexander
Ich hab folgendes vor. Ich bekomme täglich eine csv Datei in den selben Ordner gestellt. Bei dem Dateinamen sind nur die ersten vier Zahlen gleich, der Rest variiert nach belieben (auch nur Zahlen). Wenn ich nun die DB öffne, soll das Programm alle neuen CSV Dateien importieren (ab Zeile 4) und dann löschen (in dem Ordner sind noch weitere Dateien enthalten).
Am liebsten wäre es mir, wenn das Programm die Daten auch gleich aufbereitet. z.B. wird das Datum ohne Punkt geliefert. (Beispiel: 240614).
Das hab ich bis jetzt, aber es gibt da ein kleines Problem.
Option Compare Database
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Const cstrDelim As String = ";" 'Trennzeichen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Name*"
.InitialFileName = "C:\*.csv"
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName "" Then
Application.ScreenUpdating = FalseBildschirms 'bzw. nur false
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cstrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, 6)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If
End Sub
Der genaue Fehler lautet: "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden" Er zeigt immer an, dass was mit der Application nicht stimmt... "die methode 'filedialog' für das objekt '_application' ist fehlgeschlagen".
Das ist ein Runtime Error, oder?
Ich hoffe auf eure Hilfe, vielen Dank!
Alexander