WCM Forum - Excel + VB + File suchen

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Excel + VB + File suchen (http://www.wcm.at/forum/showthread.php?t=63683)

Frankster

21.07.2002 14:18

Excel + VB + File suchen

Hi!
Ich möchte gerne ein kleines Makroprogramm schreiben, dass schaut, ob da File überhaupt vorhanden ist!

Ich habe gedacht es funktioniert so!

Set fs = Application.FileSearch
With fs
.LookIn = "D:\"
.FileName = "Hallo.xls"
If .Execute > 0 Then
MsgBox "File ist vorhanden"
Workbooks.Open Filename:=Filename

Else
MsgBox "Das File ist nicht vorhanden"
End
End If
End With

Nur er findet das File nicht!!
Aber Hallo.xls ist 100% in D:\

Mfg
Frankster

pc.net

21.07.2002 14:52

welche office-version? (ich hab schon festgestellt, dass es immer wieder unterschiede bei den vba-befehlen gibt)

bei excel-xp funktionierts so:

Code:

Set fs = Application.FileSearch



With fs

    .LookIn = "d:\"

    .SearchSubFolders = True

    .FileType = msoFileTypeExcelWorkbooks

    .Filename = "hallo.xls"

    .Execute



    If .Execute > 0 Then

        For i = 1 To .FoundFiles.Count

            MsgBox "File ist vorhanden (" & .FoundFiles(i) & ")"

        

            Workbooks.Open Filename:=.FoundFiles(i)

        Next i

    Else

        MsgBox "Das File ist nicht vorhanden"

    End If

End With

Frankster

21.07.2002 15:01

Office XP!

Funkt leider auch nicht :-(

Code:

with fs

    .LookIn = "d:\"

    .FileType = msoFileTypeExcelWorkbooks

    .Filename = "*.*"

    .Execute



    If .Execute > 0 Then

        For i = 1 To .FoundFiles.Count

            MsgBox "File ist vorhanden (" & .FoundFiles(i) & ")"

        

            Workbooks.Open Filename:=.FoundFiles(i)

        Next i

    Else

        MsgBox "Das File ist nicht vorhanden"

    End If

End With

Hab mal Filename *.* eingetragen und der findet Files die ich schon längst in einen anderen Ordner verschoben haben.
Und dann findet er wieder keine Files, die aber unter D:\ sind!
Also ich versteh das nicht, was der da macht!!

Mfg
Frankster

pc.net

21.07.2002 15:12

also "*.*" funktioniert offensichtlich nicht ...

und wenn ".SearchSubFolders = True" nicht vorhanden ist, dann sucht er nur im aktuellen verzeichnis (= "D:\")

Frankster

21.07.2002 15:27

Hi!

Ja genau er durchsucht nur D:\ -> weil ich es so will ;-)

Und wenn ich *.* als Filename angebe, dann gibt er mir Files aus, die dort gar nicht mehr sind!!
Und einige Files zeigt er dann nicht an!

Wenn ich aber die zwei Files auf die Diskette speicher und von dort starte gehts!!
1. File von dort aus wird das Makro aufgerufen
2. File, nach dem gesucht wird!

Ich glaub der will mich pflanzen ;-)

Frankster

21.07.2002 18:46

SO!!

Wenn das zu suchende auf einer anderen Platte liegt als wie das Makroprog gehts!
Wenn beide auf der gleichen Platte sind gehts nicht!!

Checkt das einer warum das so ist *g*

Frankster

21.07.2002 19:24

Geht doch nicht :(

Nur wenn das zu suchende File auf einer Diskette ist, gehts problemlos

Alle Zeitangaben in WEZ +2. Es ist jetzt 07:51 Uhr.