Hoi,
Ik maak gebruik van een (vba)macro die in office 2003 gemaakt is maar in office 2007 de volgende foutmelding geeft:
Fout 5111 tijdens uitvoering:
Deze opdracht is niet meer beschikbaar op dit platform..
De opdracht die niet meer bestaat is Application.FileSearch.
Wie kan mij zeggen welke opdracht ik nu kan gebruiken!!!!!!
Ik gebruik de volgende macro:
Option Explicit
Dim zoekdir$, fs, i, BstNaam$
Sub DOSSIERETIKETTEN_PRINTEN()
UserForm1.TextBox1 = ""
UserForm1.ComboBox1 = ""
UserForm1.ComboBox2 = ""
UserForm1.ComboBox3 = ""
UserForm1.ComboBox4 = ""
UserForm1.ComboBox5 = ""
UserForm1.ComboBox6 = ""
UserForm1.ComboBox7 = ""
UserForm1.ComboBox8 = ""
UserForm1.ComboBox9 = ""
'UserForm1.ComboBox10 = ""
UserForm1.TextBox1.SetFocus
UserForm1.Show
'zoekdir$ = "UserForm1.Textbox1.text"
UserForm1.Repaint
End Sub
Sub leesdir()
UserForm1.ComboBox1.Clear
UserForm1.ComboBox2.Clear
UserForm1.ComboBox3.Clear
UserForm1.ComboBox4.Clear
UserForm1.ComboBox5.Clear
UserForm1.ComboBox6.Clear
UserForm1.ComboBox7.Clear
UserForm1.ComboBox8.Clear
UserForm1.ComboBox9.Clear
'UserForm1.ComboBox10.Clear
zoekdir$ = "K:\PNA21\Word\Etiket\"
Set fs = Application.FileSearch
With fs
.LookIn = zoekdir$
.FileName = UserForm1.TextBox1.Text & "*.rtf"
If .Execute > 0 Then
If .FoundFiles.Count = 10 Then
MsgBox "Er zijn 9 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 1 stickervel!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 18 Then
MsgBox "Er zijn 18 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 2 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 27 Then
MsgBox "Er zijn 27 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 3 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 36 Then
MsgBox "Er zijn 36 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 4 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
Else
MsgBox "Er is/zijn " & .FoundFiles.Count _
& " dossieretiket(ten) gevonden.", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
End If
LV: For i = 1 To .FoundFiles.Count
BstNaam$ = .FoundFiles(i)
BstNaam$ = Right$(BstNaam$, Len(BstNaam$) - Len(zoekdir$))
UserForm1.ComboBox1.AddItem (BstNaam$)
UserForm1.ComboBox2.AddItem (BstNaam$)
UserForm1.ComboBox3.AddItem (BstNaam$)
UserForm1.ComboBox4.AddItem (BstNaam$)
UserForm1.ComboBox5.AddItem (BstNaam$)
UserForm1.ComboBox6.AddItem (BstNaam$)
UserForm1.ComboBox7.AddItem (BstNaam$)
UserForm1.ComboBox8.AddItem (BstNaam$)
UserForm1.ComboBox9.AddItem (BstNaam$)
'UserForm1.ComboBox10.AddItem (BstNaam$)
Next i
UserForm1.Repaint
Else
MsgBox "Er zijn geen bestanden gevonden."
End If
End With
End Sub
Ik maak gebruik van een (vba)macro die in office 2003 gemaakt is maar in office 2007 de volgende foutmelding geeft:
Fout 5111 tijdens uitvoering:
Deze opdracht is niet meer beschikbaar op dit platform..
De opdracht die niet meer bestaat is Application.FileSearch.
Wie kan mij zeggen welke opdracht ik nu kan gebruiken!!!!!!
Ik gebruik de volgende macro:
Option Explicit
Dim zoekdir$, fs, i, BstNaam$
Sub DOSSIERETIKETTEN_PRINTEN()
UserForm1.TextBox1 = ""
UserForm1.ComboBox1 = ""
UserForm1.ComboBox2 = ""
UserForm1.ComboBox3 = ""
UserForm1.ComboBox4 = ""
UserForm1.ComboBox5 = ""
UserForm1.ComboBox6 = ""
UserForm1.ComboBox7 = ""
UserForm1.ComboBox8 = ""
UserForm1.ComboBox9 = ""
'UserForm1.ComboBox10 = ""
UserForm1.TextBox1.SetFocus
UserForm1.Show
'zoekdir$ = "UserForm1.Textbox1.text"
UserForm1.Repaint
End Sub
Sub leesdir()
UserForm1.ComboBox1.Clear
UserForm1.ComboBox2.Clear
UserForm1.ComboBox3.Clear
UserForm1.ComboBox4.Clear
UserForm1.ComboBox5.Clear
UserForm1.ComboBox6.Clear
UserForm1.ComboBox7.Clear
UserForm1.ComboBox8.Clear
UserForm1.ComboBox9.Clear
'UserForm1.ComboBox10.Clear
zoekdir$ = "K:\PNA21\Word\Etiket\"
Set fs = Application.FileSearch
With fs
.LookIn = zoekdir$
.FileName = UserForm1.TextBox1.Text & "*.rtf"
If .Execute > 0 Then
If .FoundFiles.Count = 10 Then
MsgBox "Er zijn 9 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 1 stickervel!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 18 Then
MsgBox "Er zijn 18 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 2 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 27 Then
MsgBox "Er zijn 27 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 3 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
ElseIf .FoundFiles.Count = 36 Then
MsgBox "Er zijn 36 dossieretikketen gevonden" & vbCrLf & "precies genoeg voor 4 stickervellen!", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
Else
MsgBox "Er is/zijn " & .FoundFiles.Count _
& " dossieretiket(ten) gevonden.", vbInformation, "Aantal gevonden etiketten!"
GoTo LV
End If
LV: For i = 1 To .FoundFiles.Count
BstNaam$ = .FoundFiles(i)
BstNaam$ = Right$(BstNaam$, Len(BstNaam$) - Len(zoekdir$))
UserForm1.ComboBox1.AddItem (BstNaam$)
UserForm1.ComboBox2.AddItem (BstNaam$)
UserForm1.ComboBox3.AddItem (BstNaam$)
UserForm1.ComboBox4.AddItem (BstNaam$)
UserForm1.ComboBox5.AddItem (BstNaam$)
UserForm1.ComboBox6.AddItem (BstNaam$)
UserForm1.ComboBox7.AddItem (BstNaam$)
UserForm1.ComboBox8.AddItem (BstNaam$)
UserForm1.ComboBox9.AddItem (BstNaam$)
'UserForm1.ComboBox10.AddItem (BstNaam$)
Next i
UserForm1.Repaint
Else
MsgBox "Er zijn geen bestanden gevonden."
End If
End With
End Sub