Speicher Makro unter neuen Namen

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: Speicher Makro unter neuen Namen

Re: Speicher Makro unter neuen Namen

von aqua » Mo, 05.10.2015 09:09

Super danke. Das sieht schon einfacher aus ;)

Re: Speicher Makro unter neuen Namen

von Karolus » Sa, 03.10.2015 12:34

Hallo
da ich aber das Makro nicht wirklich verstehe, weiß ich nicht wo ich ansetzen soll...
Ja, das Machwerk ist auch unnötig kompliziert und verschwurbelt geschrieben,- ( selbst für Basic-verhältnisse ) - das machen Basic-Programmierer gerne um ihre Gegner zu verwirren ;-)

Schreib den Speicherpfad in zB. A8 und nehme:

Code: Alles auswählen

Sub SpeicherButton
   dim arg()
   oDoc = thisComponent
   
   oSheet = oDoc.sheets().getByName("Tabelle")
    'wieso dieses "K" als Prefix ??
   dateiname = "K" & oSheet.getCellRangeByName("a7").String & ".ods"
   pfad = oSheet.getCellRangeByName("A8").String
   pfad = converttoUrl(pfad)
   sUrl = pfad & "/" & dateiname 
   oDoc.storeAsUrl(sUrl, arg())
End Sub

Speicher Makro unter neuen Namen

von aqua » Do, 01.10.2015 13:47

Hallo alle,

ich hab kein kleines Problem mit einem Makro. Hab das Makro von irgendwo her, eventuell sogar aus diesem Forum.
Das Makro speichert mir meine Vorlage unter einem neuen Name, der in A7 steht, ab. Und zwar in das selbe Verzeichnis in der sich auch meine Vorlage befindet. So weit so gut.
Ich möchte aber jetzt nicht das selbe Verzeichnis haben sondern ein anderes z.B "C:\test"... da ich aber das Makro nicht wirklich verstehe, weiß ich nicht wo ich ansetzen soll...

Code: Alles auswählen

Sub SpeicherButton
   dim oDoc as Object, oSheet as object
   dim n as integer, sUrl as string, sUrl2 as string
   dim arg()
   
   oDoc = thisComponent
   sURL = oDoc.url
   n = 1
   do while instr(n+1, sUrl, "/") <> 0
     n = instr(n+1, sURl,"/")
   loop
   oSheet = oDoc.sheets().getByName("Tabelle")
   sUrl2 = "K" & oSheet.getCellRangeByName("a7").string & ".ods"
   sUrl = left(sUrl, n) & sUrl2
   oDoc.storeAsUrl(sUrl, arg())
End Sub

Nach oben