FileSearch ungenau

Forumthread: FileSearch ungenau

FileSearch ungenau

20.02.2007 14:40:09

Jessie

Hallo zusammen,
ich drucke jeden Monat über FileSearch mehrere Dateien auf einmal aus.
Const verz = "C:\"
strZusatz = InputBox("Namen der Datei"´)
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = strZusatz & ".xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Sheets(1).Activate
ActiveSheet.PrintOut From:=1, To:=2
quelle.Close savechanges:=False
Next y
Soweit läuft dieses bisher perfekt. Jetzt habe ich auf diese Weise alle Dateien die 'Januar 07.xls' heißen ausgedruckt & habe zusätzlich ungewollt auch alle Dateien die 'Januar 07 (Korrektur 2006).xls' heißen gedruckt.
In die InputBox habe ich nur 'Januar 07' eingegeben, warum bekomme ich dann auch die 'Januar 07 (Korrektur 2006)'? Kann ich das in Zukunft verhindern?
Danke & Gruß
Jessie

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: FileSearch ungenau

20.02.2007 15:22:08

Heide_Tr
AW: FileSearch ungenau

20.02.2007 15:48:00

Jessie
AW: FileSearch ungenau

20.02.2007 16:28:00

Jessie
AW: FileSearch ungenau

20.02.2007 17:43:00

ingoG
AW: FileSearch ungenau

20.02.2007 15:35:00

Hans

AW: FileSearch ungenau

20.02.2007 15:22:08

Heide_Tr

hallo Jessie,
im einfachsten Fall kannst Du über die Länge des Dateinamens (ActiveWorkbook.Name), der ja nicht länger, als Len(strZusatz) +4 (Dateinamenerweiterung) den Ausdruck steuern.
viele Grüße. Heide

AW: FileSearch ungenau

20.02.2007 15:48:00

Jessie

Hallo,
das geht genau wo? Was muss ich ändern?

AW: FileSearch ungenau

20.02.2007 16:28:00

Jessie

Hallo,
das geht genau wo? Was muss ich ändern?

AW: FileSearch ungenau

20.02.2007 17:43:00

ingoG

Hallo Jessie,
Bei mir (Office 2003) läuft es übrigens richtig...
so sollte es auch bei Dir funzen:


Sub testdruck()
Dim strZusatz As String, strDatei As String
Dim quelle, y#
Const verz = "C:\"
strZusatz = InputBox("Namen der Datei")
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = strZusatz & ".xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
strDatei = Application.FileSearch.FoundFiles(y)
Do While InStr(1, strDatei, "\") > 0
strDatei = Right(strDatei, Len(strDatei) - InStr(1, strDatei, "\"))
Loop
If Len(strDatei) = Len(strZusatz) + 4 Then
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Sheets(1).Activate
ActiveSheet.PrintOut From:=1, To:=1
quelle.Close savechanges:=False
End If
Next y
End Sub

Gruß Ingo
PS eine Rückmeldung wäre nett...

AW: FileSearch ungenau

20.02.2007 15:35:00

Hans

Hallo Jessie,
nebenbei zum Thema: Mit FileSearch solltest Du sparsam umgehen. Es wird ab XL12 nicht mehr unterstützt.
gruss hans

Forumthread: FileSearch ungenau

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread