Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
IF %date:~0,2%==wo GOTO StartExcel
IF %date:~0,2%==za GOTO StartExcel
GOTO End
:StartExcel
"C:\Users\Senso\Documents\ExcelDocument.xlsx"
:End
@Echo Off
ExcelDoc = """C:\Users\Senso\Documents\Helpmij Vraag.xlsx"""
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Dag = DatePart("w", Date())
TmpFile = WshShell.ExpandEnvironmentStrings("%Temp%") & "\OpenExcelDoc_*.tmp"
Select Case Dag
Case 4, 7: OpenExcelDoc
Case Else
Fso.DeleteFile TmpFile
End Select
Sub OpenExcelDoc
TmpFile = Replace(TmpFile, "*", Dag)
If Not FileExists(TmpFile) Then
Fso.CreateTextFile TmpFile, True
WshShell.Run ExcelDoc, 1, False
End If
End Sub
Function FileExists(FilePath)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(FilePath) Then
FileExists=CBool(1)
Else
FileExists=CBool(0)
End If
End Function
@Echo Off
IF %date:~0,2%==wo GOTO StartExcel
IF %date:~0,2%==za GOTO StartExcel
GOTO End
:StartExcel
"E:\INDEX\Mijn Boekhouding\Mijn Werkzaamheden\Back-ups op woensdag en zaterdag maken.xlsx"
:End
Dan opent het Excel document dus altijd.Ik heb het al ontdekt. Die GOTO End moet er uit.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.