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

Szia eNFeri
Sajnos egy alacsony tudáskészlettel a témában, megspékelve internetes keresgélés alapján alakult ki ez a koncepció (makró).
Szerintem a lényeget megkaptam tőled, mert fájlokat kell másolnom.
Nagyon szépen köszönöm.
Zseniálisnak tűnik, már csak az a kérdés, hogy meg tudom-e valósítani, azt hiszem ez már csak rajtam fog múlni 🙂
Lenne egy biztonsági kérdésem, még ha nagyon ciki is, pedig a neten is kerestem mielőtt most felteszem részedre.
A <TAB>-ok az egyenlő a pontosvesszővel? Tényleg szégyellem, de nem vagyok biztos benne.
Pedig egy minta fájlt is elkészítettem, hátha felfogom.

Illetőleg a könyvtár létrehozását jól értem-e?
Például:
Az „A1” cellába „MKDIR”, a „B1” cellába e:\Munka\Minta cég\2024 01\Nyilvántartás
Az „A2” cellába „MKDIR”, a „B2” cellába e:\Munka\Minta cég\2024 01\Visszaigazolás
stb.
Utána már megegyezik azzal a résszel, hogy mentés CSV fileba …..

Köszönettel,
Józsi

Szia Delila!

Nagyon szépen köszönöm.
Remekül működik ez.

A fájlok másolására is szedtem már össze dolgokat, de még nem az igazi:

„B1 cellában van a képek elérési útja, D1 cellában a célmappa
B4 cellától kezdődnek azok a fájlnevek, amiket át kell másolni a célmappába.
Ha nem talál fájlt a forrás mappában, akkor a C oszlopba „Copy error …” szöveggel jelzi.”

A fenti leírás van az alábbi kódrészlethez.
Azonban nekem ezt úgy kellene megváltoztatnom, hogy a B oszlopban a B2 cellától lennének egymás alatt a mellette lévő C oszlop azonos sorában a fájlnevek, amiket a D oszlop azonos sorában lévő célmappákba kellene átmásolni.

Ha valaki tudna esetleg segíteni ebben.

Sub CopyFile()
Dim src As String, dst As String, fl As String, Dim x As Integer
‘Source directory
src = Range(„B1”)
‘Destination directory
dst = Range(„D1”)
‘File name
x = 4
Do
fl = Range(„B” & x).Value
On Error Resume Next
FileCopy src & „” & fl, dst & „” & fl
If Err.Number <> 0 Then
Range(„C” & x).Value = „Copy error: ” & src & ” ” & fl
End If
On Error GoTo 0
x = x + 1
Loop While Not IsEmpty(Range(„B” & x))

End Sub

Köszönettel,
Józsi