AW: Fehlermeldungen anstellen
22.06.2005 15:27:34
Stefanr
Noe, mein Quellcode sieht so aus:
Sub ebaynumbersextract()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\daten\ebcopy"
.SearchSubFolders = True
.Filename = "*.txt"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(i), _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), _
Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1)), TrailingMinusNumbers:=True
Windows("" & .FoundFiles(i) & "").Activate
Range("O1:O200").Select
Selection.Copy
Windows("fileopenprogs.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows(.FoundFiles(i)).Activate
ActiveWindow.Close
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
In dem ordner stehen eine Menge txt-files, die in Excel der Reihe nach eingelesen werden sollen, und aus denen dann jeweils ein bestimmter Bereich rauskopiert werden soll. Das Programm gibt auch die Anzahl der Files in dem Folder an und oeffnet das erste davon - dann passiert aber nix mehr.