- Nothing Phone 2a - semmi nem drága
- MIUI / HyperOS topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Google Antigravity - ennyi volt?
- Apple iPhone 13 Pro Max - őnagysága
- Samsung Galaxy A54 - türelemjáték
- Google Pixel topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Nothing Phone (2) - több, mint elsőre látszik
- Táncolni még nem tud, de stabilan áll az Android 17 a lábán
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bteebi
veterán
válasz
PETEE78
#29074
üzenetére
Mindig a filenév végén van a dátum, tehát itt például 1510160939, illetve ebből a 151016? A végén lévő dátum mindig négy karakter? Mert ha igen, akkor a megnyitás után írd bele a makróba azt, hogy
fnev = ActiveWorkbook.Name
If Mid(fnev, Len(fnev) - 14, 6) <> WorksheetFunction.Text(Date, "yymmdd") Then
ActiveWorkbook.Close savechanges:=False
End IfA 14 azt jelenti, hogy ennyi karakterrel a teljes filenév (pl. 221_ALMA_20151016_20151016_1510160939.csv) előtt indul a keresés, és 6 karakter hosszú (mert amit keresünk, az ugye ééhhnn formátumú).
#29075: Amúgy igen, nagyon nyakatekert lenne
. Ez se a legegyszerűbb, mert előbb megnyitja a file-t, némi eséllyel feleslegesen...
Új hozzászólás Aktív témák
- Microsoft és egyéb dobozos retro szoftverek
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MS SQL Server 2016, 2017, 2019
- ÚJ akksi! GigaAKCIÓ! Lenovo ThinkPad P15 Gen 2 Intel i7-11850H 32GB 512GB Nvidia RTX A3000 1 év gar
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4322
- HP EliteOne 800 G4 All-in-One i5-8500 16GB 512GB 23.8" Érintőkijelző!! 1 év garancia
- AKCIÓ! 2TB Kingston Fury Renegade NVMe SSD meghajtó garanciával hibátlan működéssel
- Legolcsóbb! Számla + Garancia! Meta Quest 3S Virtuális valóság szemüveg!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
. Ez se a legegyszerűbb, mert előbb megnyitja a file-t, némi eséllyel feleslegesen...
Fferi50
