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
BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> 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
Re: Macro Lesen eines Satzes in eine Zelle
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
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