Hozzászólás: [Resolved] Fájlok másolása több különböző mappába

Szia eNFeri,
ezzel (.bat) a technikával nem sikerült megoldanom.
Azonban a következővel már egy kis teszt is lefutott:

Sub VBACopyFilesInList()

‘Declare variables
Dim copyFromFileRange As Range
Dim copyToFileRange As Range
Dim i As Long
Dim j As Long

‘Turn off error checking
On Error Resume Next

‘Get ranges
Set copyFromFileRange = Application.InputBox( _
Title:=”Select range”, _
Prompt:=”List of files to copy:”, _
Type:=8)
If copyFromFileRange Is Nothing Then Exit Sub

Set copyToFileRange = Application.InputBox( _
Title:=”Select range”, _
Prompt:=”List of file destinations:”, _
Type:=8)
If copyToFileRange Is Nothing Then Exit Sub

‘Loop through rows
For i = 1 To copyFromFileRange.Rows.Count

‘Loop through columns
For j = 1 To copyToFileRange.Columns.Count

FileCopy copyFromFileRange.Cells(i, j), _
copyToFileRange.Cells(i, j)

Next j

Next i

‘Turn error checking back on
On Error GoTo 0

End Sub

Köszönettel,
Józsi