Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Beispiel zu xlwrapper.bi
| Uploader: |  OneCypher |
| Datum/Zeit: | 31.03.2009 21:49:20 |
#include once "xlwrapper.bi"
'Beispiel zum xlwrapper.bi
dim e1 as xlapp
dim w1 as xlworkbook
dim s1 as xlsheet
dim r1 as xlrange
dim r2 as xlrange
'Starte Excel:
e1.start
'Es soll ein Blatt in neuen Mappen geben:
e1.sheetsinnewworkbook = 1
'Eine neue Mappe wird erzeugt und w1 zugewiesen:
w1 = e1.workbooks.add
'Wir geben mal was auf der Konsole aus:
print "Mappenname: " & w1.Name
'Dann schreiben wir mal was rein:
e1.workbooks(1).worksheets(1).range("A1").value = "Hallooo Welt!"
'Was aber auch so geht:
w1.worksheets(1).range("B1").value = "Willkommen"
'Oder so:
s1 = w1.worksheets("Tabelle1")
s1.range("C1").value = "zu einem in FB-programmierten"
'Und noch mal was aus Spaß an der Freude auf der Konsole ausgeben:
print "Name des 1. Blattes: " & s1.name
'Oder noch näher:
r1 = s1.range("D1")
r1.value = "Makro ;-)"
'Bewegen kann man aber auch etwas:
print "Bitte eine Taste druecken um Excel zu beenden!"
do
for i as integer = 2 to 20
s1.cells(rc(i,1)).value = "Runter!"
sleep 250
s1.cells(rc(i,1)).value = ""
next
for i as integer = 20 to 2 step -1
s1.cells(rc(i,1)).value = "Hoch!"
sleep 250
s1.cells(rc(i,1)).value = ""
next
loop until inkey <> ""
'Erleuterung zur .Cells(rc(i,1)).value :
'In FB ist es nicht möglich mehr als einen Index einer Property zu übergeben.
'Daher der umweg über eine Funktion die Parameter entgegennimmt und dann in einen UDT verpackt
'und dann an den Index der property übergibt.
w1.close false
e1.close