Hallo,
wir wollten Fragen ob sich jemand mit der Fehlermeldung auskennt, sie bezieht sich auf die im Code vorhandene len-funktion. Wir haben versucht die Errormessage mit verschiedenen Schreibweisen zu lösen, nur kamen wir bisher leider zu keinem Ergebnis.
objWord = .OLEObject~New("Word.Application")
objWord~Visible = .True
objWord~DisplayAlerts = .False
objWord~Documents~Open("C:\Users\ahilb\Desktop\Demotable.docx")
objDoc = objWord~ActiveDocument
objExcel = .OLEObject~new("Excel.Application")
objExcel~Visible = .True
objExcel~DisplayAlerts = .False
objExcel~Workbooks~Add
objSheet = objExcel~ActiveSheet
dstRow = 0
do tbl over objDoc~Tables
do srcRow = 1 To tbl~Rows~Count
col = 0
do cell over tbl~Rows(srcRow)~Cells
col = col + 1
objSheet~Cells(dstRow+srcRow, col)~Value = Left(cell~Range~Text , len(cell~Range~Text)-1)
End
End
dstRow = dstRow + SrcRow
End
Worksheet~SaveAs("convertion.xls")
Trapped In..: RunSyntax
Message..: Could not find routine "LEN"
ErrorText..: Routine not found
Code..: 43.1
Line #..: 19
Mit freundlichen Grüßen,
Andreas