To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=115860
------- Additional comments from [email protected] Thu Dec 2 13:15:05 +0000 2010 ------- thanks for the lesson ;-) added a small test for common special characters REM ***** BASIC ***** OPTION EXPLICIT Sub TestSheetNames On Local Error Goto ErrorHandler Dim oDoc as Object Dim oSheets as Object Dim mChars as String Dim i as Integer Dim s as String Dim sName as String Dim mRanges() i = 1 mChars = "*:[]/\'? $.;°!§%&()=<>|,-_#+~`´²³...@µ^{}ß""" oDoc = ThisComponent oSheets = oDoc.getSheets() s = "can not insert sheets with chars: " For i = 1 To Len(mChars) sName = Mid(mChars, i, 1) If oSheets.hasByName(sName) Then oSheets.removeByName(sName) EndIf oSheets.insertNewByName(sName, oSheets.getCount()) Next i s = s & Chr(13) & Chr(13) & "failed to access cellranges without quoting: " For i = 0 To oSheets.getCount()-1 sName = oSheets.getByIndex(i).getName() mRanges() = oSheets.getCellRangesByName(sName & ".A1") Next i s = s & Chr(13) & Chr(13) & "failed to access a cellrange without quoting: " For i = 0 To oSheets.getCount()-1 sName = oSheets.getByIndex(i).getName() oSheets.getByName(sName).getCellRangeByName(sName & ".A1") Next i MsgBox (s, 64, "Check characters") Exit Sub ErrorHandler: s = s & sName Resume Next End Sub --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
