Hirdetés
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
LOGOUT

Új hozzászólás Aktív témák
-
GuMipOkE
senior tag
Nnna, akkor nekem lenne egy olyan kérdésem, hogy a Microsoft Visual Studio.NET 2003 felülete mennyire különbözik monnyuk a Borland C++ Builder 5-től? Hasonló, vagy egy teljesen más felülete van?
És mi a véleményetek róla (mármint a Visual Studio.NET-ről)??? -
GuMipOkE
senior tag
válasz
GuMipOkE
#150
üzenetére
A szemléltetés kedvéért (BC++ban):
Variant ExcelApp = CreateOleObject(''Excel.Application'');
ExcelApp.OlePropertySet(''Visible'', false);
Variant WBook = ExcelApp.OlePropertyGet(''Workbooks'').OleFunction(''open'', ''C:\\test.xls'');
Variant WSheet = WBook.OlePropertyGet(''ActiveSheet'');
WSheet.OleProcedure(''Activate'');
adat=WSheet.OlePropertyGet(''Range'', ''D4'');
ShowMessage(''A kért adat: '' + adat);
ExcelApp.OleProcedure(''Quit''); -
GuMipOkE
senior tag
Ha még aktuális...
BC++ builder-ben igy néz ki egy Excell cella adatának kiolvasása.
adat=WSheet.OlePropertyGet(''Range'', ''D4'');
Mivel a Delphi is ugyanazt az Olefunkciókat használja, gondolom az átültetés valahogy igy nézhet ki:
adat:=WSheet.OlePropertyGet(''Range'', ''D4'');


-
GuMipOkE
senior tag
Hát tényleg elég körülményes, de legalább az összes Formátumnak megvan a kódja. Szerencsére nem soxor használom ezt. Azért kellett a dBase4-es formátum, mert a table xls-t nem tud fogadni, csak dbf-et. A gyors adatbeolvasás érdekében használom a table-t, mert az excel-t utasitgatva eléggé lassú... Míg kiolvasok az excelből pár ezer számot, az akár percekbe is beletelik. Table-t használva 1 másodpercen belül megvan...

Sokat segítettél! Köszi! -
GuMipOkE
senior tag
Keeerály!!!

Köszi!
Ott rontottam el, hogy paraméterként az xlDBF4-t idézőjelek közé tettem, és nem a 11-et ítam oda.
Amúgy honnan lehet megtudni a formátumok kódját? Az excel helpjében nem találtam. Lehet, hogy elszántabban kellet volna keresni?
Tökre örülök!
Már csak azt nem tudom, hogy hogy állítsam be az excelt, hogy ha valamire rákérdez (pl.
verwrite...), akkor mindig igennel menjen tovább.
Mégegyszer köszi! -
GuMipOkE
senior tag
Borland c++ 5-ben elakadtam, miközben az Excellel birkóztam.
Odáig ok, hogy kész a munka és mentés
WBook.OleProcedure(''SaveAs'', ''C:\\teszt1.xls'');
De nekem dBase 4 formátumban kell az adatbázis, és nem tudok formátumot változtatni. A Word szivatásánál asszem elég, ha következő paraméterként beirja az ember a formátum kódját, de az excelnél ez nem műxik.
Tudja valaki a megoldást?
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Lenovo ThinkPad P15 Gen 1 Tervező Vágó Laptop -50% 15,6" i7-10750H 32/512 QUADRO T1000 4GB
- Dell LAtitude 7490 FHD, TOUCH, i7-8565U CPU, 16GB DDR4, 512GB SSD, 27% ÁFÁS SZÁMLA, 1ÉV GARANCIA!
- Üzletből, Lenovo garanciával ThinkPad E14 Gen 5/ Intel Core i5-1335u/16GRAM/512SSD/FULL HD +kijelző
- HP Elitebook 840 G6 FHD, i7-8565U CPU, 16GB DDR4, 512GB SSD, 27% ÁFÁS SZÁMLA, 1ÉV GARANCIA!
- HP Elitebook 840 G5 FHD, i7-8550U CPU, 16GB DDR4, 512GB SSD, 27% ÁFÁS SZÁMLA, 1ÉV GARANCIA!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- AKCIÓ! DELL PowerEdge R630 rack szerver - 2xE5-2680v4 (28c/56t, 2.4/3.3GHz), 128GB RAM, 1G, áfás
- Csere-Beszámítás! Akció! Playstation VR 2! Újszerű állapot.
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Nuki Smart Lock Ultra okoszár
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi




![;]](http://cdn.rios.hu/dl/s/v1.gif)

verwrite...), akkor mindig igennel menjen tovább.
