XProfan

Habs not yet angeschaut - but the would class!

get You, the too with sdcs there? ...whom Excel has Yes not everyone but openOffice against is Yes spare available and becomes too gladly of companies used.

I have to safety again The zipper as Beitragsanhang enclosed, as Mirror sozusagen. (have I me allows there You Yes not a Counter To verweisen seem.)

ByteAttack

there must I time look! SDC´s = schweizerischer Dachshund Club.
has somehow with the Upload here on The Page net so worked? (Übermüdet)
a Counter need I for Downloads not really, I Yes my Webstatistik have, but nevertheless thanks.

Website: [...]

Facebook: [...]

ByteAttack

I have here again one better example with More Overview and of/ one example Excel-scheduler.

example:
Compile Mark Separation

#########################################
# Beispiel für die Include Excel2LV.INC #
#                                       #
# Zur freien Verwendung für alle!       #
#                                       #
# 2007 Marc-Gordon Kröhn                #
# http://www.marc-gordon.de             #
#                                       #
# Benötigt die LiestView.dll von        #
# Frank Abbing http://frabbing.de/      #
#########################################
 $P*
USERMESSAGES 16
##### Globale Variablen
Declare close%,L#,Sz&,MerkeX%,MerkeY%,Keyboardstate#,lvdll&,lvliste&,LVFont&,Datei$
##### Bereichsvariablen deklarieren
Dim L#,16
Dim Keyboardstate#,256
##### Definierte Funktionen
Def GetSysColor(1) !USER32,GetSysColor
Def AMoveWindow(6) ! USER32,MoveWindow,%%%%%%,%
Def GetKeyboardState(1) ! USER32.DLL,GetKeyboardState
##### LietView.dll einbinden
lvdll&=usedll($ProgDir+Listview.dll)
 $I ListView_Include.inc
Register(123456)  oder so ähnlich ;-)
##### Excel2ListView einbinden
 $I Excel2lv.inc
##### Setzt in der Statusleiste den Status der Tasten Numlock, Caps und S-Abf

Proc Statustasten

    GetKeyboardState(keyboardstate#)

    if byte(keyboardstate#,20),1

        SetText Sz&,1,GROSS

    else

        SetText Sz&,1,

    endif

    if byte(keyboardstate#,144),1

        SetText Sz&,2,NF

    else

        SetText Sz&,2,

    endif

    if byte(keyboardstate#,145),1

        SetText Sz&,3,SCRL

    else

        SetText Sz&,3,

    endif

EndProc

##### Aufbau LiestView

Proc ListView

    lvliste&=CreateListView(%hwnd,%hinstance,0,$FFFFFF,-1,$31)
    ShowListview(lvliste&,0,0,width(%hwnd),height(%hwnd)-25)
    SetFont lvliste&,LVFont&

EndProc

##### HAUPTFENSTER

Proc Hauptfenster

    SetTrueColor 1
    WindowStyle $003F
    WindowTitle Excel2ListView
    Window %maxX+10,10-640,480
    Cls GetSysColor(15)
    UseFont Arial,16,0,0,0,0
    LVFont&=Create(Font,Arial,16,0,0,0,0)
    SetDialogFont 1
    ListView
    Long L#,0 = 500, 545, 570, -1
    Sz&=Create(StatusWindow,%HWND,,4,L#)
    SetText Sz&,0,Bereit
    SetWindowPos %hwnd=((%maxX/2)-320),((%maxY/2)-240)-640,480;0
    ShowMax
    Update

EndProc

##### Öffne Excel

Proc OpenXLS

    Declare idx%,x&,Sortierliste$
    Datei$=LoadFile$(ÖFFNE,Excel-Arbeitsmappe|*.XLS)

    if Datei$=

    else

        DeleteAllItems(lvliste&)
        EraseListview(lvliste&)
        Excel2LV Datei$,Tabelle1,lvliste&  Excel-Tabelle, Tabellenname, LV-Handle

        WhileNot idx%=GetColumns(lvliste&)

            SetColumnWidth(lvliste&,idx%,-1)
            Inc idx%

        Wend

        DeleteColumn (lvliste&,idx%-1)

    endif

EndProc

##### Update Fenster

Proc Update

    if Width(%hwnd)<630

        AMoveWindow(%hwnd,%WinLeft,%WinTop,640,%WinBottom-%WinTop,59,1)

    elseif Height(%hwnd)<450

        AMoveWindow(%hwnd,%WinLeft,%WinTop,%WinRight-%WinLeft,480,59,1)

    endif

    SetWindowPos Sz&=0,0-0,0;0
    MerkeX%=Width(%hwnd)
    MerkeY%=Height(%hwnd)
    AMoveWindow(lvliste&,0,0,width(%hwnd),height(%hwnd)-25,59,1)

EndProc

##### Hauptprogramm
Hauptfenster
Statustasten
OpenXLS
##### Hauptprogrammschleife

WhileNot close%

    GetMessage
    Case %Umessage=16:close%=1
    CaseNot MerkeX%=Width(%hwnd):Update
    CaseNot MerkeY%=Height(%hwnd):Update
    Case Width(%hwnd)<630:Update
    Case Height(%hwnd)<450:Update
    Case ScanKey(144):Statustasten
    Case ScanKey(20):Statustasten
    Case ScanKey(145):Statustasten

Wend

##### Programmende
Dispose L#
Dispose Keyboardstate#
 $I ListView_Dispose.inc
4 href='./../../Function-References/XProfan/freedll/'>FreeDLL lvdll&
DeleteObject lvfont&

Excel2ListView.zip	589 kB

Kurzbeschreibung:	Excel2ListView.zipper

Hochgeladen:	10/24/07

Downloadcounter:
		Download

Website: [...]

Facebook: [...]

ByteAttack

have me the time angeschaut. for the Openoffice.org there no ODBC-driver for windows.
but one has The Possibility with Calc its scheduler in the Excelformat To Save. accordingly can also OpenOffice-users The whole story in a ListView rage.

Website: [...]

Facebook: [...]

the are nothing moreover as a couple XMLs verpackt in a zipper! Entpacke simply The OpenOffice-Files sdc sxd odt & co. the OpenOffice-stature is too documents - who OpenOffice uses becomes well hardly to Excel Save wanted to. *g*

Thomas
Freier

@ Marc,
I z.Z. no Time to that deepening have, come You so moreover:

[...]

[...]

Gruß Thomas
Windows XP SP2, XProfan X2

me personally goes it less ums Linux, sooner only ums OpenOffice. The Files are Zips with XML-Files intus. a) entpacken b) bisl xml parsen and end.

would be Real super there one OpenOffice as Bearbeitungsprogramm for Own tables benefit could. I see here many Features - because Excel must one finally not transmit, OO but already. [...]