- MWC 2026: Szemből nagy, oldalról nem is látod
- MWC 2026: Óriásakkut tuszkoltak egy szupervékony hajlíthatóba
- A Telekom és a Yettel is jóváír a közel-keleti térségben tartózkodó ügyfeleinek
- MWC 2026: Leica telefont gyártott a Xiaomi
- MWC 2026: Meglepően jó áron jön a kicsi, de erős, illetve a nagy és fotós Xiaomi
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Apple iPhone 17 Pro Max – fennsík
- Apple iPhone 16 - ígéretek földje
- Milyen okostelefont vegyek?
- Fotók, videók mobillal
- Samsung Galaxy A55 - új év, régi stratégia
- Mobil flották
- MWC 2026: Meglepően jó áron jön a kicsi, de erős, illetve a nagy és fotós Xiaomi
- Nothing Phone (3a) és (3a) Pro - az ügyes meg sasszemű
- Xiaomi 17 Ultra - jó az optikája
Új hozzászólás Aktív témák
-
lapa
veterán
üdv. vbscriptben szeretnék könyvtárat tallózni. van ugyan ilyen: [link], de ez elég bénácska, ugyanis nem tudom a kezdő könyvtárat megadni benne. a ''root'' nekem nem jó, mert akkor annál feljebb nem enged brózolni. nekem olyan kéne, ami a desktoptól indul, de az általam megadott könyvtárat jelöli ki defaultban. vagy csak én néztem be és van benne ilyen?
-
#447
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
pláne már #437-ben megoldódott...
amúgy érdekes, mert application.worksheetfunction.isnumber(szam) nem ment pedig kéne neki sztem.
[Szerkesztve] -
#445
lapa
veterán
matekmatika
#444
lapa
veterán
válasz
matekmatika
#444
üzenetére
if isnumeric(szam) then
de ha az excel makrós totyikba írod látom... -
#400
lapa
veterán
MartinIsti
#395
lapa
veterán
válasz
MartinIsti
#395
üzenetére
küzdöttem egy kört mire megtaláltam de emlékeztem, hogy nem kell ciklusozni...
ActiveCell.CurrentRegion.Rows.Count
ActiveCell.CurrentRegion.columns.Count
vagy fixen cells(1,1).CurrentRegion.Rows.Count -
-
lapa
veterán
azért ennél iparibb, gizikeállóbb megoldásra van szükségem. pláne nem akarok pittyegtetni vele a scannelésen kívül 500 dokumentumot. nagy megkönnyebbülésemre találtam azóta franyesz programot rá, jó kis multifunkciós gépen lapadagolóval egy megosztott könyvtárba mennek a fileok, az app meg figyeli a könyvtárat és átnevezi a doksikat vonalkód-alapon. elvégre 21. század. ettől függetlenül elkezdem ezt a kommand-bigyót csinálni, meglátjuk mire jutok. már van helloworldöm
[Szerkesztve] -
lapa
veterán
tehát van egy vonalkód-felismerő szoftver, amihez adnak felismerő dll-t, ocx-et meg miegymást. adnak hozzá egyszerű tesztalkalmazást forráskóddal x+1 nyelvre. egy ilyet linkeltem be fent. ha lefordítom, akkor ez egy form, amiben ki lehet választani a fájlt (tif, bmp...) és alul kiírja a fájlban felismert vonalkódból dekódolt szöveget.
namost nekem nem kell form meg gombok, hanem elég lenne pl. egy parancssoros cucc, aminek a paraméterében megadnám a fájlnevet és valahogy (ez mondjuk nem tiszta) visszaadná a kiolvasott értéket. hétköznapi nyelven: van 20 doksim, és végigloopolnék egy scripptel rajtuk, ami elindítja minden fájlnál ezt a commandline cuccot, majd a scriptnek visszaadott érték alapján a script átnevezné a fájlt.
odáig kábé megvagyok, hogy a program dll-jének vannak bemeneti paraméterei és ezeket kéne megadni, de pl. visual basic express-ben már elakadok. új projekt --> commandline app --> kapok egy ''Main''-t. ez szép és jó, de fingom nincs hogyan mondom meg neki a fájlnevet bemeneti paraméterként. ehhez pl. jól jönne egy minta, pl. cmdapp.exe /message ''helloworld'' /type ''vbcritical'' adjon ki egy ''helloworld'' messageboxot nagy piros x-szel (csak hogy ne egy paraaméterről beszéljünk hamár...). -
lapa
veterán
üdv. kéne írnom egy olyan alkalmazást, ami felismert vonalkódok alapján egy file-listát átnevez. van dll meg ocx meg mittomén milyen könyvtár hozzá.
ha egy mód van rá maradnék vbs-nél (ha jóltom a com-ot meg lehet etetni vele), de ha nem megy akkor küzdök visual basic express-szel.
először vbs: szal vannak a következő fileok, amit a vonalkódfelismerő cucchoz adtak:
Form1.frm
Project1.vbp
Project1.vbw
tehát odáig megvagyok, hogy filesearch-elek a könyvtáron. de hogyan hívom meg a könyvtárat? meg hogyan adok neki változókat, amiket kér? ha segít itten egy zipben a fájlok: [link]
most elkezdek küzdeni ezzel az express-szel ettől függetlenül, ha valaki mutatná legalább az irányt megköszönném. -
lapa
veterán
mert az activate, nem select.
a problémádra: lehet esetleg lapfüleket elrejteni mikor megnyitod a munkafüzetet, felvétel gommbal lenézed az eszközök --> beállításokból. kicsit barkács mondjuk, meg vissza kell rakni close-nál. meg ctrl+pgup /ctrl+pgdn még mindig műkszik. rakd esetleg más fájlba.
btw: excel makrós totyik [link] -
#275
lapa
veterán
[HUN]Zolee
#274
lapa
veterán
válasz
[HUN]Zolee
#274
üzenetére
wait? legalábbis vba-ban. vbs-ben sleep. keress rá hátha vmelyik ezek közül.
-
#254
lapa
veterán
Apollo17hu
#253
lapa
veterán
válasz
Apollo17hu
#253
üzenetére
küttem mintafájlt mailen, mert nekem még mindig műxik.
-
#252
lapa
veterán
Apollo17hu
#251
lapa
veterán
válasz
Apollo17hu
#251
üzenetére
hát nemtom értem-e mit szeretnél, de ez tuti műkszik:
OpenDialog_Filter = ''Excel (*.xls), *.xls''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
opendialog_selectedfile = Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
Workbooks.Open Filename:=opendialog_selectedfile
csinál ''megnyitás'' ablakot és a kiválasztott fájlt megnyitja szépen. két aposztrófokat kicserélted macskakörömre? az előzőben volt egy sortörés is, ebből kivettem hátha az kavart be.
egyébként nem jó egy olyan megoldás, hogy az excelben csinálsz egy gombot neki és ahhoz rendeled hozzá a makrót? -
#249
lapa
veterán
Apollo17hu
#248
lapa
veterán
válasz
Apollo17hu
#248
üzenetére
OpenDialog_Filter = ''Szöveges fájlok (*.txt), *.txt''
OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
OpenDialog_SelectedFile = _
Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
...
Workbooks.OpenText Filename:=OpenDialog_SelectedFile
ez mondjuk txt-t nyit. vagy valami másra gondoltál? -
lapa
veterán
ez féloff, mert vbs (!), de ide teszem fel.
1. tudok fuction-t beágyazni vbs-be? tehát olyan programrészt, amit aztán csak meghívok, amikor kell.
2. műxenek a common dialog-ok (open file, mittomén) vbs-ben? ha igen, vki meg tud dobni egy sampléval esetleg? köszi
[Szerkesztve]
Új hozzászólás Aktív témák
- AliExpress tapasztalatok
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- E-roller topik
- Konzolokról KULTURÁLT módon
- Android felhasználók OFF topikja
- Bluetooth hangszórók
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Apple iPhone 17 Pro Max – fennsík
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Készpénzes / Utalásos Számítógép felvásárlás! Személyesen vagy Postával!
- 246 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Lenovo ThinkPad T14s Gen 4 Ryzen 5 PRO 7540U 14" FHD+ 32GB 512GB Lenovo gar: 2028.01.07!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest