Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Csv-Datei...

Csv-Datei...
30.09.2003 10:18:18
Rob
Hallo Forum!

Ich muss hier ein Makro erstellen, das eine csv Datei einliest...
Habe mich schon etwas im Forum umgeschaut und auch etwas gefunden.

Diesen Quellcode hab ich mir zusammengeklaut:

Option Explicit



Sub Import()
Dim fFile1 As Variant, neuFile As Variant
Dim DateiName1 As String, neuDateiName As String
fFile1 = Application.GetOpenFilename("CSV-Report (*.csv), *.csv")
If fFile1 = False Then
If Workbooks.Count = 1 Then
Application.Quit
Exit Sub
Else
ThisWorkbook.Close
Exit Sub
End If
End If
Workbooks.Open FileName:=fFile1
DateiName1 = ActiveWorkbook.Name
neuFile = Application.GetSaveAsFilename("Wochenbericht.xls")
If neuFile = False Then
MsgBox "Der Vorgang wird vorzeitig abgebrochen."
End If
Workbooks.Add
ActiveWorkbook.SaveAs neuFile
neuDateiName = ActiveWorkbook.Name
End Sub




Mein Problem ist, dass die Werte nicht in der neuen Datei angezeigt, bzw. gespeichert werden. Kenne mich leider gar nicht mit VB aus...
Kann mir jemand helfen, wo mein Problem liegt?

Gr. Rob

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Csv-Datei...
30.09.2003 11:23:32
geri
Hallo Rob

versuche es mal so


Sub Read_Extern_File()
'Hilfsvariable für Anzahl Datensätze
Dim Text1 As String
'Variablen für den Array nötig
Dim TxtLines As Long, i As Long
Dim TextArr As Variant
Dim ReadFile As String
'Dialog öffnen auf Basis von *.txt, *.log oder *.dat Files
ReadFile = Application.GetOpenFilename("DAT Files (*.txt; *.log; *.dat),")
'Schliessen einer geöffneten Datei
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Open ReadFile For Input As #1
'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
'Zähler auf 0 setzen
TxtLines = 0
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, Text1 ' Hilfsvariable zum einlesen verwenden
'         Zähler hochzählen
TxtLines = TxtLines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open ReadFile For Input As #1 ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim TextArr(TxtLines)
'Einlesen der Dateien in das Array
For i = 1 To TxtLines
Input #1, TextArr(i)
Next i
Close #1
'Daten in aktuelles Sheet schreiben
For i = 1 To TxtLines
Cells(i, 1) = TextArr(i)
Next i
End Sub




gruss geri
Anzeige
AW: Csv-Datei...
30.09.2003 11:45:13
Rob
Danke für die Antwort!
Leider bekomme ich eine Fehlermeldung, wenn ich das Makro ausführe
-->Fehler beim Kompilieren... Variable erforderlich. Zuweisung an diesen Ausdr. nicht möglich.
Als Fehler wird --> TextArr(i) angezeigt.

Muss man TextArr als Array vorher deklarieren?

GR.Rob
AW: Csv-Datei...
30.09.2003 11:51:51
geri
also bei mir läufts mit OFF 2000 ohne Fehlermeldung

gruss geri
AW: Csv-Datei...
30.09.2003 11:54:00
Rob
Dann liegts an excel '97.
Ich probiers heute abend zu Hause...

THX, Rob

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige