Español
Incluye

Excel2lv.inc

 

ByteAttack
Auf meiner Página hay ahora una Incluir-Expediente, con el uno con sólo una Befehl, una komplettes Tabellenblatt de Excel en un Listview importieren kann.

[...] 

Ejemplo:
 $I Excel2lv.inc
Ventana de Estilo 26
Título de la ventana Excel
Ventana 0,0-800,600
Declarar lvdll&,lvliste&
lvdll&=usedll($PROGDIR+Listview.dll)
 $I ListView_Include.inc
Register(123456)
lvliste&=CreateListView(%hwnd,%hInstance,0,$FFFFFF,-1,$31)
Excel2LV C:Tabla.xls,Tabla1,lvliste&  Excel-Tabla, Tabellenname, LV-Handle
ShowListView(lvliste&,10,10,728,528)
WaitMouse
 $I ListView_Dispose.inc

589 kB
Kurzbeschreibung: Excel2ListView.zip
Hochgeladen:25.10.2007
Ladeanzahl465
Descargar
 
Website:  [...] 
Facebook:  [...] 
24.10.2007  
 



Habs todavía no angeschaut - aber el wäre klasse!

Bekommst Usted el auch con sdcs hin? ...el Excel ha sí no cada aber openOffice hingegen es sí frei erhältlich y se auch gern de Firmen genutzt.

Yo habe a Sicherheit otra vez el Zip como Beitragsanhang beigefügt, como Mirror sozusagen. (Posesiones Yo erlaubt como Usted sí no en una Counter a verweisen scheinst.)
 
24.10.2007  
 




ByteAttack
Como muss Yo veces schauen! SDC´s = Schweizerischer Dachshund Club.
Sombrero irgendwie con el Subir hier en la página net así geklappt? (Übermüdet)
Einen Counter brauche Yo para el Downloads no wirklich, como Yo sí mi Webstatistik habe, aber trotzdem Gracias.
 
Website:  [...] 
Facebook:  [...] 
24.10.2007  
 




ByteAttack
Yo habe hier otra vez una besseres Ejemplo con mehr Información general y uno Ejemplo Excel-Tabla.

Ejemplo:
KompilierenMarcaSeparación
#########################################
# 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='./../../funktionsreferenzen/XProfan/freedll/'>FreeDLL lvdll&
DeleteObject lvfont&

589 kB
Kurzbeschreibung: Excel2ListView.zip
Hochgeladen:24.10.2007
Ladeanzahl287
Descargar
 
Website:  [...] 
Facebook:  [...] 
24.10.2007  
 




ByteAttack
Posesiones me veces angeschaut. Für el Openoffice.org hay keinerlei ODBC-Treiber para Windows.
Aber uno ha el Möglichkeit con Calc seine Tabla en el Excelformat a speichern. Somit puede auch OpenOffice-Anwender el todo Geschichte en un ListView donnern.
 
Website:  [...] 
Facebook:  [...] 
25.10.2007  
 



Das son nix más como unos pocos XMLs verpackt en uno Zip! Entpacke simplemente el OpenOffice-Archivos sdc sxd odt & co. Das OpenOffice-Formato es auch dokumentiert - wer OpenOffice nutzt probablemente kaum después de Excel speichern wollten. *g*
 
25.10.2007  
 




Thomas
Freier
@ Marc,
como Yo z.Z. no Tiempo para Vertiefen habe, kommst du así más:

[...] 
[...] 
 
Gruß Thomas
Windows XP SP2, XProfan X2
25.10.2007  
 



Mir persönlich es weniger ums Linux, más sólo ums OpenOffice. El Archivos son Zips con XML-Archivos intus. a) entpacken b) bisl xml parsen y ende.

Wäre echt super como uno OpenOffice como Bearbeitungsprogramm para propio Tabellen nutzen podría. Yo sehe hier viele Features - porque Excel darf uno schließlich no weitergeben, OO aber ya. [...] 
 
25.10.2007  
 




Detlef
Jagolski
Darf uno el Excel Archivos sin Excel redactar?
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
25.10.2007  
 




Christian
Schneider
Sí. Das Dateiformat es no geschützt (wäre auch no necesariamente förderlich).

OpenOffice (y diverse otro Programas) puede auch Excel-Archivos redactar.
 
XProfan 11| Vista(64) SP2
25.10.2007  
 




ByteAttack
¡Hola Detlef.
Yo hoff el fue un Scherzfrage. Oder zumindest ironisch gemeint...
 
Website:  [...] 
Facebook:  [...] 
26.10.2007  
 




Michael
Wodrich
En M$ es doch alles denkbar...
 
Programmieren, das spannendste Detektivspiel der Welt.
26.10.2007  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

19.576 Views

Untitledvor 0 min.
H.Brill15.11.2023
Rc31.01.2022
Langer29.01.2022
Member 640534317.01.2022
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie