- iPhone topik
- Samsung Galaxy A52s 5G - jó S-tehetség
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Apple Watch
- Yettel topik
- Vivo X200 Pro - a kétszázát!
- Honor 200 Pro - mobilportré
- Samsung Galaxy A33 5G - a három az majdnem öt
- Android alkalmazások - szoftver kibeszélő topik
- Milyen okostelefont vegyek?
-
Mobilarena
Ú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!
- A fociról könnyedén, egy baráti társaságban
- Autós topik
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- iPhone topik
- Silent Hill f teszt
- Diablo IV
- Bluetooth hangszórók
- WoW avagy World of Warcraft -=MMORPG=-
- Kerékpárosok, bringások ide!
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- További aktív témák...
- HIBÁTLAN iPhone 13 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3552,100% Akkumulátor
- Eladó Xiaomi Redmi 12C 64GB / 12 hó jótállás
- BESZÁMÍTÁS! Apple MacBook Pro 16 2024 M4 Max 48GB 1TB SSD macbook garanciával hibátlan működéssel
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3286
- HIBÁTLAN iPhone 15 Pro 128GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3499
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest