ich stelle gerade von Excel auf Calc (OO 3.1) um und bräuchte mal eure Hilfe wie ich ein Macro, dass ein anderes Calc-Dokument öffnet und
unter einem neuen Namen abscpeichert hinbekomme?
In Excel sah das folgendermaßen aus:
Code: Alles auswählen
Private Sub criarCliente_Click()
Dim x
x = Cells(3, 2)
Dim y
y = Cells(3, 4)
' open the checklist-document, fill it with clients-name and product, save it, close calcular-encomenda.xls
Workbooks.Open (ThisWorkbook.Path & Application.PathSeparator & "documentos-adicionais" & "\" & "checklist.xls")
Sheets("anexos").Range("A2").Value = y
Sheets("radiadores").Range("E3").Value = x
Sheets("radiadores").Range("E4").Value = y
ActiveWorkbook.SaveAs (ActiveWorkbook.Path & Application.PathSeparator & "..\clientes" & "\" & x & "-" & y & ".xls")
Windows("calcular-encomenda.xls").Activate
ActiveWindow.Close savechanges:=False
End Sub
Folgenden Code zum Öffnen eines andern Dokuments habe ich mir ergooglet (ich verscuhe stückweise vor zu gehen):
[code]Sub criarCliente
Dim DirectoryName as String
Dim NewWorkbook as Object
Dim Args(0) as new com.sun.star.beans.PropertyValue
Rem Assume DirectoryName variable contains directory
Rem location of the currently active workbook
Args(0).Name = "MacroExecutionMode"
Args(0).Value = _
com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE
NewWorkbook = StarDesktop.loadComponentFromURL _
("file:///" & DirectoryName & "/2.ods", _
"_blank",0 ,Args() )Kann mir jemand sagen, was ich falsch mache?
mfg,
David
End Sub
[/code]
Ich habe schon einiges ausprobiert an code-schnipseln. ERstmal nur um ein anderes Dokument zu öffnen, aber bekomme immer
Fehermeldungen.
Kann mir jemand einen Tipp geben, wie ich das ganze umbauen muss?
(Meine Internetverindung ist gerade verdamm schwach, ich liefere nachher mal nach, was ich schon ausprobiert habe, bin aber für jede Hilfe
schonmal dankbar.)
mfg,
David