Problem Datei einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Problem Datei einlesen
von: Markus
Geschrieben am: 19.05.2002 - 16:45:31

Ich habe im Forum folgendes Makro gefunden:

Sub DateienEinlesen1()
On Error GoTo Fehler
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = "C:\wer"
'Extension = InputBox("Dateityp:", , "*.xls")
ChDrive Left(Ordner, 1)
ChDir Ordner
dName = Dir(Extension)
Do While dName <> ""
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = dName
dName = Dir()
Loop
For i = 1 To n
ActiveSheet.Cells(i, 1) = FileArray(i)
Next
Exit Sub
Fehler:
MsgBox ("Ein Fehler ist aufgetreten." & Chr(13) & "Wahrscheinlich existiert das Verzeichnis:" & Chr(13) & "C:wer" & Chr(13) & "nicht!")
End Sub

Mein Problem ist hier, ich möchte das Excel nicht an der ersten Zeile anfängt, sondern an der fünften

Wenn ich bei I das einsetzte funktioniert das nicht

Danke schonmal

Markus

nach oben   nach unten

Re: Problem Datei einlesen
von: Rolf, Lgh.
Geschrieben am: 19.05.2002 - 17:10:44

Hallo Markus,
meinst Du so:

Sub DateienEinlesen1()
  On Error GoTo Fehler
  Dim FileArray()
  Dim i%, n%
  Dim Ordner$, Extension$, dName$
  Ordner = "C:\wer"
  'Extension = InputBox("Dateityp:", , "*.xls")
  ChDrive Left(Ordner, 1)
  ChDir Ordner
  dName Dir(Extension)
  Do While dName <> ""
    n = n + 1
    ReDim Preserve FileArray(1 To n)
    FileArray(n) = dName
    dName = Dir()
  Loop
  For i = 1 To n
    ActiveSheet.Cells(i + 5, 1) = FileArray(i)
  Next
  Exit Sub
Fehler:
  MsgBox ("Ein Fehler ist aufgetreten." & Chr(13) & "Wahrscheinlich existiert das Verzeichnis:" & Chr(13) & "C:wer" & Chr(13) & "nicht!")
End Sub

Gruss Rolf
nach oben   nach unten

Cool Danke
von: Markus
Geschrieben am: 19.05.2002 - 18:29:39

Dir

Markus


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Problem Datei einlesen"