BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Macro Lesen eines Satzes in eine Zelle

Alles zur Programmierung im OpenOffice.org
Antworten
franze_m
Beiträge: 5
Registriert: So 15. Jul 2018, 14:19

Macro Lesen eines Satzes in eine Zelle

Beitrag von franze_m » Mo 16. Jul 2018, 11:52

Hallo zusammen,
ich suche ein Macro, welches den 1.Satz in einem File in eine Tabelle.Zelle in Calc kopiert.

Kann mir jemand hier helfen ?

LG.
Franze_m

franze_m
Beiträge: 5
Registriert: So 15. Jul 2018, 14:19

Re: Macro Lesen eines Satzes in eine Zelle

Beitrag von franze_m » Di 17. Jul 2018, 15:46

Habe die Lösung selbst gefunden.

Auf der Seite http://www.dannenhoefer.de/faqstarbasic ... erner.html

function GetAndSetNumber as string
dim f as Integer
dim rechnungsdatei as string
dim renummer as string
rechnungsdatei="/tmp/calc.txt"
if FileExists("file:///"&rechnungsdatei) then
f = FreeFile()
Open "file:///"&rechnungsdatei for Input as #f
Line Input #f, renummer
close #f
f = FreeFile()
Open "file:///"&rechnungsdatei for output as #f
Print #f, val(renummer)+1
close #f
else
renummer=0
endif
GetAndSetNumber=renummer
end function

Antworten