[VBScript] Issue bij opslaan van Excel

[Verwijderd]

Wanneer ik mijn dmv vbscript gegenereerde Excel file wil opslaan krijg ik bij deze manier geen fouten

VBScript:

strExportExcelPath = "c:\DiskReport.xls"
...
objExportExcel.ActiveWorkbook.SaveAs strExportExcelPath
objExportExcel.Save
objExportExcel.Quit

Wanneer ik het op deze manier doe

VBScript:

strExportExcelPath = "c:\DiskReport" & FormatDateTime(Now,0) & " .xls"[s][/s]
...
objExportExcel.ActiveWorkbook.SaveAs strExportExcelPath
objExportExcel.Save
objExportExcel.Quit

Dan vraagt hij op het einde altijd 'Wilt u de wijzigingen in Map1 opslaan?"

strExportExcelPath is nochtans een string datatype dus hij zou dat normaal moeten saven net als op dezelde manier als wanneer het pad hard gecodeerd staat dacht ik zo?

[ Voor 3% gewijzigd door Verwijderd op 12-02-2010 14:37 . Reden: code tags gewijzigd ]

[Black Hawk]

-knip-

post ongeldig omdat TS niet PHP maar VBscript bedoelde...

[ Voor 95% gewijzigd door Black Hawk op 12-02-2010 14:45 ]

[RedHat]

VBScript != PHP

Ik hallucineer, mijn excuses. Deze reply kun je dus denk ik vergeten

[ Voor 67% gewijzigd door RedHat op 12-02-2010 14:34 ]

[Big Womly]

Ik ken niets van PHP, maar om dit op te lossen in VBSCRIPT moet je voor je Quit functie de Property DisplayAlerst op False zetten.

Visual Basic .NET:

objExcel.DisplayAlerts = False
objExcel.Quit

[mhoogendam]

mbsaerens schreef op vrijdag 12 februari 2010 @ 14:37:
Ik ken niets van PHP, maar om dit op te lossen in VBSCRIPT moet je voor je Quit functie de Property DisplayAlerst op False zetten.

Visual Basic .NET:

objExcel.DisplayAlerts = False
objExcel.Quit

Inderdaad, zie ook How to suppress "Save Changes" prompt when you close a workbook in Excel

[Verwijderd]

Heb de tags gewijzigd, had me vergist

mbsaerens schreef op vrijdag 12 februari 2010 @ 14:37:
Ik ken niets van PHP, maar om dit op te lossen in VBSCRIPT moet je voor je Quit functie de Property DisplayAlerst op False zetten.

Visual Basic .NET:

objExcel.DisplayAlerts = False
objExcel.Quit

Dit haalt niets uit, ik vraag me echt af waar die fout zit en waarom hij het op de andere manier wel wil opslaan.

[Snake]

Check eens wat de waarde is van strExportExcelPath voordat je opslaat? Met een MsgBox ofzo.

[mhoogendam]

Snake schreef op vrijdag 12 februari 2010 @ 14:47:
Check eens wat de waarde is van strExportExcelPath voordat je opslaat? Met een MsgBox ofzo.

Dat werkt hier ook gewoon, tenminste als ik de tags hieronder weghaal.
Waarom staat er [s][/s] in je code? typefout met quoten?

[ Voor 65% gewijzigd door mhoogendam op 12-02-2010 14:48 ]

[Verwijderd]

Waarde van die variabele klopt, de messagebox geeft de waarde terug die ik als bestandsnaam wil gebruiken, en dat ene betrefte inderdaad een typfout

VBScript:

objExportExcel.ActiveWorkbook.SaveAs strExportExcelPath
objExportExcel.ActiveWorkbook.Saved = True
objExportExcel.Application.DisplayAlerts = False
objExportExcel.ActiveWorkbook.Close
objExportExcel.Application.DisplayAlerts = True
objExportExcel.Save
objExportExcel.Application.Quit

Nu geeft hij die melding niet meer maar slaat hij het gewoonweg niet op ook.


EDIT: ik heb de fout gevonden, het karakter '/' kan je niet gebruiken in een bestandsnaam, moet dus enkel een ander formaat gebruiken

[ Voor 11% gewijzigd door Verwijderd op 12-02-2010 14:56 ]

[mhoogendam]

Waarschijnlijk vind hij je tijd notering niet zo leuk. het viel me eerder niet op maar een : mag niet in je bestandsnaam zitten

VBScript:

strExportExcelPath = "c:\DiskReport" & Date & " .xls"

Zal gewoon werken en de file opslaan met de datum van vandaag.

VBScript:

objExcel.DisplayAlerts = False
objExcel.Quit

heb ik trouwens niet nodig gehad.

Wil je perse de tijd erin hebben?

[ Voor 14% gewijzigd door mhoogendam op 12-02-2010 15:01 ]

[Verwijderd]

VBScript:

strDateTime = replace(FormatDateTime(Now,0), "/", "-")
strDateTime = replace(strDateTime, ":", ".")
strExportExcelPath = "c:\DiskReport " & strDateTime & ".xls"

...

objExportExcel.ActiveWorkbook.SaveAs strExportExcelPath
objExportExcel.ActiveWorkbook.Close
objExportExcel.Save
objExportExcel.Application.Quit

Nog steeds vraagt hij of ik het wil opslaan onder een andere naam, nochtans zijn alle ongeldige tekens uit de bestandsnaam verwijderd.

EDIT: Na tweede keer uitvoeren werkt het blijkbaar, kan me wel voor het hoofd slaan dat ik met zo iets banaals geen rekening gehouden had. Het lag doodsimpel aan die tekens.

[ Voor 16% gewijzigd door Verwijderd op 12-02-2010 15:10 ]

[mhoogendam]

Bij mij gaf Excel een melding om "resume.xlw" op te slaan.
Doormiddel van de "objExportExcel.DisplayAlerts = False" word deze melding niet meer weergegeven.

VBScript:

strDateTime = replace(FormatDateTime(Now,0), "/", "-")
strDateTime = replace(FormatDateTime(Now,0), ":", ".")
strExportExcelPath = "c:\DiskReport " & strDateTime & ".xls" 

objExportExcel.DisplayAlerts = False 
objExportExcel.ActiveWorkbook.SaveAs strExportExcelPath
objExportExcel.Save
objExportExcel.Quit

[RobIII]

mhoogendam schreef op vrijdag 12 februari 2010 @ 15:13:

VBScript:

strDateTime = replace(FormatDateTime(Now,0), "/", "-")
strDateTime = replace(FormatDateTime(Now,0), ":", ".")

Euh, da's nogal nutteloos he?
Je bedoelt:

VBScript:

strDateTime = replace(FormatDateTime(Now,0), "/", "-")
strDateTime = replace(strDateTime, ":", ".")

@devilex: Debuggen: Hoe doe ik dat?

[ Voor 32% gewijzigd door RobIII op 12-02-2010 15:25 ]

[Verwijderd]

mhoogendam schreef op vrijdag 12 februari 2010 @ 15:13:
Bij mij gaf Excel een melding om "resume.xlw" op te slaan.

Kreeg ik ook soms, vraag me wel af wat dit betekent.

[mhoogendam]

RobIII schreef op vrijdag 12 februari 2010 @ 15:24:
[...]

Euh, da's nogal nutteloos he?
Je bedoelt:

VBScript:

strDateTime = replace(FormatDateTime(Now,0), "/", "-")
strDateTime = replace(strDateTime, ":", ".")

@devilex: Debuggen: Hoe doe ik dat?

Ik zie inderdaad nu dat het nogal nutteloos is, devilex had blijkbaar zijn code aangepast in zijn edit
Ik had dan ook al geen last van de slashes in de datum notatie.

[Verwijderd]

Wanneer ik het excel bestand achteraf eens open en terug wil sluiten vraagt hij alweer of ik de wijzigingen in Map3 wil opslaan.

Was daarnet inderdaad ietsje te snel met die replace

[ Voor 3% gewijzigd door Verwijderd op 12-02-2010 15:49 ]