Pergunte aqui
0

retirar aviso

perguntadas 2016-10-20 21:13:11 +0200

imagem do gravatar de Juan.rba

updated 2019-03-01 18:58:30 +0200

C:\fakepath\exemplo.ods

em anexo esta um exemplo do problema que estou tendo, a macro cria arquivos txt, porém aparece um aviso q me força apertar OK a cada arquivo txt salvo. tem como remover esse aviso?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

@Grafeno, ai esta em anexo um exemplo. mesmo utilizando os códigos que me sugeriu, não consegui.

imagem do gravatar de Juan.rbaJuan.rba ( 2016-10-20 21:16:16 +0200 )editar

1 Resposta

0

respondidas 2016-11-02 17:49:01 +0200

imagem do gravatar de Juan.rba

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

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-10-20 21:13:11 +0200

Lidas: 42 vezes

Última atualização: Nov 02 '16