Hirdetés
- Mesterien csapta le az OpenAI reklámparáját egyik konkurense
- Posztapokalipszis és nosztalgia szegezett a képernyő elé
- Elbaltázott tankolás miatt csúszik a NASA Holdutazása
- Francia ügyészek razziáztak az X párizsi irodájában, Muskot is beidézték
- Elégedetlen lenne az NVIDIA AI gyorsítóinak tempójával az OpenAI?
- Home server / házi szerver építése
- Amlogic S905, S912 processzoros készülékek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Új Xeonokkal szorongatná meg az Intel az AMD-t
- Azonnali fotós kérdések órája
- Kormányok / autós szimulátorok topikja
- Új kezdeményezéssel pofoznák ki a Linuxot a játékosoknak
- Vezetékes FEJhallgatók
- Épített vízhűtés (nem kompakt) topic
- ThinkPad (NEM IdeaPad)
-
PROHARDVER!

Új hozzászólás Aktív témák
-
pmonitor
aktív tag
válasz
martonx
#15975
üzenetére
Ha azt mondtam, hogy a win api-t a C/C++/Free pascal/Delphi beszéli folyamatosan, akkor erre meg azt mondom, hogy az office alkalmazásokat meg a VBA/Vb.Net beszéli folyamatosan(bár más nyelvben is meg lehet csinálni). Ha szeretnék nyitni 1 Excel munkafüzetet, aminek az első munkalapjának első cellájába akarom írni az "asdfgh" szöveget, akkor aszondom, hogy:
Dim exapp As Object = CreateObject("Excel.Application")
exapp.Visible = True
exapp.Workbooks.Open("d:\MunkaFüzet1.xlsm").WorkSheets(1).Range("A1") = "asdfgh"És ha a "d:\MunkaFüzet1.xlsm" file jelszóvédett, akkor be is kéri a jelszót megnyitáskor(mondjuk itt hibakezelés nincs, tehát ha rossz jelszót ad meg a user, akkor elszáll).
Egy ilyen sor kódtól:
exapp.Workbooks.Open("d:\MunkaFüzet1.xlsm").WorkSheets(1).Range("A1") = "asdfgh"
a C# befonná a szemöldökét![;]](//cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- World of Tanks - MMO
- One mobilszolgáltatások
- Samsung Galaxy A54 - türelemjáték
- Home server / házi szerver építése
- Kínai és egyéb olcsó órák topikja
- KábelszatNet-2002 Kft.
- Amlogic S905, S912 processzoros készülékek
- Tesla topik
- Szívós, szép és kitartó az új OnePlus óra
- PlayStation 5
- További aktív témák...
- Samsung Galaxy S21 FE / 6/128GB / Kártyafüggetlen / 12Hó Garancia
- Vásárlunk iPhone 12/12 Mini/12 Pro/12 Pro Max
- GYÖNYÖRŰ iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS4404
- MacBook Air 15" (M3, 8 GB RAM, 512 GB SSD)
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RX 6500 XT 8GB Rampage SHIVA ADATA 600W
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest

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


