WCM Forum - Einzelnen Beitrag anzeigen

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

21.07.2002, 14:52	#2
pc.net Aussteiger Registriert seit: 07.10.2001 Ort: Nettistan Beiträge: 12.997 Mein Computer	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 ____________________________________ Praktizierender Eristiker No hace falta ser un genio para saber quién dijo eso. Der wirklich faule Mensch ist oft extrem fleißig, denn er will möglichst schnell wieder faul sein.