Office: (Office 2013) Problem bei Datum YYYY/MM/DD

dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht den kompletten Code einschl. Dim sehe.
Bei mir geht es.

 

StartTime=Now

if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: xlstocsvconverter.vbs SourcePath.xls Destination.csv"
Wscript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
Dim objExcel, local
Set objWorkbook = objExcel.Workbooks.Open(src_file)
Set objWSheet=objWorkbook.Worksheets(1)
local = true
Rem local = false
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 16)), Cells(Rows.Count, 16).End(xlUp).Row, Rows.Count)


'ab hier werden die Datumsspalten mit 1 multipiziert, damit die Zellenwerte eine richtige Zahl werden
'und auch formatiert
objWSheet.range("AO4").Value=1
objWSheet.range("AO4").Copy
objWSheet.range("P4:P" & LoLetzte).PasteSpecial -4104, 4, false, false
objWSheet.range("P4:P" & LoLetzte).NumberFormat = "yyyy\/MM\/dd hh:mm:ss"

objWSheet.range("AO4").Copy
objWSheet.range("Q4:Q" & LoLetzte).PasteSpecial -4104, 4, false, false
objWSheet.range("Q4:Q" & LoLetzte).NumberFormat = "yyyy\/MM\/dd hh:mm:ss"

objWSheet.range("AO4").Copy
objWSheet.range("R4:R" & LoLetzte).PasteSpecial -4104, 4, false, false
objWSheet.range("R4:R" & LoLetzte).NumberFormat = "yyyy\/MM\/dd hh:mm:ss"

objWSheet.range("AO4").Copy
objWSheet.range("AJ4:AJ" & LoLetzte).PasteSpecial -4104, 4, false, false
objWSheet.range("AJ4:AJ" & LoLetzte).NumberFormat = "yyyy\/MM\/dd hh:mm:ss"

objWSheet.Rows("1:2").Delete
objWorkbook.SaveAs dest_file, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, local
objWorkbook.Close False

objExcel.Quit

 

sehe ich das richtig das LoLetzte nicht definiert wurde?
Man Sollte schon alle Vraiblen Definieren. Mir scheint nur Profies schreiben in einem Modulö als erstes Option Explicit, weil sie sich auskennen. Laien brauchen dies nicht.
Ich sehe keinen Grund warum das nicht gehen sollte.

Es fehlt in der Zeile der Bezug zu objWSheet.
Man sollte With einsetzen.

 

Hallo Leeum,,

nun stelle doch mal eine Excel-Datei brreit, die mehr Datenzeilen hat als nur eine einzige (Zeile 4).
Der Code von Hajo ist Excel-Vba und funktioniert dann auch in Excel.
Dein Code ist aber VB-Script und da muß die Ermittlung der letzten Datenzeile etwas anders (genauere Objekt-Zuordnung) realisiert werden.
So kann VB-Script mit der excelinternen Konstanten 'xlUp' nichts anfangen und muß gegen den Integer-Wert '-4162' ersetzt werden.
Aber auch dann wird:
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 16)), Cells(Rows.Count, 16).End(-4162).Row, Rows.Count)
noch nicht funktionieren, das das Excel-Vba hier eigene Objektbezüge zur aktiven Arbeitstabelle macht, was VBScript so nicht kann.

Gruß von Luschi
aus klein-Paris