0
Ich möchte Dateien in einen anderen Ordner aus einer Excel-Datei (listfiles.xlsx) verschieben, die Pfade von Dateien in Spalte A enthält. Der Code unten hat nicht für mich funktioniert, können Sie helfen mir bitte?VBA movefile aus einer Liste in Excel Blatt
Sub movefile1()
Dim fso As FileSystemObject
Dim i As Long
Dim worksh As Worksheet
Dim workboo As Workbook
Set fso = CreateObject("scripting.filesystemobject")
Destination = "C:\Users\Desktop\Folder"
Set workboo = Workbooks.Open("C:\Users\TOSHIBA\Desktop\list_files.xlsx")
Set worksh = Worksheets("Listing")
numRows = worksh.Range("A" & Rows.Count).End(xlUp).Row
workboo.Windows(1).Visible = False
For i = 2 To numRows
Filepath = worksh.Range("A" & i).Value
fso.CopyFile Filepath, Destination
Next
End Sub
änderte ich den Code aber die fso.CopyFile Filepath, Destination funktioniert nicht. Sie sagen, die Erlaubnis verweigert
'Dim Excelfile als String' ausgeführt werden ?? Dies kann nicht in Kombination mit der Zeile 'Set excelfile = Workbooks.Open (" C: \ Desktop \ output file \ listfiles.xlsx ")' funktionieren. Verwenden Sie stattdessen "Dim Excelfile As Workbook". Wenn Sie Bibliotheken verwenden, fügen Sie sie bitte in Ihre Beschreibung oder den Code ein: ''Verwendeter Verweis" Microsoft Scripting Runtime "'. Schließlich möchten Sie vielleicht Ihre 'With'-Anweisung so aktualisieren, dass sie die (gerade geöffnete) Excel-Datei enthält:' Mit excelfile.Worksheets ("Sheet1") '. – Ralph
@Ralph danke ich habe das geändert, aber jetzt habe ich ein Problem in der letzten Zeile. Ein Berechtigungsproblem – JeanLo
Dann ist das nicht mehr ein VBA-Programmierproblem, sondern ein Berechtigungsproblem, das Sie mit Ihrem lokalen Systemadministrator lösen müssen. Wir können hier nichts tun, um Ihre Berechtigungen zu ändern. – Ralph