[Libreoffice-bugs] [Bug 51884] New: "ThisWorkbook" causes BASIC runntime error:423

[bugzilla-daemon at freedesktop.org]

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: libreoffice-bugs at lists.freedesktop.org
        ReportedBy: hmoi at ashisuto.co.jp


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.