Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

EXCEL - VBA - otworzyć plik z aktualną datą

bystrotrecon 03 Wrz 2016 09:47 1206 2
  • #1 03 Wrz 2016 09:47
    bystrotrecon
    Poziom 7  

    Jak otworzyć plik za pomocą makra z aktualną datą np. Zm_14_09_16?

    Sub Raport_Zmianowy()
    Dim Katalog As String
    Katalog = "\\Poluser1\dyspozytorzy\Asystent\Doba\Dane\Dane_2016\Mc_zm_09_16\" 'miesiąc
    Shell "explorer.exe " & Katalog, vbNormalFocus
    End Sub

    Mam możliwość wyboru z katalogu, nie wiem jak się zabrać za kod, który porówna mi np. 14 z datą systemową.

    Dziękuję za pomoc. Pozdrawiam.

    0 2
  • #2 03 Wrz 2016 11:26
    JRV
    Specjalista - VBA, Excel

    Co masz na MsgBox Date() ? Jak wygląda?

    Dodano po 1 [minuty]:

    lub w okienku Immediate wpisz
    ? Date

    Dodano po 1 [minuty]:

    jeszcze lepsze ? Day(Now)

    0
  • #3 03 Wrz 2016 13:23
    bystrotrecon
    Poziom 7  

    Rozwiązałem w ten sposób, na razie działa..

    Workbooks.Open Filename:="\\Poluser1\dyspozytorzy\Asystent\Doba\Dane\Dane_2016\Mc_zm_09_16\Zm_" & Format(Date, "dd_mm_yy") & ".xls"

    0