Libreoffice versie 7.2.5.2(x64)
Calc.
Heb macro gemaakt. Bij Macro bewerken op uitvoeren bovenin menubalk klikken werkt macro. Bij Extra > Macros > uitvoeren en vervolgens de macro selecteren gebeurd er niets.
Bij Beveiliging heb ik macro op laag staan. Macro is ook gecompileerd.
Hoe kan dit?
Misschien dubbelklikken? Of misschien werkt de macro alleen als er iets geselecteerd is. Ik noem maar wat voorbeelden. Zonder de code van de macro is het lastig raden wat er aan de hand is.
Sub SaveAs
Dim sFileName As String
Dim sPath As String
Dim sSaveToURL as string
sPath = “C:\Users\info\Documents”
sFileName = thisComponent.getSheets.getByName(“Blad1”).getCellRangeByName(“C16”).getString
sFileName2 = thisComponent.getSheets.getByName(“Blad1”).getCellRangeByName(“L12”).getString
sDelimiter = thisComponent.getSheets.getByName(“Blad2”).getCellRangeByName(“B2”).getString
sExtensie = thisComponent.getSheets.getByName(“Blad2”).getCellRangeByName(“B3”).getString
sSaveToURL = ConvertToURL(sPath & sFileName & sDelimiter & SFileName2 & sExtensie)
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
Sorry dat het even duurde. Ik heb de macro gekopieerd en krijg bij uitvoeren de nodige foutmeldingen. Helaas weet ik verder niet genoeg van macro’s programmeren om je te kunnen helpen.