Set wshShell=WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 60000
wshShell.SendKeys "{NUMLOCK}"
wshShell.SendKeys "{NUMLOCK}"
loo...
Sunday, 17 February 2019
How to Unhide Sheet all tab from Excel
On Error Resume Next
'vMasterFilePath=WScript.Arguments(0)
'vLogPath=WScript.Arguments(1)
vMasterFilePath="C:\Users\admin\Desktop\Operation\Data.xlsx"
vLogPath="C:\Users\admin\Desktop\Operation\Log.txt"
'For write the log'
Set objFS = CreateObject("Scripting.FileSystemObject")
Set FSO_Handle = objFS.OpenTextFile(vLogPath,8,True)
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
objExcel.Visible = True
Set objW...
Subscribe to:
Posts (Atom)
