| |
| |
|
| - page 1 - |
|
Christof
Neuß | Salut,
hat sich déjà la fois quelqu'un avec qui DLL LibXL befasst?
avec cela peux on direct sur Exceldateien (aussi xlsx et xlsm) zugreifen et cet Travailler.
Fichiers ouvrir et Textes reinschreiben peux je déjà, mais je verzweifle momentan à den Funktionen, qui une numéro dans un cellule écrivons ou bien une Wert auslesen. cela peux doch pas so schwer son.
Ist pour mich intéressant, là quelques Anwender de Programmen Excel gar pas plus bistrot installiert avons et qui Bearbeitung sur ActiveX pas plus funktioniert.
merci...!!! |
|
| |
| |
| |
|
|
| |
| |
| - page 1 - |
|
RGH | il y a une Solution, qui mais pas entier aufwandsarm ist:
dans Delphi une Wrapper-DLL écrivons, qui ensuite avec Single arbeitet et qui Double comme String zurückliefert, etc. j'ai pour mich la fois so une DLL geschrieben, qui zur Zeit seulement qui Funktionen aus meinem Beispiel contient. chez qui Gelegenheit habe je qui Aufrufkonvention aussi de CDECL pour STDCALL gewandelt. avec cela sieht cela Beispiel maintenant so aus et funktioniert einwandfrei:
Déclarer Handle hLibxl, book, sheet, format, memory gelesen
hLibxl = ImportDLL("prlibxl.dll", »)
cls
book = xlCreateBookCA()
IF book
sheet = xlBookAddSheetA(book, "sheet1", 0)
IF sheet
xlSheetWriteStrA(sheet, 2, 2, "Hello, World!", 0)
xlSheetWriteNumA(sheet, 3, 1, single(1000), 0)
gelesen = xlSheetReadStrA(sheet, 2, 2, 0)
Imprimer String$(Gelesen, 0)
gelesen = xlSheetReadNumA(sheet, 3, 1, 0)
Imprimer String$(Gelesen, 0)
ENDIF
xlBookSaveA(book, "example.xls")
MessageBox("File Written", », 0)
xlBookReleaseA(book)
ENDIF
WaitInput
FIN
chez WriteNum wird qui Funktion single() verwandt, avec cela qui numéro 1000 pas comme Integer transfert wird. on pourrait mais aussi 1000.0 écrivons ou bien direct une variable des Typs SINGLE transfert.
Es wäre alors machbar, une Wrapper-DLL trop écrivons, qui alle Funktionen qui Original-DLL contient. une autre Possibilité wäre, une Wrapper-DLL seulement pour qui Funktionen trop écrivons, qui Double ls paramètre conservé et/ou bien Double zurückliefern. cela wäre quelque chose moins aufwendig.
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 16.03.2016 ▲ |
|
| |
|
|
Christof
Neuß | allô Roland,
comment Du déjà écris... "nicht entier aufwandsarm".
et cela gilt pas seulement pour, qui zusätzliche DLL-trop realisieren, mais aussi pour mon dans qui Jahre gekommene Anwendung, qui je assez umbauen devrait. cela Problem ist u.a., dass je sur native Funktionen pour un paire schnelle Dateifunktionen zurückgreife et ici encore avec XPSE compiliere. qui wiederum ist mais pas so entier ami avec einigen XProfan X3-Funktionen et so führt une zum anderen... Hätte je maintenant 100 zahlende Kunden serait es mich aussi pas empêcher, cela - relativ kleine - Programme entier récente trop écrivons. mais il y a seulement une Handvoll Kunden et es wird wahrscheinlich bientôt entier eingestellt volonté. je verzichte maintenant sur une Plausibilitätsprüfung et ensuite läuft's aussi sans Excelaufruf par.
cela Thema "Zugriff sur Exceldateien" beschäftigt mich mais plus. peut-être vais je la fois sur XLware trop et frage, si es une Solution gibt (z.B. Num-Werte comme String trop lesen).
EIN Grund pour mich seinerzeit avec XProfan anzufangen était aussi, aufgrund qui Mächtigkeit qui Discours, nahezu aucun weitere DLL einsetzen trop doit. si cela so rester soll, muss je autre Opportunités trouver.
Vorerst vielen Dank à alle, qui ici mitgedacht et geholfen avons. |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
 | si wir seulement hunderte vivre hätten et qui Zeit.
je muss gestehen mich maintenant ici ins ca Thema pas hinein-gekniet trop avons, frage mich mais,
quoi uns daran hindert, 2 Long vom Stack abzurufen.
peut-être durchschaue je es maintenant mais aussi seulement pas, et es wäre nutzlos 2 Long vom Stack abzurufen.
peux Du la fois un Mini-Beispiel pour NativeProfanFree [...]  herstellen?
là pourrait on doch une Wrapper-nProc écrivons, qui Roland ensuite wiederum aussi dans Profan einbauen pourrait. Quelque chose comme comment "call2". |
|
| |
| |
| |
|
|
Christof
Neuß | allô David,
j'ai encore la fois un kleines Beispiel pour NativeProfanFree erstellt. qui ZIP-Dossier contient ALLES, inkl. Compiler, Linker etc.
cela Programme contient maintenant aucun nProc. puis kommt's mais aussi pas à. Problem ist oui, dass qui Double-Rückgaben aus xlSheetReadNumA pas verarbeitet/mise en œuvre volonté peut.
Schau' Dir auparavant vlt. fois le Beispiel.xls à.
si Du Lust et Zeit la hâte....
Gerne aussi encore dans DIESEM vivre.  |
|
| |
| |
| |
|
|
| mon idée erstmal était, ensuite plan seulement den 32-Bit-Anteil des Wertes trop ermitteln. ca pourrait probablement pour qui meisten Fälle déjà ausreichen - quand arbeitet on déjà avec payons im 4-Milliarden-Bereich.
cela paquet schaue je mir très volontiers à. |
|
| |
| |
| |
|
|
Christof
Neuß | Salut,
hab' la fois xlware angeschrieben et une Antwort conservé:
---------------------------------------------------
Hi Christof,
thank you for your message.
I have added a possibility to read numbers as strings and write strings as numbers dans this build:
Use le Sheet::readStr() method for reading numbers too. Ajouter CELLTYPE_NUMBER (1) paramètre for writing a string as number:
sheet->writeStr(7, 5, L"200.55", 0, CELLTYPE_NUMBER);
Please note that il works only for xlsx format at le moment.
enfant regards,
Dmytro Skrypnyk
---------------------------------------------------
cela Lecture de numerischen Zellen avec readStr() funktioniert aussi. seulement avec dem écrivons habe je Probleme. je ne sais pas, comment Je l' paramètre transfert soll.  quoi bedeutet cela "L" avant "200.55"?
MERCI! |
|
| |
| |
| |
|
|
RGH | j'ai qui neue DLL heruntergeladen. comment gelingt chez Dir cela Lesen qui numerischen Werte? chez mir scheint sich là rien modifié trop avons. es Du sûrement, dass qui DLL-Version, qui Du hoch geladen la hâte, cet Fähigkeit besitzt? Poste la fois Dein aktuelles Beispiel-Listing. Relatif à la écrivons bekommen wir ensuite sûrement aussi hin.
Salut
Roland |
|
| |
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 22.03.2016 ▲ |
|
| |
|
|
| @Christof:
cela L chez c++ avant Stringkonstanten erspart MultiByteToWideChar, qui Zeichenkette derrière elle est comme WideChar trop transfert. |
|
| |
| |
| |
|
|
Christof
Neuß | allô Roland,
alors qui Lib scheint déjà richtig trop son. mais attention, es funktioniert wohl seulement dans XLSX-Fichiers.
ici mon Listing et im Anhang mon XLSX-Dossier.
{$pushkeyword xlCreateXMLBookA}
{$pushkeyword xlCreateBookCA}
{$pushkeyword xlBookLoadA}
{$pushkeyword xlBookSaveA}
{$pushkeyword xlBookReleaseA}
{$pushkeyword xlBookGetSheetA}
{$pushkeyword xlSheetWriteStrA}
{$pushkeyword xlSheetWritenUMA}
{$pushkeyword xlSheetReadStrA}
{$pushkeyword xlSheetReadNumA}
{$pushkeyword dt}
{$clq}
Déclarer hLibxl&, book&, sheet&
hLibxl& = ImportDLL("libxl.dll", »)
set("CallConv","CDECL")
Var Dossier$="Beispiel.xlsX"
Var ZahlGelesen!=0
Déclarer Gelesen#
Faible Gelesen#, 256
proc xlSheetWriteNumD
parameters s&, x&, y& , d!, f&
declare d1&, d2&, md#
dim md#, 8' un Double hat 8 Byte = 64 Bit
md# = addr(d!)' cela Double wird sur den Bereich gemappt
d1& = long(md#,0)' qui ersten quatre Bytes venons pour d1
d2& = long(md#,4)' qui zweiten quatre Bytes venons pour d2
xlSheetWriteNumA(s&, x&, y&, d1&, d2&, f&)
endproc
cls
book& = xlCreateXMLBookA()
Imprimer book&
xlBookLoadA(book&, Dossier$)
IF book&
sheet& = xlBookGetSheetA(book&, 0)
Imprimer sheet&
IF sheet&
xlSheetWriteStrA(sheet&, 9,0, "Eintrag aus XProfan: "+dt("getDate", 6), 0)
'xlSheetWriteNumD(sheet&, 10,0, 8888.88, 0)
Gelesen#=xlSheetReadStrA(sheet&, 5,0,0)
Imprimer STRING$(Gelesen#,0)
Gelesen#=xlSheetReadStrA(sheet&, 7,0,0)' ici ist une numéro gespeichert.
Imprimer STRING$(Gelesen#,0)
ENDIF
xlBookSaveA(book&, Dossier$)
xlBookReleaseA(book&)
ENDIF
Imprimer "FERTIG!"
FreeDLL hLibXL&
WaitInput
FIN
|
 |
| |
| |
| |
|
|
RGH | allô Christof,
cela écrivons einer numéro comme numéro habe je aussi avec qui Umwandlung dans une Widestring (StringW) et dem zusätzlichen paramètre jusqu'alors pas pas hinbekommen. Es landet toujours seulement un String dans qui Excel-Dossier.
mais si Du Ma routine xlSheetWriteNumD benutzt, klappt es dans liaison avec qui verbesserten Lesefunktion hervorragend.
Salut
Roland |
|
| |
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 22.03.2016 ▲ |
|
| |
|
|
Christof
Neuß | allô Roland,
na, cela klappt doch wirklich prima. peux oui aussi son, dass avec qui modifié Schreibfunktion réellement seulement Cordes geschrieben volonté peut. mais ensuite wäre qui zusätzliche paramètre irgendwie unnütz. égal. So viens je zurecht.
Vielen Dank! |
|
| |
| |
| |
|
|
Christof
Neuß | allô iF,
Votre Solution avec dem 32-bit-Anteil intéressé mich naturellement aussi weiterhin. si cela funktioniert, habe je aussi une Solution pour qui xls-Fichiers. et....oui... je rechne selten avec payons qui größer 4 Mrd. sommes.
merci! |
|
| |
| |
| |
|
(478)
Deutsch
English
Français
Español
Italia