Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

REM BASIC

Sub SaveAs

Dim sFileName As String Dim sPath As String Dim sSaveToURL as string

sPath = "D:\" sFileName = thisComponent.getSheets.getByName("Planilha1").getCellRangeByName("F3").getString sSaveToURL = ConvertToURL(sPath & sFileName) thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue("FilterName", "Calc8")))

End Sub

Function MakePropertyValue(Optional sName As String, Optional sValue) As com.sun.star.beans.PropertyValue '------------------------------------------------------------------- ' Create and return a new com.sun.star.beans.PropertyValue '-------------------------------------------------------------------

Dim oPropertyValue As New com.sun.star.beans.PropertyValue

If Not IsMissing(sName) Then oPropertyValue.Name = sName EndIf

If Not IsMissing(sValue) Then oPropertyValue.Value = sValue EndIf

MakePropertyValue() = oPropertyValue

End Function