Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nur neue zeilen hinzufügen

nur neue zeilen hinzufügen
17.10.2005 11:22:09
lexika
HI,
kann mir vielleicht jemand sagen wie ich folgenden code verändern muß damit nicht alles doppelt eingelesen wird?

Function NeuesteDatei() As String
Const Pfad = "D:\excel\Neu\1\"
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
Dim f_csv As String, f_cxv As String
fn = Dir("D:\excel\Neu\1\*.csv")
Do While fn <> ""
fd = Replace(fn, ".csv", "")
If IsDate(fd) Then
If CDate(fd) > d Then
d = CDate(fd)
fNeu = fn
End If
End If
fn = Dir()
Loop
f_csv = Pfad & fNeu
f_cxv = Pfad & Replace(fNeu, ".csv", ".cxv")
If Not fNeu = fn Then
On Error Resume Next
Name "D:\excel\Neu\1\versuch.csv" As "D:\excel\Neu\1\versuch.cxv"
On Error GoTo 0
Name f_csv As f_cxv
On Error Resume Next
Kill "D:\excel\Neu\1\*.csv"
On Error GoTo 0
Name f_cxv As f_csv
On Error Resume Next
Name "D:\excel\Neu\1\versuch.cxv" As "D:\excel\Neu\1\versuch.csv"
On Error GoTo 0
ChDrive "D:\"
ChDir "D:\excel\Neu\1\"
ShellWait "D:\excel\Neu\1\test.bat", 1
On Error Resume Next
Kill "D:\excel\Neu\1\versuch.csv"
On Error GoTo 0
Dim Quelle As String, Ziel As String
Quelle = "D:\excel\Neu\1\gesamt.csv"
Ziel = "D:\excel\Neu\1\versuch.csv"
FileCopy Quelle, Ziel
End If
Name "D:\excel\Neu\1\versuch.csv" As "D:\excel\Neu\1\versuch.cxv"
Name f_csv As f_cxv
Kill "D:\excel\Neu\1\*.csv"
Name "D:\excel\Neu\1\versuch.cxv" As "D:\excel\Neu\1\versuch.csv"
Name f_cxv As f_csv
NeuesteDatei = fNeu
End Function

die neuste´datei wird in versuch gespeichert wenn ein button gedrückt wird kommt am nächsten tag eine neue datei dazu wird die alte gelöscht. drückt man den button aber mehrmals hintereinander wird immer wieder die gleiche datei in die datei versuch geschrieben welche dann recht schnell sehr groß wird. die neuste datei wird täglich alle halbe stunde um ein paar zeilen größer.
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur neue zeilen hinzufügen
17.10.2005 16:02:34
lexika
HI,
ist es möglich eine datei zu öffnen und die zeilen welche schon importiert worden sind zu löschen und danach die datei unter gleichem namen wieder abzuspeichern?
Danke
abgleichen der Daten
18.10.2005 10:38:54
lexika
HI,
ist es vielleicht möglich bevor zwei Dateien zusammengefügt werden zu schauen ob die eine schon in der anderen vorhanden ist? Falls neue Spalten dabei sind, welche noch nicht in der anderen stehen, nur diese zu übernehmen.
Danke
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige