Új hozzászólás Aktív témák
-
STC Speed
őstag
Esetleg még annyit tudnál segíteni, hogy sok fájl esetén hogyan tudnám alkalmazni? pl egy mappa 100 ilyen fájl mentés másként nél.
1 fájlal most így néz ki :InputFile = "C:\Users\Fel\Desktop\fajl.xlsx"
SheetName = "Munka1"
OutputFile = "C:\Users\Fel\Desktop\fajluj"
Ext = "44"
Set objExcel = CreateObject("Excel.application")
objExcel.application.visible=false
objExcel.application.displayalerts=false
set objExcelBook = objExcel.Workbooks.Open(InputFile)
objExcel.Sheets(SheetName).Select
objExcelBook.SaveAs OutputFile, Ext
objExcel.Application.Quit
objExcel.QuitKöszi!
-
STC Speed
őstag
Sziasztok,
Esetleg van ötlete valakinek, hogy van sok excel fájlom, amit megkell nyitnom és rámegyek, hogy mentés másként, átváltom xlsx re és a formátumot weblap ról excel munkalapra, ezt fellehet gyorsítani valahogy? Köszi!

Új hozzászólás Aktív témák
- Eredeti játékok OFF topik
- The Division 2 (PC, XO, PS4)
- AliExpress tapasztalatok
- Milyen monitort vegyek?
- Asztalos klub
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Kormányok / autós szimulátorok topikja
- Poco F5 - pokolian jó ajánlat
- Samsung Galaxy Felhasználók OFF topicja
- További aktív témák...
- Xiaomi 14T Pro 512GB,Újszerű,Dobozaval,12 hónap garanciával
- GAMING PC! Intel i5-14600KF / 9070 XT / 32GB DDR5 / B760 WIFI / 1TB NVMe / 850w! BeszámítOK
- HIBÁTLAN iPhone 15 Pro 128GB Blue Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4692, 92% AKKSI
- Dell és HP szerver HDD caddy keretek, adapterek. Több száz darab készleten, szállítás akár másnapra
- Egérpadok, billentyűsapkák(keycapek), csuklótámaszok /ARCANE/DUCKY/GLORIOUS/
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
