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 brinz...@openoffice.org 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: issues-unsubscr...@sc.openoffice.org
For additional commands, e-mail: issues-h...@sc.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org
