<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Macro using com.sun.star.ui.dialogs.FilePicker (save as) stops working and presents "open" window"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=109093">109093</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>Macro using com.sun.star.ui.dialogs.FilePicker (save as) stops working and presents "open" window
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>LibreOffice
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>5.2.7.2 release
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>All
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>UNCONFIRMED
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>normal
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>medium
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>Calc
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>libreoffice-bugs@lists.freedesktop.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>kwenzig@diw.de
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Created <span class=""><a href="http://bugs.documentfoundation.org/attachment.cgi?id=134608" name="attach_134608" title="Screenshot. "Öffnen" is german and translates to "open"">attachment 134608</a> <a href="http://bugs.documentfoundation.org/attachment.cgi?id=134608&action=edit" title="Screenshot. "Öffnen" is german and translates to "open"">[details]</a></span>
Screenshot. "Öffnen" is german and translates to "open"

The macro below saves a table as csv (with defined settings). It worked in
5.2.6.2 but in 5.2.7.2 it opens an "open"-Window (instead of save as) and does
not save the file.

Sub DDICSVsave
dim aUrl(), s$
Dim Arg()
dim fileProps(1) as new com.sun.star.beans.PropertyValue
fileProps(0).Name = "FilterName"
fileProps(0).Value = "Text - txt - csv (StarCalc)"
fileProps(1).Name = "FilterOptions"
fileProps(1).Value = "44,34,76,1,,0,false,true,true,false"
oDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
oDlg.setMultiSelectionMode(false)
oDlg.initialize(array(1)) ' Speichern unter
oDlg.execute
aUrl = oDlg.getFiles()
thisComponent.storeAsURL(aURL(0), fileProps())
End Sub</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>