Office Excel 2010 XLS/XLSX bewaren
Geplaatst: 21 feb 2012, 13:20
Aan onze inkom hebben we een 55" LCD scherm hangen, dat via HDMI aanegsloten is op een normale Windows 7 PC.
Deze PC is zo ingesteld dat die automatisch aanlogt, en een VBS script "loop.vbs" (zie hieronder) start, waarin een powerpoint slideshow ((PPSX) gestart wordt, en waarbij de links automatisch geupdate worden.
Deze Slideshow haalt dus zijn gegevens uit een Excel bestand dat ook op die PC staat - dat zijn die links die geupdate moeten worden.
Nu werkt dat allemaal goed, alleen moet die XLSX steeds handmatig bewaard worden. Ik zoek een VBS (of iets anders) script, dat die XLSX opendoet, en terug bewaart. Iemand een idee?
Deze PC is zo ingesteld dat die automatisch aanlogt, en een VBS script "loop.vbs" (zie hieronder) start, waarin een powerpoint slideshow ((PPSX) gestart wordt, en waarbij de links automatisch geupdate worden.
Deze Slideshow haalt dus zijn gegevens uit een Excel bestand dat ook op die PC staat - dat zijn die links die geupdate moeten worden.
Nu werkt dat allemaal goed, alleen moet die XLSX steeds handmatig bewaard worden. Ik zoek een VBS (of iets anders) script, dat die XLSX opendoet, en terug bewaart. Iemand een idee?
Code: Selecteer alles
Const ppAdvanceOnTime = 2
Const ppShowTypeKiosk = 3
Const ppSlideShowDone = 100000000
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Open("C:\_Presentation\pc-inkom\Welcome.ppsx")
objPresentation.UpdateLinks
objPresentation.Slides.Range.SlideShowTransition.AdvanceTime = 10
objPresentation.Slides.Range.SlideShowTransition.AdvanceOnTime = TRUE
objPresentation.SlideShowWindow.View.PointerType = ppSlideShowPointerAlwaysHidden
objPresentation.SlideShowSettings.AdvanceMode = ppAdvanceOnTime
objPresentation.SlideShowSettings.ShowType = ppShowTypeKiosk
objPresentation.SlideShowSettings.StartingSlide = 1
objPresentation.SlideShowSettings.EndingSlide = _
objPresentation.Slides.Count
Set objSlideShow = objPresentation.SlideShowSettings.Run.View
Do Until objSlideShow.State = ppSlideShowDone
Loop
Post made via mobile device ]