Goedenavond,
Op werkdagen wordt een bestand 9001 Totaaloverzicht Kopie dd-mm-yyyy weggeschreven. Uit dat bestand wordt met onderstaande code data opgehaald. Echter waar ik op stuit is dat ik iedere werkdag handmatig de datum in de code hieronder moet aanpassen. Is er een eenvoudiger manier om dit (automatisch) te doen?
Alvast bedankt.
Dennis
Op werkdagen wordt een bestand 9001 Totaaloverzicht Kopie dd-mm-yyyy weggeschreven. Uit dat bestand wordt met onderstaande code data opgehaald. Echter waar ik op stuit is dat ik iedere werkdag handmatig de datum in de code hieronder moet aanpassen. Is er een eenvoudiger manier om dit (automatisch) te doen?
Code:
Sub ABS_Ophalen()
'
' ABS_Ophalen Macro
'
'
ChDir "M:\Berkel en Rodenrijs BS\ABS\Overzicht ass"
Workbooks.Open Filename:= _
"M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie19-05-2017.xlsx"
Range("C:C,Q:Q").Select
Range("Q1").Activate
ActiveWindow.LargeScroll ToRight:=2
Range("L:L,M:M,C:C,Q:Q,BA:BA,AY:AY,BC:BC,BD:BD").Select
Range("BD1").Activate
Selection.Copy
Windows("Export werkbestand.xlsm").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("ABS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ABS").Sort.SortFields.Add Key:=Range("A2:A59000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ABS").Sort
.SetRange Range("A1:F590000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Windows("9001 Totaaloverzicht Kopie19-05-2017.xlsx").Activate
ActiveWorkbook.Close
End Sub
Alvast bedankt.
Dennis
Laatst bewerkt: