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

Problem mit Version?

Problem mit Version?
02.01.2003 17:40:47
Huesecken
hi,
frohes neues jahr!!!
hab ein problem:
habe in der recherche eine moeglichkeit gefunden dateien einzulesen! funktioniert auch super...bei mir OFFICE2000 aber unter Office 97 funktioniert es nicht?????
kann mir jemand helfen bzw. tipp geben was ich aendern muss im code???
mein code:

Private Sub CommandButton1_Click()
'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

ReadFile = Application _
.GetOpenFilename("Text Files (*.dat), *.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
(codequelle:Ramses)

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Glaskugel :-) ?
02.01.2003 17:58:58
Ramses
Hallo,

schön dass du was von mir gefunden hast :-))

Aber was funktioniert denn nicht ?
Welche Fehlermeldung erhältst du denn ?

Gruss Rainer

Re: Glaskugel :-) ?
02.01.2003 19:24:32
Huesecken
Fehlermeldung:

Fehler beim Kompilieren:
Variable erforderlich - Zuweisung an diesem Ausdruck nicht möglich

und markiert mir in der Zeile wo Input #1, TextArr(i)
steht das TextArr(i)???

Re: Glaskugel :-) ?
02.01.2003 19:33:10
Ramses
Hallo,

schreib mal vor die Zeile

Debug.Print i

und sag mir dann welcher Wert als letzter im Direktfenster angezeigt wird.

Ich kann er eigenlich nicht fassen, weil ich mit diesem Makro regelmässig ein Textfile mit knapp 35000 Datenzeilen einlese.
Ausserdem ist die Variable vorher schon mal initialisiert worden, also kann es keine fehlende Variable sein.

Gruss Rainer

Anzeige
Re: Glaskugel :-) ?
02.01.2003 19:33:11
Ramses
Hallo,

schreib mal vor die Zeile

Debug.Print i

und sag mir dann welcher Wert als letzter im Direktfenster angezeigt wird.

Ich kann er eigenlich nicht fassen, weil ich mit diesem Makro regelmässig ein Textfile mit knapp 35000 Datenzeilen einlese.
Ausserdem ist die Variable vorher schon mal initialisiert worden, also kann es keine fehlende Variable sein.

Gruss Rainer

Re: Glaskugel :-) ?
02.01.2003 21:31:16
GerdZ
Hallo ?,

ersetze die Zeile
Dim TextArr As Variant
durch
Dim TextArr() As String
dann läuft das Makro auch unter Excel 97.

Gruß
Gerd

Danke:-) .
02.01.2003 21:38:18
Ramses
Hallo Gerd

Aber wieso kann er dann das Array vorher dimensionieren ?

Und der Typ Variant ist doch eigentlich auch unter O97 gebräuchlich,... oder ?

Gruss Rainer

Anzeige
Re: Danke:-) .
02.01.2003 21:55:35
GerdZ
Hallo Rainer,

warum das so ist, weiß ich auch nicht.
Hab ich auch nur durch Ausprobieren herausgefunden.
Vielleicht kann der Input-Befehl im Excel 97 das Variant-Array nicht verarbeiten?

Gruß
Gerd

DANKE!!! :)
03.01.2003 11:50:48
Huesecken
hi,
konnte heute erst die aenderung testen!!
es hat geklappt...GROSSEN DANK ANS FORUM UND AN GERD UND REINER!!

....gruss micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige