FileSearch .Execute bleibt 0
04.01.2006 13:51:08
Tanja
Ich werde vogelig: ich habe ein VBA-Code der unter 2000 lief, aber unter 2003 nicht mehr. Es soll eine Datei gefunden werden, die auch da ist, aber der blöde .Execute gibt nur 0 zurück.
Für Hilfe mehr als dankbar, Tanja.
Hier der Code
Dateina = InputBox("Bitte die Klasse eingeben.")
Set fs = Application.FileSearch
With fs
' Dachte erst es lag am *, aber auch ausgeschrieben funkt es nicht!!
' .FileName = ActiveDocument.Path & "\*" & Dateina & "*.xls"
.FileName = ActiveDocument.Path & "\200610.xls"
If .Execute() > 0 Then
korrekt = InputBox("Es wurde eine Datei gefunden: " & Chr(13) & .FoundFiles(1) & Chr(13) & "Ist das korrekt? (j/n)")
If korrekt = "j" Then
Dateiname = .FoundFiles(1)
' MsgBox Dateiname
ActiveDocument.MailMerge.OpenDataSource Name:=Dateiname, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"DSN=Excel-Dateien;DBQ=" & Dateiname & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
, SQLStatement:="SELECT * FROM `Serie$`", SQLStatement1:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
Else
MsgBox ("Bitte noch einmal von vorn.")
Windows("Anleitung Beschein PruefErgeb.doc").Activate
End If
Else
MsgBox ("Die Klasseneingabe war nicht eindeutig: " & Chr(13) & .FileName & Chr(13) & "Bitte noch einmal von vorn.")
Windows("Anleitung Beschein PruefErgeb.doc").Activate
End If
End With