Frage an Oberschlumpf zu CodeImport

Forumthread: Frage an Oberschlumpf zu CodeImport
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Frage an Oberschlumpf zu CodeImport

Holger

Hallo,
du hast mir den Code zum FileImport gegeben, der mir sehr hilft.
Allerdings wie kann ich steuern, welche Zeile des Files wann eingelesen wird?
Denn ich will nicht, die Zellen absteigend füllen, sondern ich muss
teilweise Variablen einlesen.
Denn EndOfFile ist nicht zuverlässig und im aktuellen Fall läuft er einmal zuviel durch das File:

Sub Import
Open PATHtxt For Input As #1
Do While Not EOF(1)
Line Input #1, lInhalt
wsContracts.Range("S2").Value = lInhalt 'Steht im File in Zeile 1
strNewPeriod = lInhalt 'Steht im File in Zeile 2
Loop
Close #1
MsgBox strNewPeriod
End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ach, wenn sonst jemand die Lösung weiss ? k.t.

Holger
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

EvilRik
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

Holger
AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

Holger
DANKE, klappt perfekt mit Zähler k.t.

Holger

Ach, wenn sonst jemand die Lösung weiss ? k.t.

16.09.2010 15:28:13

Holger

AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

16.09.2010 15:37:10

EvilRik

Hallo Holger,
mit Open ... For Input as ... kannst du meines Wissens nur zeilenweise einlesen.
Du könntest ja noch einen Zähler mitlaufen lassen, wenn du die Zeilennummer weißt.
z.B.


Sub Import
Open PATHtxt For Input As #1
Do While Not EOF(1)
Line Input #1, lInhalt
Zähler=Zähler+1
If Zähler= 1 then wsContracts.Range("S2").Value = lInhalt
If Zähler=2 then strNewPeriod = lInhalt
If Zähler >2 then goto ende
Loop
ende:
Close #1
MsgBox strNewPeriod
End Sub

Gruß Henrik

AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

16.09.2010 15:45:03

Holger

Hallo Henrik,
das dachte ich mir schon fast.
Ok, ein Zähler könnte die Lösung sein, ich probiere es gleich mal aus.

AW: Ach, wenn sonst jemand die Lösung weiss ? k.t.

16.09.2010 15:45:07

Holger

Hallo Henrik,
das dachte ich mir schon fast.
Ok, ein Zähler könnte die Lösung sein, ich probiere es gleich mal aus.

DANKE, klappt perfekt mit Zähler k.t.

16.09.2010 15:45:32

Holger