Makro gesucht

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: Makro gesucht

von Tiny » Fr, 14.01.2005 12:54

Vielen Dank, Stephan!

Jetzt komme ich endlich weiter. :D

Gruß Tiny

von Stephan » Mi, 12.01.2005 19:24

Code: Alles auswählen

Sub Main
'Textdatei öffnen und erste = einzige Zeile einlesen
aFile = "D:\Nummer.txt"
iNumber = Freefile
Open aFile For Input As #iNumber
Line Input #iNumber, zahl
Close #iNumber
'wert in numerisch konvertieren
zahl = VAL(zahl)
'in Zelle A1 des ersten Tabellenblatts des aktuellen Dokuments eintragen
ThisComponent.sheets(0).getCellRangeByName("A1").Value = zahl
'Dateiname zum Speichern zusammenstellen
URL = ConvertToUrl("D:\" & STR(zahl) & ".sxc")
'Zahl um 1 erhöhen und in Text-Datei zurückschreiben
zahl = zahl + 1
Open aFile For Output As #iNumber
Print #iNumber, zahl
Close #iNumber
'Calc-Dokument abspeichern
Dim Dummy()
ThisComponent.storeAsUrl(  Url , Dummy() )	
End Sub
Gruß
Stephan

Makro gesucht

von Tiny » Mi, 12.01.2005 14:43

Hi,

bin gaaaanz neu hier, also schlagt mich nicht gleich! :wink:

Folgendes Problem:
Ich suche ein Makro für Calc mit folgenden Funktionen:
1. eine Zahl aus einer Textdatei (z.B. Nummer.txt) die nur diese Zahl enthält auslesen
2. dann diese Zahl in eine bestimmte Zelle meines Dokuments einfügen
3. die Zahl um eins hochzählen
4. die Zahl in obiger Textdatei wieder abspeichern
5. das Dokument mit einem Dateinamen, der die ursprünglich ausgelesene Zahl, bzw. den Inhalt einer Zelle, enthält, abspeichern.

Ich habe das Ganze schon mal unter Excel realisiert, möchte jetzt aber auf Openoffice umsteigen. Nur leider komm ich mit der Makroprogrammierung nicht klar! :cry:

Kann mal jemand ein Beispiel, möglichst kommentiert, nennen?

Gruß Tiny

Nach oben