Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Import einer .csv-Datei

Import einer .csv-Datei
24.03.2016 14:57:38
Larissa
Hallo Zusammen,
ich habe folgenden Code geschrieben, um ein File aufzurufen und das dort gespeicherte in Tabelle 3 zu schreiben:
Sub ImportCsvFiles()
Dim strFile As String
Dim k As Integer
Dim strLine As String
Dim intRow As Integer
k = 1
Do While True
strFile = Trim(ActiveWorkbook.Worksheets("Tabelle2").Cells(k, 2))
k = k + 1
Debug.Print "read: " & strFile
If strFile = "" Then
Exit Do
Else
Open strFile For Input As #1
intRow = 1
Do While Not EOF(1)
Line Input #1, strLine
Debug.Print strLine
If intRow > 2 Then
ActiveWorkbook.Worksheets("Tabelle3").Cells(intRow, 1) = CDate(GetToken(1, ";",  _
strLine))
ActiveWorkbook.Worksheets("Tabelle3").Cells(intRow, 2) = GetToken(2, ";", strLine)
End If
intRow = intRow + 1
Loop
Close #1
End If
Loop
End Sub
In der Zeile

Open strFile For Input As #1
bekomme ich immer den Laufzeitfehler 53 - Datei nicht gefunden...
Ich kann mir leider nicht erklären, woran das liegt.
Hat jmd von euch vllt eine Idee?
Vielen Dank schon mal im Voraus!
Viele Grüße
Larissa

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import einer .csv-Datei
24.03.2016 15:08:30
Rudi
Hallo,
Ich kann mir leider nicht erklären, woran das liegt.
ganz einfach: Die Datei gibt es nicht.
Was steht denn in Tabelle2!B:B ?
Gruß
Rudi

AW: Import einer .csv-Datei
24.03.2016 15:24:22
Larissa
In Tabelle 2 Spalte B steht die Datei die geöffnet werden soll...
Der Fehler ist wahrscheinlich, dass das nur ein Text ist und keine hinterlegte Datei...

Private Const conONSPrognose = "S:\znl\2016"
Private Const conTable = "Lastgang"
Sub GetCsvFiles()
Dim CSVFile(1000) As tCSVFile
Dim i As Integer
Dim intCount As Integer
'Dateien auswählen
Debug.Print Date                              'gibt aktuelles Datum aus im Direktbereich
intCount = GetFiles(Date - 20, CSVFile())     'aktuelle Datum - xx Tage (Zähler), Files die  _
aufgelistet werden im Direktbereich
Debug.Print UBound(CSVFile)                   'gibt höchst verfügbaren Feldindex eine Arrays  _
zurück
'Tabellenbereich löschen
ActiveWorkbook.Worksheets("Tabelle2").Range("A1:G500").Select     'Bereich A1 bis G500 auswä _
hlen
Selection.ClearContents                                           'ausgewählten Bereich lö _
schen
ActiveWorkbook.Worksheets("Tabelle2").Range("A1").Select          'in Zelle A1 springen
'Dateien in Tabelle2 schreiben
For i = 1 To intCount - 1                                                         'Schleife  _
für Dateien von 1 bis letzte File
ActiveWorkbook.Worksheets("Tabelle2").Cells(i, 1) = CDate(CSVFile(i).strDate)   'in  _
Tabelle2 Spalte A das Datum der Datei schreiben
ActiveWorkbook.Worksheets("Tabelle2").Cells(i, 2) = CSVFile(i).strName          'in  _
Tabelle2 Spalte B den Dateinamen schreiben
Next
'Dateien aufsteigend nach Datum sortieren
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add Key:=Range("A1:A500"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tabelle2").Sort
.SetRange Range("A1:B500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
So schreibe ich die Datei in Tabelle 2.
Danke schon mal =)

Anzeige
AW: Import einer .csv-Datei
24.03.2016 16:16:34
Rudi
Hallo,
ich vermute mal, dass hier der abschließende \ fehlt: Private Const conONSPrognose = "S:\znl\2016"
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige