Hirdetés
- Külföldi prepaid SIM-ek itthon
- Mobilinternet EU-n kívül, eSIM adatcsomagok használata
- Örömhír: nem spórol Európán a OnePlus
- Milyen okostelefont vegyek?
- Samsung Galaxy S25 - végre van kicsi!
- Android alkalmazások - szoftver kibeszélő topik
- Hazai akkumulátorrekordra pályázik a OnePlus 15R
- Xiaomi 15 - kicsi telefon nagy energiával
- Milyen hagyományos (nem okos-) telefont vegyek?
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
-
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
-
Fferi50
Topikgazda
Szia!
Akkor félreértettél:
"File = Pathname & "\" & Filename & "\*.xlsx"
Workbooks(File).Worksheets("Target").Cells(1, 1)"
Itt a File változó a teljes nevet tartalmazza. Ezt nem szereti ebben a pozícióban az Excel VBA, ide elég a Filename (amiben a kiterjesztés is benne van, legalábbis 2010-ig biztosan.
Viszont most látom: A Filename & "\*.xlsx" -ben miért is van benne a backslash? , illetve így a File fogja tartalmazni a * karaktert, ami aztán végképp nem szerepelhet a fájlnévben.
Szóval úgy néz ki, több sebből vérzik az elképzelés."Mondjuk az nem működhetne, hogy Workbooks(Dir(Source_file)).Worksheets?" Szerintem túlbonyolítod a dolgot, a Source_file is teljes, path-t is tartalmazó név, ezért nem felel meg. Másrészt, ha már megnyitottad, akkor csak a rövid név müxik.
Megnyitás nélkül pedig nem kell a Workbooks, csak a teljes fájlnév szögletes zárójelben, aposztróffal kezdve a több tag lehetősége miatt, utána a munkalap neve, aposztróf bezárva felkiáltójel cellacím.Üdv.
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- Külföldi prepaid SIM-ek itthon
- Sweet.tv - internetes TV
- Milyen monitort vegyek?
- EA Sports WRC '23
- 3D nyomtatás
- 5.1, 7.1 és gamer fejhallgatók
- Milyen Blu-ray írót?
- Mobilinternet EU-n kívül, eSIM adatcsomagok használata
- Ubiquiti hálózati eszközök
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Antivírus szoftverek, VPN
- 10 Darab ÚJ PC Játékszoftver
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bomba ár! Lenovo ThinkPad X13 G1- i5-10310U I 16GB I 256SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- FunXun BW-2328 hajszárító 1800 Watt / 12 hó jótállás
- PC konfig /Ryzen 7 9800X3D, 32GB RAM, 1TB SSD/ akciós áron eladó! BeszámítOK!
- BESZÁMÍTÁS! Asus ROG G531GV Gamer notebook - i7 9750H 16GB DDR4 512GB SSD RTX 2060 6GB WIN11
- HIBÁTLAN iPhone 13 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3685
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50

