Application.Filesearch

Forumthread: Application.Filesearch

30.10.2007 11:32:14

volker

Hai Leute,
hatte in excel2003 ein makro mit Application.Fileserach das wird in 2007 nicht mehr unterstützt.
Kann mir jemand helfen?
Danke gruss volker
Sub Zeileneinlesen()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
Application.DisplayAlerts = False
Set fs = Application.FileSearch
lRow = 3
With fs
.Filename = "*.xls"
.LookIn = "X:\Zuschnitt Holzma"
.Execute
For iCounter = 1 To .FoundFiles.Count

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Application.Filesearch

30.10.2007 11:37:00

Rudi
AW: Application.Filesearch

30.10.2007 12:08:00

volker
AW: Application.Filesearch

30.10.2007 12:39:00

Rudi
Perfect, Danke Gruss volker

30.10.2007 12:50:00

volker

AW: Application.Filesearch

30.10.2007 11:37:00

Rudi

Hallo,
z.B. so:


Sub tt()
Dim oFS As Object, oFLDR As Object, oFILE As Object
Set oFS = CreateObject("scripting.filesystemobject")
Set oFLDR = oFS.getfolder("c:\test")
For Each oFILE In oFLDR.Files
If oFILE Like "*.xls" Then
'mach was
End If
Next oFILE
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Application.Filesearch

30.10.2007 12:08:00

volker

Hai Rudi,
nun häng ich (und das makro) bei
Workbooks.Open.oFLDT:Files? ...........da weiss ich nicht was ich reinschreiben muss
Hier das gesamte makro
Danke Gruss volker


Sub Zeileneinlesen()
Dim oFS As Object, oFLDR As Object, oFILE As Object
Dim lRow As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set oFS = CreateObject("scripting.filesystemobject")
lRow = 3
Set oFLDR = oFS.getfolder("\\Server04\av\SharePoint_Beschlaglisten")
For Each oFILE In oFLDR.Files
If oFILE Like "*.xls" Then
lRow = lRow
Workbooks.Open .oFLDT.Files
Sheets(2).Select
ActiveSheet.Range("2:2").Copy
ThisWorkbook.Worksheets(1).Cells(lRow, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
lRow = lRow + Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
End If
Next oFILE
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

AW: Application.Filesearch

30.10.2007 12:39:00

Rudi

Hallo,
workbooks.open ofile
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Perfect, Danke Gruss volker

30.10.2007 12:50:00

volker

o.T.

Beliebteste Forumthreads (12 Monate)

Forumthread: Application.Filesearch

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread