Pergunte aqui

Histórico de revisões [voltar]

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

Olá! Vá no menu em Ferramentas, Opções, Carregar/Salvar e desmarque: Avisar quando não for salvar em formato ODF ou padrão Você não deve mais receber uma mensagem de alerta quando salvar um documento em um formato que não seja OpenDocument. Você também pode alterar a caixa Salvar sempre como associando ao Tipo de documento. Outra possibilidade é estudar o código abaixo que salva o arquivo com o nome descrito na célula F3. Atente que há diferença nos métodos storeToURL ou storeAsURL. Boa sorte!

<BASIC>

Sub SaveAs

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

sPath = "C:\" sFileName = thisComponent.getSheets.getByName("Sheet1").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

Olá! Vá no menu em Ferramentas, Opções, Carregar/Salvar e desmarque: Avisar quando não for salvar em formato ODF ou padrão Você não deve mais receber uma mensagem de alerta quando salvar um documento em um formato que não seja OpenDocument. Você também pode alterar a caixa Salvar sempre como associando ao Tipo de documento. Outra possibilidade é estudar o código abaixo que salva o arquivo com o nome descrito na célula F3. Atente que há diferença nos métodos storeToURL ou storeAsURL. Boa sorte!

<BASIC>

REM ***** BASIC ***** Sub SaveAs

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

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

"Calc8"))) End Sub

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

Olá! Vá no menu em Ferramentas, Opções, Carregar/Salvar e desmarque: Avisar quando não for salvar em formato ODF ou padrão Você não deve mais receber uma mensagem de alerta quando salvar um documento em um formato que não seja OpenDocument. Você também pode alterar a caixa Salvar sempre como associando ao Tipo de documento. Outra possibilidade é estudar o código abaixo que salva o arquivo com o nome descrito na célula F3. Atente que há diferença nos métodos storeToURL ou storeAsURL. Boa sorte!

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