https://bugs.freedesktop.org/show_bug.cgi?id=51884
Bug #: 51884
Summary: "ThisWorkbook" causes BASIC runntime error:423
Classification: Unclassified
Product: LibreOffice
Version: 3.5.4 release
Platform: Other
OS/Version: Windows (All)
Status: UNCONFIRMED
Severity: normal
Priority: medium
Component: BASIC
AssignedTo: [email protected]
ReportedBy: [email protected]
Created attachment 63996
--> https://bugs.freedesktop.org/attachment.cgi?id=63996
sample excel file with vba macro
LibreOffice 3.5.4.2
WindowsXP SP3
Steps to reproduce:
1. Open "sample1.xls" file with calc
2. Click "Enable Macros"
3. Select Tools -> Macros -> Run Macro , then open Macro Selector Dialog
4. Select sample.xls -> VBAProject -> Module1 -> Main, and then click "Run"
Behavior 1: Selected "Sheet3" normaly
5. Continuously, select File -> SaveAs, and save as "ODF spreadsheet (.ods)"
file type
For example, the name is "sample.ods"
6. Select Tools -> Macros -> Run Macro , then open Macro Selector Dialog
7. Select sample.xls -> VBAProject -> Module1 -> Main, and then click "Run"
Behavior 2: Selected "Sheet3" normaly.
8. Close Calc.
9. Select File -> Open -> "sample.ods"
10. Select Tools -> Macros -> Run Macro , then open Macro Selector Dialog
11. Select sample.xls -> VBAProject -> Module1 -> Main, and then click "Run"
Behavior 3: Error message pops up
BASIC runtime error.
'423'
Worksheets
Expected results: even in ods file, Selected "Sheet3" in the same way as
Behavior 1 and 2.
I suspect it's because of "ThisWorkbook" collision within both Module name and
code statement, in the case of ODS file.
When I remove module:"ThisWorkbook" from sample.ods, "Sheet3" selected in the
same way as Behavior 1 and 2.
Best Regards,
Hirono
--
Configure bugmail: https://bugs.freedesktop.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
