Skript na otevírání souboru .xlsm Vyřešeno

[Jsimi]

Ahoj
Prosím neporadil by někdo se skriptem, který by otevíral sešit excelu dle zadaných parametrů? Parametry by se braly ze systémového data.
např. cesta k souboru vypadá takto
c:\pokus\2013\pokus_1.xlsm
stím, že skript by hledal ve složce 2013,2014 dle aktuálního roku atd. a dále jméno souboru podle aktálního měsíce kde se mění pouze číslice od 1 do 12.
Vím, že skripty dokážou velmi mnoho, ale toto je mimo mou parketu.
Děkuji za jakoukoliv pomoc

[Reklama]

[Uziv00]

Jak chceš brát ty parametry?
Tedy abych upřesnil - jaký soubor se bude otvírat v jakém systémovém datu?
Jak se má skript chovat když tam soubor nebude?

[Jsimi]

Jde o to, že na každý měsíc je vytvořen soubor, který je uložen v dané složce podle aktálního roku a v názvu je vždy číslo podle měsíce, na který byl ten soubor připraven. Takže např. pokud by dnes datum 5.5.2014 otevíral by se soubor v tomto umístění.
C:\pokus\2014\pokus_5.xlsm. Neměla by nastat sitace že ten soubor tam nebude, nicméně se to stát může a pak se např. objevila hláška, že soubor neexistuje a skript by se ukončil. Snad jsem to vysvětlil dostatečně.

[Uziv00]

Takže ve vbs by to mohlo vypadat asi takto:

Kód: Vybrat vše

'****************************************************
'*   Skript otevírá xlsm soubor dle roku a měsíce   *   
'****************************************************
'*           Vytvořeno pro PC-HELP                  *
'*            Etienn@Script v 1.0                   *
'****************************************************

Option Explicit
Dim rok, mesic, fso, WshShell, File, prikaz

rok = Year(Now())
mesic = Month(Now())
Set fso = CreateObject ("Scripting.FileSystemObject")
Set WshShell = CreateObject ("WScript.Shell")
File = "C:\pokus\" & rok & "\pokus_" & mesic & ".xlsm"
' WScript.Echo File
If (fso.FileExists(File)) Then
prikaz = "excel.exe " & File
WshShell.Run prikaz
Else
  WScript.Echo("Soubor nenalezen!")
End If



Text zkopíruj do textového editoru např. do notepadu ne do wordu! a ulož s příponou .vbs. Po poklepání si z roku a měsíce vytvoří jméno souboru, zkontroluje, zda existuje a v případě, že ano, tak ho spustí.
Pokud budeš upravovat cestu, pak pro zobrazení jména souboru včetně cesty odstraň apostrof u řádku s "WScript.Echo File". Pak skript ukáže název souboru, než ho spustí. Potom ten řádek můžeš zase zakomentovat (vrátit apostrof).

[Jsimi]

Perfektní práce. Funguje jak má. Díky moc a zavírám.