OpenOffice.info

[quote]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?[/quote]

Sicher wird es möglich sein Dir zu helfen sofern Du diese Dinge zur verfügung stellst damit man sie sich ansehen kann.



Gruß
Stephan

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() )

Hallo,
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]
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() )[/code]

Allerdings erzeugt er bei mir die Fehlermeldung: Url seems to be an unsopported one.

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