|
ICH HABE ES VERSUCHT, DIR ZU ERKLÄREN: So wie du es machen willst, wäre es VIIIIIEEEEEEL zu kompliziert.
Mit folgenden Code suchst du eine PDF-Datei aus und der Code benennt ihn um.
Private Sub CommandButton1_Click()
Dim arr, pfad, i, x
Dim Dat, Dat2
Dat = Application.GetOpenFilename()
If Dat = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & Dat
arr = Split(Dat, "\")
For i = 0 To UBound(arr) - 1
If i > 0 Then
pfad = pfad + "\" + arr(i)
Else
pfad = arr(i)
End If
pfad = pfad & "\"
Next i
Dat = arr(i)
End If
Dat2 = Replace(Dat, ".", "_" & Format(Date, "yyyymmdd") & ".")
Name pfad & Dat As pfad & Dat2
End Sub
|