-
Fototrend
Új hozzászólás Aktív témák
-
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''); -
JFL
csendes tag
válasz
GuMipOkE #130 üzenetére
Ezeket a kódokat elég körülményes megtudni. Elindítod az Excelt (vagy az éppen szükséges Office részhalmazt
), majd Eszközök->Makró->Visual Basic, itt pedig View->Object Browser. Itt láthatod az összes használható objektumot és annak mindenféle tulajdonságát. A ''Search Text'' editboxba beírod a keresett osztály nevét (fájlformátumnál pl. azt, hogy xlFileFormat), az alatta lévő ablakban megjelennek az osztály tagjai. A tagokra rákattintgatva alul kiíródik a megfelelő érték (pl. Const xlDBF4 = 11), ezeket kell beabálni a programodba. Ha sok ilyet használsz, akkor érdemes enum-okat létrehozni erre a célra.
-
JFL
csendes tag
válasz
GuMipOkE #128 üzenetére
Pedig stimmelnie kellene, legalábbis nekem VC++ esetén működik.
wbook.SaveAs(COleVariant(m_xlFile), COleVariant(xlDBF4), covOptional, covOptional, covOptional, covOptional, 0, covOptional, covOptional, covOptional, covOptional);
Megfelelő értéket adsz át a fájlformátum helyén? Az xlDBF4 egy short int, aminek értéke 11. Ha nem adod meg ezt a paramétert, akkor az alapértelmezett az xlWorkbookNormal, aminek értéke -4143 (0xFFFFEFD1).
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Milyen videókártyát?
- Nagyrobogósok baráti topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kerékpárosok, bringások ide!
- One mobilszolgáltatások
- Telekom mobilszolgáltatások
- Futás, futópályák
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Hálózati / IP kamera
- Támadásra figyelmezteti a Microsoft a kormányzatokat és a cégeket
- További aktív témák...
- Thin GF63 12UC 15.6" FHD IPS i5-12450H RTX 3050 16GB 512GB magyar vbill új akku gar
- Sérült! Corsair Icue 5000X Fehér Számítógépház! Olvasd a hirdetést!
- L13 Yoga Gen4 13.3" FHD+ IPS érintő Ryzen 7 PRO 7730U 16GB 256GB NVMe IR kam aktív toll gar
- Samsung Galaxy S22 Plus 128GB, Kártyafüggetlen, 1 Év Garanciával
- HP Elite x2 1012 G2 Touch 2-in-1 LTE/4G Win10 Tablet billentyűzettel/Notebook, üzletből, garanciával
- Bomba ár! Dell Latitude E7440 - i5-4GEN I 8GB I 500GB I 14" HD I HDMI I Cam I W10 I Gari!
- Bomba ár! Dell Latitude 5590 - i5-8GEN I 8GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Gari!
- Azonnali készpénzes AMD Ryzen 1xxx 2xxx 3xxx 5xxx processzor felvásárlás személyesen / csomagküldés
- Honor Magic6 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- Honor 200 256GB Kártyafüggetlen 1Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest