Egy adott mappába rendszeresen kapok excel file-okat, melyek nevei a küldõ nevét és a küldés idõpontját tartalmazza. Eeket egy állandó, központi excel file-ból meg akarom megnyitni, minddel mûveleteket végezni majd amelyik feldolgozásra került, azt áthelyezni egy másik mappában. Tudjátok, hogyan lehet ezt makróval gyorsan megcsinálni (a mappában lévõ összes file megnyitása illetve a végén áthelyezés)?
Ezt találtam:
Sub Open_My_Files()
Dim MyFile As String
MyPath = "D:\Data\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.xls" Then
Workbooks.Open MyPath & MyFile
Sheets(1).Select
'Paste Code here
ActiveWorkbook.Close True
End If
MyFile = Dir
Loop
End Sub
Az hibázik, hogy minden file-ból át kell mennem egy másikba, adatot átmásolni, majd visszajöbbi ebbe és bezárni. Ez a visszajövés nem megy.