Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien von einer Liste von Order zu Ordner verschieben
 06.05.2021 09:27:02 Markus
NotSolved
06.05.2021 10:52:07 Gast78184
NotSolved
06.05.2021 11:34:29 Markus
Solved
06.05.2021 11:35:41 Gast94350
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
06.05.2021 09:27:02		 Views:
740		 Rating:
     
Antwort:
  Ja
Thema:
Dateien von einer Liste von Order zu Ordner verschieben

Hallo, 

ich habe eine Liste in Excel z.b. 

Rechnung 2021-0503
Rechnung 2021-0504
Rechnung 2021-0505
Rechnung 2021-0506

Rechnung 2021-0507

Das sind Namen von PDF Dateien in einem Ordner. Diese möchte ich gerne aus Order PDF1 in den Ordner PDF2 verschieben. Ich habe dazu folgenden Code gefunden auf einer anderen Seite:

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

Damit selektiert man den Bereich in Excel mit den Datei Namen, danach wählt man die Quelle und danach das Ziel aus.

Leider funktioniert der Code nicht.

Kann mir da jemand helfen, wo der Fehler liegt?

Vielen Dank!

Markus

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien von einer Liste von Order zu Ordner verschieben
 06.05.2021 09:27:02 Markus
NotSolved
06.05.2021 10:52:07 Gast78184
NotSolved
06.05.2021 11:34:29 Markus
Solved
06.05.2021 11:35:41 Gast94350
NotSolved