Datei speichern unter mit Bezug auf 2 Zellen

[comep29]

Hallo,

ich bin neu hier und habe gleich eine Frage mitgebracht

Ich habe eine Calc Vorlagedatei, der ich beim Speichern eine Zelle zur Namensgebung vorgegeben habe.
Ok, dies ging nur mit Hilfe!

Jetzt meine Frage: "Wie bekomme ich noch eine zweite Zelle mit dazu?" Mein wunsch wäre es, dass sich der Dateiname aus zwei Zelleninhalten zusammen stellt.

So sieht es bis jetzt aus:

Code: Alles auswählen

sub save
  oDoc=thisComponent
  Sheet = oDoc.Sheets(0) 
  Cell = Sheet.getCellByPosition(0, 13) <= Das ist der erste Bezug
  Filename = Cell.String
  Path = "file:///C:/Dokumente und Einstellungen/.../" 
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "FilterName"
  args1(0).Value = "StarOffice XML (Calc)"
  oDoc.storeasurl(Path &  Filename & ".ods",args1())
end sub

Danke

Steffen



Moderation,4: CODE-tags gesetzt, in BASIC-Bereich verschoben

[clag]

Hallo comep29

die Frage wäre im Basic Forum sicher besser aufgehoben
trotzdem sollte das leicht erweiterte Makro jetzt deinen Wunsch erfüllen
der zusätzlich Teil hat jetzt in Zelle A13 darüber zu stehen wenn nötig

Code: Alles auswählen

sub save
oDoc=thisComponent
Sheet = oDoc.Sheets(0)
Cell1 = Sheet.getCellByPosition(0, 12) '<= Das ist der erste Teil Bezug
Cell2 = Sheet.getCellByPosition(0, 13) '<= Das ist der zweite Teil Bezug
Filename = Cell1.String & "-" & Cell2.string
Path = "file:///C:/Dokumente und Einstellungen/.../"
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "StarOffice XML (Calc)"
oDoc.storeasurl(Path & Filename & ".ods",args1())
end sub

bittschön

[comep29]

Hallo clag,

danke für deine Hilfe!!!

MfG

Steffen