Office: (Office 2007) CSV Datei jeden morgen automatisch importieren

ebs17 · 8. September 2013

Code:

Sub Link_CSV()

' Hoffentlich ist die CSV da.
' Dateibezeichnung beispielhaft: EXPORTW_0012_V00007_09092013_100608.csv
Dim sPath As String
Dim sFile As String
sPath = "X:\Irgendwo\"

sFile = Dir$(sPath & "EXPORTW_0012_V00007_*.csv")
Do While sFile > vbNullString
If Split(sFile, "_")(3) = Format$(Date, "ddmmyyyy") Then
' 0) Ggf. prüfen, ob Link geändert werden soll
' 1) Lösche alten Link
' 2) Erstelle Link mit sPath+sFile
' 3) Initialisiere Import
Exit Do
Else
' Debug.Print "Keine aktuelle CSV vorhanden"
End If
sFile = Dir
Loop

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

beträchtliche Performancesteigerung bei der Auslese des Recordsets
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OK. Bei diesen Datenmengen hilft da ein Index in der Datenbanktabelle zusätzlich. Bei einem Import würde allerdings der Index etwas bremsen (was aber mit zwei drei zusätzlichen Schritten vermeidbar ist).

nvr1337 · 7. Januar 2021

von ebs17

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub Link_CSV()

' Hoffentlich ist die CSV da.
' Dateibezeichnung beispielhaft: EXPORTW_0012_V00007_09092013_100608.csv
Dim sPath As String
Dim sFile As String
sPath = "X:\Irgendwo\"

sFile = Dir$(sPath & "EXPORTW_0012_V00007_*.csv")
Do While sFile > vbNullString
If Split(sFile, "_")(3) = Format$(Date, "ddmmyyyy") Then
' 0) Ggf. prüfen, ob Link geändert werden soll
' 1) Lösche alten Link
' 2) Erstelle Link mit sPath+sFile
' 3) Initialisiere Import
Exit Do
Else
' Debug.Print "Keine aktuelle CSV vorhanden"
End If
sFile = Dir
Loop

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für den Code.
Läuft 1A.
*Smilie

Office: (Office 2007) CSV Datei jeden morgen automatisch importieren

CSV Datei jeden morgen automatisch importieren

CSV Datei jeden morgen automatisch importieren

CSV Datei jeden morgen automatisch importieren - Similar Threads - CSV Datei automatisch

Farbspeicherung in CSV-Datei

CSV Dateien mit unterschiedlichen Format importieren und zusammenführen

csv Import Tabelle mit viel Inhalt in einer Zelle

CSV Datei lässt sich nicht importieren

Exportieren von Kontakten von Outlook.com in eine CSV-Datei

alle csv Dateien in eine lokale Tablle im Access importieren

CSV-Dateien werden mit falschen Umlauten eingelesen