Hirdetés
- 
			
						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
- Minőségi ugrást hozhat a One új médiaboxa?
 - Veszprém és környéke adok-veszek-beszélgetek
 - Apple iPhone 15 Pro Max - Attack on Titan
 - Napelem
 - Battlefield 6
 - GoodSpeed: 24 éves a Windows XP! Nézzen ki úgy a Windows 11 mint az XP?
 - Samsung Galaxy S23 Ultra - non plus ultra
 - Mozilla Firefox
 - Elektromos autók - motorok
 - Mobil flották
 - További aktív témák...
 
- DELL PowerEdge R740 rack szerver - 2xGold 6130 (16c/32t, 2.1/3.7GHz), 64GB RAM, 10Gbit HBA330, áfás
 - Telenor 5G Indoor WiFi Router (FA7550) + töltő
 - Apple iPhone 12 Pro 128 GB Arany 1 év Garancia Beszámítás Házhozszállítás
 - Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RTX 3070Ti / 32GB DDR5 / 1TB SSD!
 - HP EliteOne 800 G5 All-in-One i5-9500 32GB 1000GB 23.8" Érintőkijelző!! 1 év garancia
 
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő
						
								
							
 Fferi50

