.vbs - oWB.SaveAs "DATUM.xls"

[Verwijderd]

Hallo,

Ik gebruik een .vbs script waarmee ik exporteer naar "C:\Export.xls".

Wie kan me helpen zodat het opgeslagen wordt als JJJJ-MM-DD-uu:mm - [Tekst].xls?

Edit: @Jazzy - Code toegevoegd

Visual Basic:

Dim objOutlook, objNameSpace, lItemCount, lLinePos, objExcel, myFolder 
Dim strFolders 

On Error Resume Next 

Set objExcel= CreateObject("Excel.Application") 
objExcel.visible=False 
objExcel.DisplayAlerts = False 
Set oWB = objExcel.Workbooks.Add 
'doe dingen
oWB.SaveAs "C:\Export.xls"
objExcel.Quit 

'doe nog meer dingen

[ Voor 133% gewijzigd door Lustucru op 15-01-2016 17:04 ]

[Jazzy]

Deel je code even, of in ieder geval het relevante stukje.

[YakuzA]

*knip* let me google that for you linkjes zijn al jaar en dag niet leuk meer.
Policy m.b.t. replies in 'slechte' topics

[ Voor 113% gewijzigd door Lustucru op 15-01-2016 17:00 ]

[Jazzy]

Hier nog een voorbeeld: https://ardamis.com/2012/...-text-file-with-vbscript/

En wat ben ik blij dat ik met PowerShell werk.

[Belindo]

Omdat het bijna weekend is:

Visual Basic:

oWB.SaveAs "C:\" & Format(Now(),"yyyy-mm-dd hhmm") & " - Export.xls"

[ Voor 4% gewijzigd door Belindo op 15-01-2016 16:54 ]

[Lustucru]

Verwijderd schreef op vrijdag 15 januari 2016 @ 16:43:
Edit: @Jazzy - Code toegevoegd

Zet je er dan de volgende keer ook nog [code][/code] -tags omheen?

[ Voor 4% gewijzigd door Lustucru op 15-01-2016 17:02 ]

[Verwijderd]

Bedankt voor jullie reacties, Ik had al het een en ander geprobeerd via google, maar ik ben geen programmeur of ontwikkelaar en lukte me maar niet.

Ik heb ook de code van Belindo zojuist gebruikt, maar helaas wordt er geen bestand aangemaakt.
Ik heb dus

code:

oWB.SaveAs "C:\Export.xls"

volledig vervangen met

code:

oWB.SaveAs "C:\" & Format(Now(),"yyyy-mm-dd hhmm") & " - Export.xls"

[ Voor 4% gewijzigd door Verwijderd op 15-01-2016 17:04 ]

[Belindo]

Ik ga er natuurlijk wel vanuit dat met je huidige methode wel een bestand wordt aangemaakt met de naam Export.xls

[Verwijderd]

Ja dat gebeurt idd
Ik hergebruik dezelfde code en wijzig dus alleen zoals ik hierboven aangaf

[Lustucru]

Ik kan me vergissen, maar volgens mij krijg je ook een vette foutmelding om je oren. Deze vorm van format is VBA en komt vziw niet zo voor in vbscript...

edit:
Ach nee: de devil is there:

code:

on error resume next

Haal die eens weg...

[ Voor 25% gewijzigd door Lustucru op 15-01-2016 17:16 ]

[Verwijderd]

Ik had een klein stukje van de script geplaatst, omdat het anders zo onleesbaar is. Het liefst voeg ik het toe in de bijlage van een bericht, maar ik zie die optie niet.

Nou nee, je had het volledige script geplaatst, maar ik heb het ingekort... idd omdat het anders zo onleesbaar wordt.
Het is genoeg om het relevante deel te posten en dat staat in je startpost.

*snip: code weer ingekort *

[ Voor 73% gewijzigd door Lustucru op 15-01-2016 17:24 ]

[Belindo]

Lustucru schreef op vrijdag 15 januari 2016 @ 17:15:
Ik kan me vergissen, maar volgens mij krijg je ook een vette foutmelding om je oren. Deze vorm van format is VBA en komt vziw niet zo voor in vbscript...

edit:
Ach nee: de devil is there:

code:

on error resume next

Haal die eens weg...

My bad. Ik ging er blindelings vanuit dat deze code vanuit Outlook VBA gedraaid werd

Tevens On Error Resume Next

[Verwijderd]

code:

on error resume next

Dit verwijderen levert error: Type mismatch: 'Format'

[Lustucru]

Exact: de code is fout, maar dat zag je niet omdat 'on error resume next' de instructie is voor "wat er ook gebeurt, zeg niks en kachel door'. Belindo zal wel de goede code posten maar anders kijk je hier:

http://www.mikesdotnettin...te-formatting-in-vbscript

Probeer het eens werkend te krijgen: leer je veel van.

[ Voor 9% gewijzigd door Lustucru op 15-01-2016 17:29 ]

[RobIII]

Verwijderd schreef op vrijdag 15 januari 2016 @ 17:23:

code:

on error resume next

Dit verwijderen levert error: Type mismatch: 'Format'

On Error Resume Next is dan ook in veruit de meeste gevallen niet aan te raden. Zo nu en dan moet je in VBA/VBS eens een "exception vangen" en dan kun je On Error Resume Next wel "inzetten" op een volgende manier:

VBScript:

strFoo = "Bar"

'Hieronder code die MOGELIJK een "exception" gooit:
On Error Resume Next  ' "Disable exceptions"
iResult = 42 / 0
On Error Goto 0  ' "Exceptions" weer "enablen"

MsgBox("Yay!")

Als je wil zien of er tussen "On error resume..." en "On error goto..." ergens iets fout gaat doe je zoiets:

VBScript:

strFoo = "Bar"

'Hieronder code die MOGELIJK een "exception" gooit:
On Error Resume Next  ' "Disable exceptions"
iResult = 42 / 0

If Err.Number <> 0 then 'Check if something went wrong...
  MsgBox("Hmmm, something went wrong: " & Err.Description)
Else
  MsgBox("Everything fine!")
End if

On Error Goto 0  ' "Exceptions" weer "enablen"

MsgBox("Done")

Verder moet je er met RobIII in "Emails van een enkel mailbox in Outlook tellen" wel uitkomen hier lijkt me

VBScript:

strDate = Year(Now) & "-" & _
          Right("0" & Month(Now),2) & "-" & _
          Right("0" & Day(Now),2) & "-" & _
          Right("0" & Hour(Now),2) & "-" & _
          Right("0" & Minute(Now),2)

oWB.SaveAs "C:\" & strDate & " - Export.xls"

Dat "on error..." hier wel gebruikt wordt/werd is a) omdat 't een vlug probeerseltje c.q. "kladje" is, b) er van uit gegaan werd dat op de nodige plaatsen die "error checks" alsnog ingebouwd zouden (moeten) worden, c) er vooral met rechten e.d. nogal e.e.a. mis kan gaan en als je dan voor iemand wat voorbeeldcode schrijft is het niet heel erg fijn om meteen met een foutmelding geconfronteerd te worden maar door gewoon het volgende mapje te proberen. Na het itereren over die mapjes zou op z'n minst een "on error goto 0" horen te staan om zodoende navolgende fouten (niet kunnen opslaan e.d.) alsnog te kunnen signaleren (of ook daar weer "error checks" doen). Het hele error-afhandeling gebeuren van VBS/VBA is nogal... klunky te noemen maar stamt dan ook nog uit de prehistorie en uit de tijd voordat we (bijv.) VB.Net hadden en fatsoenlijke (typed) exceptions etc.

[ Voor 31% gewijzigd door RobIII op 15-01-2016 18:56 ]