Datei speichern unter mit Bezug auf 2 Zellen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Datei speichern unter mit Bezug auf 2 Zellen

Re: Datei speichern unter mit Bezug auf 2 Zellen

von comep29 » So, 11.07.2010 10:41

Hallo clag,

danke für deine Hilfe!!!

MfG

Steffen

Re: Datei speichern unter mit Bezug auf 2 Zellen

von clag » Fr, 09.07.2010 20:26

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

Datei speichern unter mit Bezug auf 2 Zellen

von comep29 » Fr, 09.07.2010 17:58

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

Nach oben