Description: I cannot access the contents of a variable created by executing a VBScript via the'automation bridge'. The error message (in line "rueck = WSH.CodeObject.x") is (german LO): "BASIC-Laufzeitfehler. Es ist eine Ausnahme aufgetreten Type: com.sun.star.uno.RuntimeException Message: [automation bridge] Could not get FUNCDESC for x." My code is: Sub WSH_test() 'kopiert Adressen aus Kontakte-Ordner von Outlook in eine Tabellendatei 'und meldet diese Tabellendatei als Datenbank namen "Outlook_Kontakte" in OO an Dim OleService As Object Dim WSH As Object Dim vbs Dim i, j Dim rueck If getGuiType() <> 1 Then Msgbox "Dieses Makro funktioniert nur unter dem Betriebssystem MS Windows.", 16, "Abbruch" Exit Sub End If OleService = CreateUnoService("com.sun.star.bridge.OleObjectFactory") WSH = OleService.CreateInstance("MSScriptControl.ScriptControl") WSH.Language = "VBScript" vbs = vbs & "x = Array(1,2,3)" + CHR(10) vbs = vbs & "Msgbox 3+4" WSH.ExecuteStatement(vbs) rueck = WSH.CodeObject.x For i = 0 To UBOUND(rueck) j = j & rueck(i) & CHR(13) Next i Msgbox j End Sub Notice: The code works fine in AOO (tested in AOO 4.1.2) Steps to Reproduce: run the code: Sub WSH_test() 'kopiert Adressen aus Kontakte-Ordner von Outlook in eine Tabellendatei 'und meldet diese Tabellendatei als Datenbank namen "Outlook_Kontakte" in OO an Dim OleService As Object Dim WSH As Object Dim vbs Dim i, j Dim rueck If getGuiType() <> 1 Then Msgbox "Dieses Makro funktioniert nur unter dem Betriebssystem MS Windows.", 16, "Abbruch" Exit Sub End If OleService = CreateUnoService("com.sun.star.bridge.OleObjectFactory") WSH = OleService.CreateInstance("MSScriptControl.ScriptControl") WSH.Language = "VBScript" vbs = vbs & "x = Array(1,2,3)" + CHR(10) vbs = vbs & "Msgbox 3+4" WSH.ExecuteStatement(vbs) rueck = WSH.CodeObject.x For i = 0 To UBOUND(rueck) j = j & rueck(i) & CHR(13) Next i Msgbox j End Sub Actual Results: I get an error message Expected Results: the content of variable x is returned Reproducible: Always User Profile Reset: Yes Additional Info: User-Agent: Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko
Created attachment 142308 [details] error message Tested with Version: 6.1.0.0.alpha1+ (x64) Build ID: e1a8338876bd161de4e9d9a4b22d4bc5335f7cee CPU threads: 1; OS: Windows 6.1; UI render: default; and I get error message: BASIC runtime error. Object variable not set.
Reproduced in - Versión: 6.0.4.2 Id. de compilación: 9b0d9b32d5dcda91d2f1a96dc04c645c450872bf Subprocs. CPU: 1; SO: Windows 6.1; Repres. IU: predet.; Configuración regional: es-ES (es_ES); Calc: group - Versión: 4.4.0.3 Id. de compilación: de093506bcdc5fafd9023ee680b8c60e3e0645d7 Configuración regional: es_ES - LibreOffice 3.3.0 OOO330m19 (Build:6) tag libreoffice-3.3.0.4 but not in Apache OpenOffice 4.1.3. weird....
Dear joesch04, To make sure we're focusing on the bugs that affect our users today, LibreOffice QA is asking bug reporters and confirmers to retest open, confirmed bugs which have not been touched for over a year. There have been thousands of bug fixes and commits since anyone checked on this bug report. During that time, it's possible that the bug has been fixed, or the details of the problem have changed. We'd really appreciate your help in getting confirmation that the bug is still present. If you have time, please do the following: Test to see if the bug is still present with the latest version of LibreOffice from https://www.libreoffice.org/download/ If the bug is present, please leave a comment that includes the information from Help - About LibreOffice. If the bug is NOT present, please set the bug's Status field to RESOLVED-WORKSFORME and leave a comment that includes the information from Help - About LibreOffice. Please DO NOT Update the version field Reply via email (please reply directly on the bug tracker) Set the bug's Status field to RESOLVED - FIXED (this status has a particular meaning that is not appropriate in this case) If you want to do more to help you can test to see if your issue is a REGRESSION. To do so: 1. Download and install oldest version of LibreOffice (usually 3.3 unless your bug pertains to a feature added after 3.3) from http://downloadarchive.documentfoundation.org/libreoffice/old/ 2. Test your bug 3. Leave a comment with your results. 4a. If the bug was present with 3.3 - set version to 'inherited from OOo'; 4b. If the bug was not present in 3.3 - add 'regression' to keyword Feel free to come ask questions or to say hello in our QA chat: https://kiwiirc.com/nextclient/irc.freenode.net/#libreoffice-qa Thank you for helping us make LibreOffice even better for everyone! Warm Regards, QA Team MassPing-UntouchedBug
(In reply to raal from comment #1) > Created attachment 142308 [details] > error message > > Tested with Version: 6.1.0.0.alpha1+ (x64) > Build ID: e1a8338876bd161de4e9d9a4b22d4bc5335f7cee > CPU threads: 1; OS: Windows 6.1; UI render: default; > and I get error message: BASIC runtime error. > Object variable not set. raal, you're getting that error probably because you are using x64 version. for this program, I guess we need to use x86 version instead.
I'm getting the same error with my software. http://deadtrigger.io/
Dear joesch04, To make sure we're focusing on the bugs that affect our users today, LibreOffice QA is asking bug reporters and confirmers to retest open, confirmed bugs which have not been touched for over a year. There have been thousands of bug fixes and commits since anyone checked on this bug report. During that time, it's possible that the bug has been fixed, or the details of the problem have changed. We'd really appreciate your help in getting confirmation that the bug is still present. If you have time, please do the following: Test to see if the bug is still present with the latest version of LibreOffice from https://www.libreoffice.org/download/ If the bug is present, please leave a comment that includes the information from Help - About LibreOffice. If the bug is NOT present, please set the bug's Status field to RESOLVED-WORKSFORME and leave a comment that includes the information from Help - About LibreOffice. Please DO NOT Update the version field Reply via email (please reply directly on the bug tracker) Set the bug's Status field to RESOLVED - FIXED (this status has a particular meaning that is not appropriate in this case) If you want to do more to help you can test to see if your issue is a REGRESSION. To do so: 1. Download and install oldest version of LibreOffice (usually 3.3 unless your bug pertains to a feature added after 3.3) from https://downloadarchive.documentfoundation.org/libreoffice/old/ 2. Test your bug 3. Leave a comment with your results. 4a. If the bug was present with 3.3 - set version to 'inherited from OOo'; 4b. If the bug was not present in 3.3 - add 'regression' to keyword Feel free to come ask questions or to say hello in our QA chat: https://web.libera.chat/?settings=#libreoffice-qa Thank you for helping us make LibreOffice even better for everyone! Warm Regards, QA Team MassPing-UntouchedBug