Windows 8.1 RT office 2013 RT Alternatief voor macro gezocht.

[ldh]

Goedendag allemaal,

INFO:
tablet met Windows RT - 8.1
Office 2013 RT

ACHTERGRONDINFO:
Op een EPOC systeem (jaja Psion )
kun je een macro schrijven die alle bestanden in een directory opent, print, sluit.

Ik lees dat office 2013 RT geen macro's ondersteunt. Maar er zal hier best een slimmerik zijn die daar wat op gevonden heeft.

DE VRAAG:
Hoe realiseer ik dezelfde functie: een macro/programma opent in een directory (bv PRINT ) alle excel2013 bestanden, print ze , en sluit het bestand weer.
(met name dat laatste, het sluiten, daar gaat het om. Het selecteren van alle bestanden en daarna de opdracht afdrukken, dat gaat goed; maar vervolgens moet je ieder bestand sluiten en pas dan gaat het afdrukken verder.
EN DUS KAN IK NIET WEGLOPEN


Wie weet raad?

En alvast bedankt voor de tijd die u erin stopt.

gr. leo

 

[Warme bakkertje]

Sub print()
Dim bestandopen
  bestandopen = Dir("C:\PRINT\*")
  Do Until bestandopen = ""
   If bestandopen = "" Then Exit Do
     Workbooks.Open "C:\PRINT\" & bestandopen, False, True
      ActiveWorkbook.Sheets(1).PrintOut 
        Workbooks(bestandopen).Close False
    bestandopen = Dir
  Loop
End Sub

Maar zoals je zelf al aanhaalt, deze versie ondersteunt geen macro's.

 

[ldh]

Hoi Warme bakker,

Ik weet amper hoe ik de vraag moet verwoorden; laat staan dat ik een goed antwoord kan krijgen.
Maar toch even proberen.

HOE kan ik van deze macro een .exe maken?
Of iets in een .bat ?
De bedoeling is dus dat ik een programma opstart wat in de map C:\print ALLE bestanden opent/print/sluit.

Ik neem aan dat de macro dat doet, maar ik weet niet hoe ik die macro moet starten. EN...volgens mij moet ik er een soort .exe van maken i.v.m. WINDOWS RT

ALS ik een stomme vraag stel, dan bij voorbaat oprecht SORRY !

gr. ldh

 

[Warme bakkertje]

Je kan eens proberen met een vbs script.
Je moet nog wel het pad en de extensie aanpassen aan de werkelijke situatie.

 

[ldh]

Nog 1 regel....

Hoi Warme bakker,

Ik heb dat vbs script aan de praat; nogmaals dank.

Kun jij nog aan 1 regel helpen (in dat script)
Het bestand wordt na het printen gesloten en vraagt middels een schermpje of de wijzigingen opgeslagen moeten worden met (uiteraard) de normale keuze's van Ja/Nee/Annuleren.
Kun jij mij een regel geven waarin (er een string o.i.d.) terug gestuurd wordt de keuze : Nee


ALvast bedankt voor de tijd die je erin stopt.

 

[Warme bakkertje]

	 objExcel.Application.DisplayAlerts = False
         objWorkbook.Close
	 objExcel.Application.DisplayAlerts = True

 

[ldh]

Dank je wel

THNX !!!
Maandag nog even een echte praktijktest. Maar die zie ik met vertrouwen tegemoet !!

 

[ldh]

Zoals verwacht: perfect !
Dank je wel !