- Apple MacBook
- Egy gyártási hiba miatt nem bootolhatnak bizonyos Minisforum PC-k
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- HTPC (házimozi PC) topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Mégsem búcsúznak a DDR4-es memóriák
- ROG Strix G16 notebook: tökéletes harmónia
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- HiFi műszaki szemmel - sztereó hangrendszerek
Új hozzászólás Aktív témák
-
vilag
tag
válasz
sztanozs #1999 üzenetére
Nos, működik a dolog. Már csak egy kicsi szépséghiba van benne:
Hogyan lehet a Project Explorer ablakban egyértelműen azonosítani egy Projectet?
Sajnos a név begépelés csak a szóközig működik, aztán már csak pittyeg, és hát a szóközig mindegyiknek ugyan az a neve ("VBAProject").A hivatkozott oldalon ez a programkód van:
Sub Gomb2_Kattintáskor()
Workbooks.Open "C:\Your\File\Path\YourFileName.xls"
With Application
'Go to the VBE
.SendKeys "%{F11}", True
'Activate Project Explorer window
.SendKeys "^r", True
.SendKeys "VBAProject" + Chr(32) + "(Próba.xls)"
'Tab your way to the workbook project
'Note - - when I tested this, it was in a separate workbook,
'following 6 add-in projects.
'"YourFileName" was the 8th project in my PE window,
'so 9 tab hits were required.
'You could also down-arrow using .SendKeys "{DOWN}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
.SendKeys "{TAB}", True
'Simulate the Enter key
.SendKeys "~", True
'Enter your password - - this example is "Password"
.SendKeys "Blackout"
'Enter again
Password
.SendKeys "~", True
End With
End SubItt TAB-okkal van megoldva a probléma, de nekem ez nem jó, mert nem ismert, hogy a program futtatásakor hány darab project fut és azok milyen sorrendben vannak.
Én jelenleg így alakítottam át a kódot, de a megfelelő project kiválasztása nem működik, erre keresek megoldást.
Sub Gomb2_Kattintáskor()
With Application
.SendKeys "%{F11}", True
.SendKeys "^r", True
.SendKeys "VBAProject" + Chr(32) + "(Próba.xls)" 'Sem így sem "VBAProject (Próba.xls)"-t beíva nem működik
.SendKeys "~", True
.SendKeys "Password"
.SendKeys "~", True
End With
End SubÜdv, vilag
Új hozzászólás Aktív témák
- Lakáshitel, lakásvásárlás
- Futás, futópályák
- Apple MacBook
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Egy gyártási hiba miatt nem bootolhatnak bizonyos Minisforum PC-k
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Óra topik
- intecpc: Miért érdemes felújított laptopot vagy számítógépet választani?
- Kínai és egyéb olcsó órák topikja
- További aktív témák...
- Samsung Galaxy S22 Plus 256GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 16 fekete 256GB 1 hónapos (2028.06-ig garis)
- LOQ 15IRX9 15.6" FHD IPS i5-13450HX RTX 4060 16GB 1TB NVMe magyar vbill gar
- Samsung S27FG904XU Odyssey 3D Gaming Monitor! BeszámítOK
- LG UltraGear 34GS95QE-B OLED Monitor! 3440x1440 / 240Hz / 0.03ms / FreeSync / G-Sync! BeszámítOK
- AKCIÓ! Asus TUF F15 FX506HM Gamer notebook - i5 11400H 16GB DDR4 RAM 512GB SSD RTX 3060 6GB W10
- Apple iPhone 7 32GB, Kártyafüggetlen, 1 Év Garanciával
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 9 5900X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- AKCIÓ! Gigabyte Z370M i5 9400F 16GB DDR4 512GB SSD RX 5700XT 8GB ZALMAN S2 TG Corsair S650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest