• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

bestandsdatum in code automatisch aanpassen

Status
Niet open voor verdere reacties.

dvejam

Gebruiker
Lid geworden
11 nov 2010
Berichten
63
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?

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:
Code:
 Sub ABS_Ophalen()
ChDir "M:\Berkel en Rodenrijs BS\ABS\Overzicht ass"
 Workbooks.Open Filename:= _
 "M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie" & Date & ".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 Kopie" & Date & ".xlsx").Activate
 ActiveWorkbook.Close
 End Sub

Werkt dit?
 
Vind je jouw vraag leesbaar? Ik niet. Gebruik codetags. Welke datum moet je elke keer handmatig aanpassen?
 
Ik weet niet welke bestand je wilt openen.
Maandag kun je het bestand van vrijdag niet openen met 'Date'.
Zet de datum van het bestand die je wilt openen in een cel; bv cel A1.


Code:
"M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie" & sheets(1).range("a1").value & ".xlsx"
"M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie" & Date & ".xlsx"
 
Goedemorgen,

VenA je hebt gelijk is niet leesbaar. Zojuist code tussen tags gezet om leesbaarheid te vergroten. In de code wordt iedere werkdag op 2 plekken de datum aangepast naar de datum van die dag:

Plek 1: "M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie19-05-2017.xlsx"
Plek 2: Windows("9001 Totaaloverzicht Kopie19-05-2017.xlsx").Activate

Waar 19-05-2017 staat type ik dus vandaag 22-05-2017.
 
Blijkbaar niet

dan zou dit toch moeten werken:

Code:
9001 Totaaloverzicht Kopie" & Date & ".xlsx"
 
Laatst bewerkt:
Goedemorgen,

Een verlate reactie ivm omstandigheden. Ik heb de suggesties geprobeerd
Code:
9001 Totaaloverzicht Kopie" & Date & ".xlsx"
.

Ik krijg echter een foutmelding: M:\Berkel en Rodenrijs\ABS\Overzicht ass\9001 Totaaloverzicht Kopie26-5-2017.xlsx is niet te vinden. Controleer de spelling of probeer een ander pad.

date maakt van de datum 26-5-2017 i.p.v. 26-05-2017. Hoe is dit aan te passen?

Ben er achter om 26-05-2017 te krijgen heb ik de code aangepast: "M:\Berkel en Rodenrijs BS\ABS\Overzicht ass\9001 Totaaloverzicht Kopie" & Format(Date, "dd-mm-yyyy") & ".xlsx"

Nu werkt het prima.

Iedereen bedankt voor de hulp.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan