| |
| |
|
| - page 1 - |
|
Christof
Neuß | Salut,
brauche la fois wieder une Anschubser. und dir tout autor, dass je une Bereich aus einer Exceldatei dans un autre Exceldatei kopieren voudrais. Eigentlich entier simple, mais...
je habs la fois so probiert, mais déjà beim "Select" springt mir cela Ding raus.
eh, äähh... qui ici sommes naturellement dessus angegeben, sonst gehts oui gar pas.
$H Windows.ph
$H ocx3a.ph
$I ocx3a.inc
Proc DatenKopieren
Excel öffnen
ocxInit()
VAR Dossier1$ =$PROGDIR+"GGBVSDialog.xls"
VAR Dossier2$ =$PROGDIR+"GGBVSDialog_Auswertung.xlsx"
VAR Excel& =ocxCreate("Excel.Application")
VAR Workbooks&=ocxGet(Excel&,"Workbooks")
Exceldatei qui banque öffnen GGBVSDialog.xls
VAR NewBook1&=ocxMethod(Workbooks&,"Open",Dossier1$)
VAR Sheet1&=ocxGet(NewBook1&,"Sheets","BankDaten")
VAR la gamine1&=ocxGet(Sheet1&,"Range","B6:F100")
Exceldatei qui GGB öffnen GGBVSDialog_Auswertung.xlsx
VAR NewBook2&=ocxMethod(Workbooks&,"Open",Dossier2$)
VAR Sheet2&=ocxGet(NewBook2&,"Sheets","BankDaten")
VAR la gamine2&=ocxGet(Sheet1&,"Range","B6")
BankDaten kopieren
ocxMethod(Sheet1&,"Activate")
ocxMethod(Sheet1&,"Select","B6:F100")
qui Messagebox sollte seulement Montrer, si qui Select-Befehl funktioniert hat,
alors pas avec Fehlermeldung là rausgesprungen est. Soweit venez cela Ding
mais gar pas.
MessageBox("Select gelaufen","Meldung",0)
ocxMethod(Sheet1&,"Copy")
ocxMethod(Sheet2&,"Select","B6")
ocxMethod(Sheet2&,"PasteSpecial",)
Exceldateien et Excel schließen
ocxPut(NewBook1&,"Saved",1)
ocxMethod(NewBook1&,"Close")
ocxMethod(NewBook1&,"Save")
ocxPut(NewBook2&,"Saved",1)
ocxMethod(NewBook1&,"Close")
ocxMethod(Excel&,"Quit")
ocxRelease(la gamine1&,Sheet1&,NewBook1&)
ocxRelease(la gamine2&,Sheet2&,NewBook2&)
ocxRelease(WorkBooks&,Excel&)
ocxDeInit()
endproc
eh, qui Sheets sommes dans beiden Fichiers juste aufgebaut. sur Formatierungen etc. braucht on alors aucun Rücksicht prendre. avec qui ersten Dossier volonté qui données beim Kunden abgeholt, dans qui zweiten sommes zusätzlich qui Auswertungsblätter.
merci |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
Stephan
Sonneborn | allô Pascal,
non, malheureusement wars cela aussi pas. 
je suis zwar sur cette Uralt-Trick reingefallen, mais cela wars pas... |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 02.10.2010 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Stephan!
J'ai pensé, qui faute wäre CallMethod faute $-7FF5FC14-2146827284 unbekannter faute ?
qui ließ sich nämlich par une falschen Pfad nachvollziehen et tritt beim versuchten Öffnen qui xls sur.
wohin oui c'est ca tritt car qui faute chez dir sur?
SeeYou
Pascal |
|
| |
| |
| |
|
|
Stephan
Sonneborn | Hi Pascal,
je sollte mir peut-être aussi la fois den ganzen Quellcode regarder: là wurde sur Tabellen verwiesen, qui pas dans den Testdaten drin étions...
bien sûr, dass ensuite faute venons...
maintenant läufts correct par, kopiert mais encore pas. je exposition mir maintenant nochmal Votre Aider-Dossier à. |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 03.10.2010 ▲ |
|
| |
|
|
Stephan
Sonneborn | Hi Pascal,
je hab encore ne Frage: comment peux je qui dernier la ligne aus einer Excel-portefeuille auslesen?
dans VBA wäre cela
cela devrait doch irgendwie avec ocxget() aller...
si Sheet& qui aktuelle portefeuille ist, ensuite devrait cela doch irgenwie ocx(Sheet&, "UsedRange",...) appeler... la hâte Du ne concept? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 03.10.2010 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Stephan!
Den VBA-Ausdruck Sheet.UsedRange.Rows.Count dois du pour ocx dans einzelne Objekte décomposer:
BTW: cela Sheet selbst hat bereits un Row-Unterobjekt, mais cela contient anscheinend qui theoretisch verfügbare Zeilenanzahl.
quoi mir encore aufgefallen ist: qui Excel-Anwendung wird par cela Release am Programmende malheureusement pas finissez, mais bleibt unsichtbar im grenier hängen.
ici un vollständiges Beispiel avec Workaround pour:
window 600,600
$H Windows.ph
$H ocx3a.ph
$I ocx3a.inc
ocxInit()
var Dossier$="C:1TestTest.xls"'---Existierende Dossier
var Excel&=ocxCreate("Excel.Application")
var ExcelWnd&=ocxGet(Excel&,"Hwnd")'--la fenêtre de Excel (aussi si pas sichtbar)
'ocxPut(Excel&,"Visible",1)'--trop Testzwecken
var Workbooks&=ocxGet(Excel&,"Workbooks")
var NewBook&=ocxMethod(Workbooks&,"Open",Dossier$)
var Sheet&=ocxGet(NewBook&,"Sheets","Seite1")'--Tabelle "Seite1" doit vorhanden son
var UsedRange&=ocxGet(Sheet&,"UsedRange")
var Rows&=ocxGet(UsedRange&,"Rows")
imprimer ocxGet(Rows&,"Count")
ocxRelease(Rows&,UsedRange&,Sheet&,NewBook&,WorkBooks&,Excel&)
ocxDeInit()
sendmessage(ExcelWnd&,16,0,0)'--WM_CLOSE à Excel
waitinput
Relatif à la Kopieren hab' je la fois avec eigenen Fichiers angetestet; sollte aussi marcher.
HTH
Pascal |
|
| |
| |
| |
|
|
Stephan
Sonneborn | allô Pascal,
vielen Dank pour Votre Aider. maintenant hab je qui Zeilen auslesen peut. je versuch mich eh bien la fois à den Tabellennamen dedans einer Dossier...  |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 04.10.2010 ▲ |
|
| |
|
|
Stephan
Sonneborn | allô Pascal,
gibts eigentlich Unterschiede zw. Excel 97 et 2003 dans Bezug sur OCX?
je hab ici ne Testumgebung seulement avec Excel 97 et laufe ständig sur faute sur.
Z.B. $8002006 -2147352570 chez qui la ligne
ExcelWnd& = ocxGet(Excel&,"Hwnd")
la fois ne generelle Frage: dans qui ocx3a.inc sommes chez qui ocxGET-Funktion seulement 2 paramètre angegeben. Liest qui Funktion quand même "Seite1" aus?
var Sheet&=ocxGet(NewBook&,"Sheets","Seite1")
|
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 08.12.2010 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Stephan!
gibts eigentlich Unterschiede zw. Excel 97 et 2003 dans Bezug sur OCX?
je hab ici ne Testumgebung seulement avec Excel 97 et laufe ständig sur faute sur.
je serait la fois dire: oui
So oui c'est ca kenne je mich pas aus, mais je denke la fois, qui aussi Makros et Skripte pas toujours abwärtskompatibel sommes, weil neuere Office-Versionen Befehle/Funktionen enthalten, qui dans älteren plan manquer.
là wirst du toi wohl dans den jeweiligen Befehlssatz einarbeiten doit.
la fois ne generelle Frage:
dans qui ocx3a.inc sommes chez qui ocxGET-Funktion seulement 2 paramètre angegeben.
Liest qui Funktion quand même "Seite1" aus?
Jepp! Alle weiteren paramètre volonté dedans de "ocxGet" zur Procédure "ocxPutParams" durchgereicht.
Etwa so:
Zugegebenermaßen pas très elegant, zumal Roland cet Verhalten déjà chez qui prochain Profan-Version kippen peux 
qui Verarbeitung de Variablen unbestimmten Typs (chez ActiveX couloir et Gäbe) ist encore 'ne grand Schwachstelle; cela allez bisher am einfachsten sur Procédure-paramètre, weil là Wert et Typ quasi getrennt gehandhabt volonté.
HTH
Pascal |
|
| |
| |
| |
|
|
Stephan
Sonneborn | allô Pascal,
je hab wieder un Problem avec ocx et Excel. chez ocxDEInit() schmiert mir Profan ab. peux Du Dir une Reim sur elle faire? je hab dans qui ocx3a.inc qui Proc ocxrelease comme Ursache (qui call-Aufruf im besonderen) festgestellt.
Anbei aussi un Bild qui Fehlermeldung.
 |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 02.06.2011 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hi Stephan!
Bisher lief es doch? quoi la hâte du car geändert / récente incorporé?
chez ocxDeInit() volonté alle trop dem la date encore vorhandenen Objektpointer automatisch freigegeben, indem vous à ocxRelease() weitergereicht volonté. un möglicher faute wäre, qui einer cette Pointer dans irgendeiner Weise ungültig ist.
Du arbeitest encore avec XProfan 11.2? un ähnliches Problem trat nämlich chez qui vorletzten Version de X2 sur, weil beim Lecture qui ocx-internen liste un falscher Wert ermittelt wurde; allerdings ergab cela une unbestimmten faute et aucun Zugriffsverletzung...
Du könntest dir fois le Objektliste Montrer laisser:
Einen ungültigen Wert erkennt on meist daran, qui il trop niedrig ist.
arrêt mich sur dem Laufenden!
Pascal |
|
| |
| |
| |
|
|
Stephan
Sonneborn | Uwe ''Pascal'' Niemeier (02.06.11)
Bisher lief es doch? quoi la hâte du car geändert / récente incorporé?
cela J'ai eu mich aussi gefragt. Eigentlich nix besonderes. Jedenfalls nix, quoi avec avec den ocx-Routinen trop 1faire hätte. seulement un paire farbige Edits...
Uwe ''Pascal'' Niemeier (02.06.11)
Du arbeitest encore avec XProfan 11.2? un ähnliches Problem trat nämlich chez qui vorletzten Version de X2 sur, weil beim Lecture qui ocx-internen liste un falscher Wert ermittelt wurde; allerdings ergab cela une unbestimmten faute et aucun Zugriffsverletzung...
je travaille avec X2. Mir était seulement aufgefallen, dass je encore avec qui 12.00.058il Beta gearbeitet hatte et hatte ensuite qui aktuelle X2il comme Interpreter genutzt.
mais dass cela qui faute était, était Je ne tout de suite bien sûr. seulement comme je la fois une Exe des Programms (funktionstüchtig) comme Interpreter-Dossier verwendet hatte, fiel qui Groschen: es musste réellement à qui aktuellen X2il Version liegen!
ensuite muss je wohl erstmal chez qui alten Beta comme Interpreter et Runtime pour qui OCX-Rogramme rester...
mon aktuellen Versionen sommes:
Runtime: 12.0.0.226
Interpreter: 12.0.0.221 |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 02.06.2011 ▲ |
|
| |
|
|
RGH | Salut,
qui aktuelle Version ist X2.0a et wurde à alle Subscriptionskunden versandt!
Runtime et Interpreter avons qui interne Version 12.0.1.0!
(Sollte qui Mail chez Dir pas arrivé son, schicke mir une Mail et Du erhältst umgehend poste!)
(BTW: chez JDS ist ab aujourd'hui seulement cet aktuelle Version disponible.)
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 | 02.06.2011 ▲ |
|
| |
|
(506)
Deutsch
English
Français
Español
Italia
