Makro gesucht

[Tiny]

Hi,

bin gaaaanz neu hier, also schlagt mich nicht gleich!

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!

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

Gruß Tiny

[Stephan]

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

[Tiny]

Vielen Dank, Stephan!

Jetzt komme ich endlich weiter.

Gruß Tiny