Hirdetés
- 5.1, 7.1 és gamer fejhallgatók
- Ne várj sokat a vásárlással: drágulás a láthatáron
- Milyen billentyűzetet vegyek?
- Miért nem tűnik el soha a kalózkodás?
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- Vezetékes FEJhallgatók
- Nitrogénfelhőben született az új rekord
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Teljesen a játékosok szolgálatában
-
PROHARDVER!
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
- 5.1, 7.1 és gamer fejhallgatók
- Ne várj sokat a vásárlással: drágulás a láthatáron
- Motorola Edge 70 - többért kevesebbet
- Wise (ex-TransferWise)
- Videó stream letöltése
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen billentyűzetet vegyek?
- Tudományos Pandémia Klub
- Miért nem tűnik el soha a kalózkodás?
- Pánikban a világ a Radeon RX 5000 és 6000 sorozat támogatása miatt
- További aktív témák...
- Star Wars The Old Republic Collector's Edition
- Árváltozás+játék DVD: Borderlands 2 Ultimate Loot Chest Limited Edition
- Assassins Creed Shadows, Civilization VII, Battlefield 6 és Dying Light: The Beast, az utolsók!
- Vírusirtó, Antivirus, VPN kulcsok
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3896, 95% Akkumulátor
- Új és újszerű 15-16 Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Ventilátorok 120/140mm és tápkábel modding kitűnő árakon!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő
Fferi50

